- is$ T* a- E" B% n9 e9 V& ]! A1 C! L+ L
- r:real; file:string;5 ]* _9 i$ \* E: Q
- do. Y3 N8 R H& N" i, w: a! |
- openConsole;
7 m$ Q/ h: Z- m- r- N" k! t* z
. F4 e& d% {& e, D9 o" O! b- /*
% d' L2 n4 _4 t9 {6 W. u - file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf",
1 ~$ e- m: _) n# W( ] - when is64BitApplication then 64 else 32,
5 `$ z4 p9 z# A" N - "bit.dll"); C$ K/ ^* B; P Q- b7 ^
- */
7 P& [# w( ?2 D, ]. h - file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";
7 e+ s* {7 ?4 M+ |2 [. h - local j := loadLibrary(file);) D6 J/ N# D+ s8 R+ c8 V' J$ b
7 Y* U' W9 J4 X0 P- if j > 0 then
' p6 F6 x7 A; a! h6 [+ q - print getLoadedLibrary(j)," is loaded.";5 s( v& C# {. `7 Z
* h0 D9 G. N1 _$ ^: p( ^3 X* T- r := callLibrary(j, "calcSin", PI/6);
8 H7 ~& P6 ^5 N* S/ Q% m - promptmessage(to_str("sin(PI/6) = ", r));$ q% a0 ~7 m0 \0 o! o3 @9 c9 E/ G0 J
-
. H( f# z/ o* O6 Z* E - local str:string;
1 S7 T9 z( u5 @6 s - str := "I'm OK!";+ Y! p6 v) i. L% \( e, B
- str := callLibrary(j,"resetStr",str);# G6 ^& Q1 ~8 `
- promptmessage(str);
5 o" z6 f8 G2 F$ \4 y - 5 X3 w& M( A% C
- callLibrary(j, "listAccess", Tablefile);
' J8 e3 b, m; L0 \$ n: t- o - , C( N7 L) [: M8 }! `- |# p
- print "Unloading: ", freeLibrary(j);9 @% p0 X& @* h0 i0 p9 i
- end; @$ S5 [: R u n
- end;
6 B- X" j" Z. ?! b! B$ b. U3 a
复制代码 |