- is
% u& B, }, C0 `/ ?0 E - r:real; file:string;; E) v, n' b- h. N0 [$ f
- do2 l/ I+ t0 X. Y
- openConsole;& D# |/ i6 E1 p; o2 \
z: z- W8 T! Q+ d- /*0 g# g; O/ \! Y. B# ]# l, t1 M4 u
- file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf",: k* s$ g+ h8 Q5 I: p5 ]
- when is64BitApplication then 64 else 32,
4 O3 @9 W* p# s - "bit.dll");& C& i" {- O. d) e
- */
5 Q2 J. o% y2 r$ f) X0 G+ } - file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";
* T! I/ p9 W! G# l1 P; J - local j := loadLibrary(file);0 G1 ^( V9 ^ E
( c7 g |2 h: e( C z) N* x0 [- if j > 0 then
8 r1 r. O+ u$ E) z2 l - print getLoadedLibrary(j)," is loaded.";
. G- B5 t2 T: i7 E% y9 F - " Z9 Q# T n7 z3 M W7 s# x
- r := callLibrary(j, "calcSin", PI/6);' c! R! i6 J" r1 [% }0 ]/ ^
- promptmessage(to_str("sin(PI/6) = ", r));7 U8 B4 `4 Z% K& u
- $ K% Z* r. c h, i- o# C
- local str:string;: E/ ~& J$ t: L
- str := "I'm OK!";! D( @, I0 J9 i4 N7 G1 W2 D& X; P9 ^
- str := callLibrary(j,"resetStr",str);
$ X7 M$ A! I5 h - promptmessage(str); E+ i1 \5 l$ y% a0 Z% ]- z& M) K( S
-
9 p1 C; [( q/ P& G% D - callLibrary(j, "listAccess", Tablefile);( F# l' W3 N7 M+ X
- , c9 l h) ^8 n& I
- print "Unloading: ", freeLibrary(j);/ r$ A$ s% c/ y0 s+ w v
- end;
4 m' F* p4 T- L& I' D' R# { - end;: _/ ?# x+ D; O, v5 N; {
复制代码 |