- is
8 r- k! A8 x2 \0 L* h2 C - r:real; file:string;
' m5 L4 s5 s1 I - do
! f, }# Q T3 o- \) A+ d2 s - openConsole;- C2 X! L% Y# z2 q% ^
- 3 O) z$ l/ G( e
- /*: h0 j/ P) _$ K) x
- file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf",
q0 n6 i' R1 Z" r8 f- z - when is64BitApplication then 64 else 32,' }$ b, i" `# t6 d1 L. ?" m. V
- "bit.dll");* G& C1 ^/ Z7 H- u+ w2 c
- */4 A+ w- ~+ \! t @; f
- file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";
9 X! D n$ a1 Z# p9 k - local j := loadLibrary(file);
1 a( @8 N7 j& v/ e4 m J3 p - * Z" E, ~* c3 C2 i
- if j > 0 then
2 D6 j5 \& [, P4 M$ n$ c/ k7 N - print getLoadedLibrary(j)," is loaded.";
& Q/ E8 [. l4 C% ]" L - " I6 A; J) q0 j4 k& r
- r := callLibrary(j, "calcSin", PI/6);
" J4 V D: ]5 h: N3 `' A$ s - promptmessage(to_str("sin(PI/6) = ", r));- z% q- N' b3 `3 Z b k
- : I6 u- Q6 V3 r
- local str:string;# T1 q+ j* @3 a; x. Q, p
- str := "I'm OK!";- D2 v) J* c1 e/ F1 V
- str := callLibrary(j,"resetStr",str);. d/ e6 l! a0 D6 q$ a' m1 C( J
- promptmessage(str);
( G3 Y7 t$ O& t/ b6 b t1 v4 n -
U" m, K# P2 Z, u# c - callLibrary(j, "listAccess", Tablefile);, }5 G" y- i( K
-
7 @8 | j( [+ \4 ^; ], E+ O0 [7 q - print "Unloading: ", freeLibrary(j);( [% _) D5 I0 b6 ]
- end;1 ^6 q& k* `2 u. P' j
- end;
+ v. K; F6 m0 T4 H8 R) f
复制代码 |