- is
+ O6 ~ E9 h8 B |5 L/ c. O: ` - r:real; file:string;8 O. J V& r4 N$ p# ?# U! I
- do- k) T4 h3 u* ^5 ^, a
- openConsole;: V0 g4 o! h0 |+ B/ {
/ g1 Y& [$ D# c: ~; @% K- /*
$ g& M8 @- N! z" m2 x$ o - file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf",; c( ~% ?! K# R2 e, m7 N
- when is64BitApplication then 64 else 32,
" A6 s* g. E0 j2 o - "bit.dll");
: k- H; K1 L8 ` - */# F6 o: z& a2 ]1 d" P
- file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";& q, j( F/ U+ ~
- local j := loadLibrary(file);
8 R/ q. E4 `- M3 n; L, z& r - % p: g5 I' ?$ ^) G
- if j > 0 then
% y9 b* m- \ `9 H - print getLoadedLibrary(j)," is loaded.";
2 E9 {1 C: I$ Z( G) p+ E- G - ! D8 u) g' E: X- Z( @) ]8 @
- r := callLibrary(j, "calcSin", PI/6);& [! l& h1 q" h1 Z
- promptmessage(to_str("sin(PI/6) = ", r));! m3 i9 V5 ]) u5 W4 H! y" C
-
8 Q+ O& _; y; O+ p& t" }7 d( h - local str:string;2 w& ^! m- g) m) B3 t: r' t- ~6 E/ X! _3 [
- str := "I'm OK!";
6 T8 m) b& j5 w1 o) h$ ? - str := callLibrary(j,"resetStr",str);
* f* G: G, p. | - promptmessage(str);2 N$ r: T3 o4 G" H2 t
-
1 V0 g1 [- U! O' I+ K* Z - callLibrary(j, "listAccess", Tablefile);2 @2 b% U# z' O! O! U% {
- * B6 k( v" e: O
- print "Unloading: ", freeLibrary(j);' o# R2 x" U( |, P9 O+ _. _3 u) s5 D
- end;# M2 r+ q2 |7 p% Q/ \3 e
- end;0 }8 [ [" R i, f! _3 B
复制代码 |