- is) d2 F3 v2 Y! J. W- w
- r:real; file:string;
]+ i6 S& t6 J7 E: F! O - do
/ [' z; P) Y+ i - openConsole;
2 h, {* c7 o5 \9 A ? n/ Q1 J - 0 P. Q- {- F- E8 v
- /*
4 E! G# L6 A5 N( B8 @, G0 D - file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf",
; X8 ~* I( q& s4 [; m) L - when is64BitApplication then 64 else 32,9 G3 l0 z5 @$ z3 r' h- E( S9 R
- "bit.dll");6 K7 D! ~5 W' I4 p9 x4 f B
- */% c% _* X4 R* I ^& K5 o5 C. b
- file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";. g8 d6 f0 u* |7 |1 D6 c X" ?
- local j := loadLibrary(file);
7 c( N: U( z9 `5 [1 m( u1 I
& v3 w, B3 X# p* A- if j > 0 then7 t5 B$ Y0 w; E/ U
- print getLoadedLibrary(j)," is loaded.";
/ L/ c' I# G* q4 _' S - 9 j# c0 L% A( N6 N/ k0 p
- r := callLibrary(j, "calcSin", PI/6);
9 A% W8 u2 D Z% X |( c - promptmessage(to_str("sin(PI/6) = ", r));
' }/ t; P: D W+ d! Y0 p - 6 g l0 D) u: `+ r. p6 z
- local str:string;
' K9 ?. i" [- N - str := "I'm OK!";
}7 K* b# W9 r - str := callLibrary(j,"resetStr",str);) {9 k) ~6 t4 n$ r# M
- promptmessage(str);
# i8 S# D+ A, O L6 c - $ t9 k6 ^5 C& o/ [3 B: y, {5 P- \ q
- callLibrary(j, "listAccess", Tablefile);4 y7 w( C2 j6 S
-
) ?. t! j( k$ H9 i - print "Unloading: ", freeLibrary(j);
) Y8 D( ~2 T9 r( S# Q9 J, t9 w+ t - end;
! |9 `& \! G$ C; j5 a - end;7 r; B+ w ]5 x0 |
复制代码 |