- is
, P* _+ h* x0 @" l9 t8 N - r:real; file:string;
- u6 K$ y) k5 z: R - do
1 ~6 Z+ {7 k3 L3 I - openConsole;
5 m7 u$ E. X0 \2 K$ L8 F6 K - " o) N. \. Y* ? Q5 Q; F# p" d
- /*
. d' q. C* [$ [ - file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf",
+ x! ?+ a, r# P - when is64BitApplication then 64 else 32,
; o4 H4 }' n9 K/ T - "bit.dll");
+ o* m# F' u* u, r+ z, H - */7 ?4 A) G: N! u
- file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";
* l$ C# b3 ?: P& p5 A - local j := loadLibrary(file);! g8 X F; S3 l9 U3 ?, q2 l* r
- : `# G6 f, {3 y( Y
- if j > 0 then: G6 U2 v6 Q: P" x! m: W& Q
- print getLoadedLibrary(j)," is loaded.";
; P8 k1 w$ g9 \! N1 W1 B - ) X0 G% z% c7 n$ Y+ A
- r := callLibrary(j, "calcSin", PI/6);5 m" d1 c5 P) |; Q- {$ f! o( {
- promptmessage(to_str("sin(PI/6) = ", r));: Y: W o! V8 u7 X. N2 }1 z
- 4 C Y% D+ d1 ~* Q
- local str:string;. F2 i1 E* {2 B+ m: y7 c7 n, @
- str := "I'm OK!";
( m6 N8 N' U1 |7 P - str := callLibrary(j,"resetStr",str);* h# U' i! |. [0 E$ V7 x: u
- promptmessage(str); ], ~9 \ l! n C" a& ]: f; w$ t
- % P+ d' f8 o' X( l
- callLibrary(j, "listAccess", Tablefile);
; t& ~) B* L0 F: v! q( l -
* l) ?3 z# |* ~# u# n - print "Unloading: ", freeLibrary(j);+ }, `, o2 |; k8 l7 E1 g7 B1 J
- end;4 M' ^; T* a C- K( X
- end;
2 D3 w N3 Y; }% g9 u+ d x
复制代码 |