- is7 x! s) J8 H2 c' G# Y% s8 ]
- r:real; file:string;
0 D8 X6 |9 G: W: O- A - do6 o# j* L% `. Z" A1 S( m! n
- openConsole;
# z0 V8 e' r2 C6 H; L& T6 h4 r - ; C, i7 T. `& d( {/ G0 L) U9 p3 z
- /*3 s8 ]* Q* q2 F# F8 Y
- file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf",
! C: b" k3 |3 m! f% l: b- i2 c - when is64BitApplication then 64 else 32,5 W3 L& G7 s) ^- x
- "bit.dll");
8 ^0 c6 s8 v4 p - */
_' |' e( Z M8 g1 [" | Y4 O$ U - file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";
1 e4 b5 K& E& b0 _" R! q: O; n - local j := loadLibrary(file);$ q8 n- h! v5 ?9 n* t. i
- " }9 E8 ^* x; o4 n9 L$ ^
- if j > 0 then5 @' C) z0 H) L/ v* l
- print getLoadedLibrary(j)," is loaded.";+ v' l. u; X! F1 e
! K6 {8 J3 s5 @& Q; G/ O( {- t- r := callLibrary(j, "calcSin", PI/6);. B" K' ~4 Z' Z( \
- promptmessage(to_str("sin(PI/6) = ", r));! E8 a# N2 C& v: ^
-
/ B) _6 f. P* u- c9 K - local str:string;, n, T# Z- }& p/ m. J1 m
- str := "I'm OK!";
, E3 |+ C, d+ `: s) H - str := callLibrary(j,"resetStr",str);
0 ?: a1 T8 |' A C6 F& ^) T ], \ - promptmessage(str);
2 P& \8 g' x3 r$ |( F, t - ! m" N/ v) j" L# a( A C7 }
- callLibrary(j, "listAccess", Tablefile);
+ P1 t9 ~# Q4 ? - 9 \: ?& x- l2 ?( @0 N, f1 U m
- print "Unloading: ", freeLibrary(j);1 \: C* c2 [- g5 W4 {2 T
- end;
7 T0 x: A1 {" ^5 T9 x- i: ^ - end;: m, N) ]+ T0 c7 C
复制代码 |