- is: ^4 Z% Y9 }+ d7 e X& m4 q5 E4 I
- r:real; file:string;' A1 s' M5 p, K8 o! j* c
- do
% F% j* F4 E5 @% l4 { - openConsole;( ^6 E/ F( V. J ]
" ]& E! |9 Q5 M) ^$ ]/ U- /*7 v2 @8 ~; M" \: J. ]9 Y. H
- file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf", v. h. K4 O) C3 ]
- when is64BitApplication then 64 else 32,
0 ~3 g O6 y u# G8 M3 D# N - "bit.dll");' }: `$ y4 g, M8 x
- */
8 s9 y C6 ^( P) B: I3 m0 ? - file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";) S1 C% w9 i8 z: @. S M2 _
- local j := loadLibrary(file);. [: A/ J' f, C9 }7 }! w) j7 D
- : w- G. @: X# }! v1 u A
- if j > 0 then4 i: q$ P+ C, y8 S# N
- print getLoadedLibrary(j)," is loaded.";
q) N0 e6 x2 h9 \ - ) ^/ e+ L2 _/ w) ^# w
- r := callLibrary(j, "calcSin", PI/6);( C+ N0 y5 P7 X/ t7 J) a
- promptmessage(to_str("sin(PI/6) = ", r));3 O9 n2 I. D/ q( d; \
- 8 ^ w, E( q" S r
- local str:string;
1 i0 G1 ?6 ^% A3 N; v - str := "I'm OK!";
) P( [' E7 W$ I% d& s) }/ C2 m - str := callLibrary(j,"resetStr",str);
4 ?& H) P# X9 A* ]# ] - promptmessage(str);
- E. P+ p) y# n9 W -
7 i: s" f2 m: d4 l. q - callLibrary(j, "listAccess", Tablefile);7 ]' u: [, L) x/ ?
-
" o3 U5 p1 [5 X- k" P - print "Unloading: ", freeLibrary(j);& C8 v4 w: B- ]# ?- N& o
- end;' I' D" d3 y! E
- end;# E& d( J9 [2 t Y1 ~) N
复制代码 |