- is
9 ?" U1 T/ @1 k2 o - r:real; file:string;$ J" b: h, B" J$ `& B
- do6 \ b: `- T8 ^" r+ U1 s% A
- openConsole;
+ f' f& F- }% @9 a/ `
, N2 ~8 y, D+ y% k5 F8 p& z# {- /*9 C& q) y3 r6 E8 f1 M
- file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf",
, L) J; V# d# L7 M) C5 ^- N8 k% m - when is64BitApplication then 64 else 32, A1 ^( B+ D% y3 T
- "bit.dll");/ W- }+ R. a) k$ U
- */
/ C2 [6 x- t/ z3 k - file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";0 ?, D/ x3 v# h: T/ p4 ?
- local j := loadLibrary(file);
% D/ @: k/ t; C w+ r7 [ - 1 @0 t; @/ l9 \ {( Z# C
- if j > 0 then
+ K1 b7 [! k% X, m/ H. v) I2 f( Y% n2 a - print getLoadedLibrary(j)," is loaded."; Y6 N4 I4 q3 Z1 Z" b9 ?( b4 L, L
$ Q. h9 S. W7 h4 ?- r := callLibrary(j, "calcSin", PI/6);
& d2 A! F2 X" F, C4 N, R1 O - promptmessage(to_str("sin(PI/6) = ", r));
' |) i* r( t# C' u! {) g) }+ L - 9 W$ Z" z! n4 Y3 V
- local str:string;; y8 O1 c7 t2 s5 g8 r5 R4 h" T I
- str := "I'm OK!";
% @: I3 ~+ j0 W4 `+ U6 D$ x X: B( f; @ - str := callLibrary(j,"resetStr",str);
( x9 m# B3 n# Q) F - promptmessage(str);
8 i. K% c8 Q6 O2 ]1 l& p - : \3 @+ Y) v3 n) Z8 O
- callLibrary(j, "listAccess", Tablefile);* H: R& R9 H; Y
-
' J( p- @3 ~+ a4 w% A1 | - print "Unloading: ", freeLibrary(j);1 N4 U& ]/ M/ M( z/ r5 \) g
- end;
0 M& p! A% `& ^) L" T3 o - end;9 U6 N$ @+ X( |. j+ b
复制代码 |