- is2 b$ P6 J" \) A/ N3 r
- r:real; file:string;+ B* @3 n: ^' g, L$ J5 @
- do
9 I! ~, i; X; m" m: L - openConsole;) O4 I4 o5 r6 a% w+ R' ?$ [1 k
- ) C' s$ r$ p) u4 }8 r9 O
- /*0 C# f0 u7 _7 z" Y6 p* j
- file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf",
$ R" i1 h# K' k+ x' `( U ~% A& H+ Q% Z! a - when is64BitApplication then 64 else 32,4 t0 Z. w) Z: l/ D1 }, q0 I: j
- "bit.dll");
2 i) K2 ^0 o% f1 V; _, A- t7 R1 _ - */
+ K6 {3 ]2 J; f: ~ - file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";0 |1 e8 G4 ]6 K
- local j := loadLibrary(file);& _, k$ b. M3 d6 k8 r& W* v/ L% F
4 p! |- C& b9 H' i5 X- if j > 0 then6 Z7 Z F; `' Z6 F. L
- print getLoadedLibrary(j)," is loaded.";
0 y* n: x: m% A
+ I/ _4 ^8 G1 h4 L: P& s: h" q x: O5 V- r := callLibrary(j, "calcSin", PI/6);0 U( {: j8 ~3 r2 k* i
- promptmessage(to_str("sin(PI/6) = ", r));
, [% N# [7 ^- t+ r" h -
: R0 f5 w. c$ {6 [+ L - local str:string;4 _9 ?1 x# x6 l# T( F3 y0 h
- str := "I'm OK!";) l5 q! u5 c+ ^
- str := callLibrary(j,"resetStr",str);
+ {* v/ c* j; `3 Q5 q/ l - promptmessage(str);+ d" c; _7 T( i% H* |; b
- 0 O: \6 p. w/ a. E
- callLibrary(j, "listAccess", Tablefile);) e* g5 W, f2 L2 U
-
2 f' G# U6 p7 i - print "Unloading: ", freeLibrary(j);
1 E( d; v' x5 E2 h' O" M x- W - end;: e+ N- S! ^. J
- end;
' I3 H. W0 \% _
复制代码 |