- is
/ J$ x' e3 X$ _ - r:real; file:string;
+ l5 ~6 G3 y& ?1 m+ U+ x. w w - do; N& ~9 x& ]9 r
- openConsole;3 y1 M0 @+ J+ }( V; c, u
7 v l" t' R' ]8 J& J' E- /*
/ v8 C$ N. v5 B; J3 X+ j& A9 u - file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf",9 V2 `, ^. |- Q- s0 X
- when is64BitApplication then 64 else 32,
( l* o( o9 ?; X* i2 A% ] - "bit.dll");
% `4 P( W% A% \ - */2 i0 X$ j$ H# [& \2 m3 O
- file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";) q' X; |1 k4 R5 u( z3 n
- local j := loadLibrary(file);
" l; w9 t% |+ J" Y. K4 V6 E9 i: v
) ~8 T* \! c. T2 X- if j > 0 then
1 @; P5 F8 C- u" e - print getLoadedLibrary(j)," is loaded."; w3 C0 E4 U1 c/ E9 S8 G
- 6 C7 i5 B |; L4 Z
- r := callLibrary(j, "calcSin", PI/6);
5 X; r. `$ o$ m. S7 ~ - promptmessage(to_str("sin(PI/6) = ", r));, o) Y% F. V4 R9 N
- 3 R6 y+ K! V5 S8 K
- local str:string;
g9 @0 J! p% j& @ - str := "I'm OK!";
$ O6 }* P% ?' F7 S1 l5 x n9 `: @ - str := callLibrary(j,"resetStr",str);% j$ H: t: ]1 I+ L! F' w. _) S
- promptmessage(str);
- J. g4 ^( d: w* v; O z! l- a5 }) i -
9 o* z* q% \* X& {) S( z! l - callLibrary(j, "listAccess", Tablefile);
# [6 p Y% G; I -
- _; F* M5 z5 k7 j6 i+ j7 B - print "Unloading: ", freeLibrary(j);1 ]1 a9 V" ?! o( d: N- U, W
- end;
5 L" b6 Q8 |. ? - end;- ], c0 K/ D! o3 s( m, B; _
复制代码 |