- is# U: d; U0 T, ]) L6 F% u2 i
- r:real; file:string;
% J( \; Z+ r2 R5 w: T7 ` - do) A- W g) U( A6 y
- openConsole;
8 b. J5 h2 n) D( L - 5 ~: k4 i, o/ i- t( b2 e5 g
- /*
$ E, H% b; B6 j, M* s. ? - file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf",
5 Y* G0 z7 q8 Y+ ^ - when is64BitApplication then 64 else 32,% G8 k' h9 d$ f9 c! Y
- "bit.dll");+ {. j: D. E: ^. R# z
- */
. Y) Z4 S; b. H6 A. E Q8 l+ C - file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";
# z' D3 l5 t2 l& r$ b) f - local j := loadLibrary(file);6 U% b \8 ~5 ?8 h i! D" d/ K. R
- 3 n- L6 K9 c1 G* j
- if j > 0 then
, \3 K7 A4 ]! c5 l; D U - print getLoadedLibrary(j)," is loaded.";' @5 D. A ~4 I- u0 d# h
3 r6 j5 H& r7 [) u6 x% b7 c) u- r := callLibrary(j, "calcSin", PI/6);
, G- M5 o! D8 L - promptmessage(to_str("sin(PI/6) = ", r));$ P% K* }4 g# l8 ^% n
- 8 r% F6 e- m/ \
- local str:string;
* W. T; J9 c/ k4 z0 v9 K9 p - str := "I'm OK!";* i% Z4 A8 G( ~: Z$ k' q" z
- str := callLibrary(j,"resetStr",str);: b! E4 @7 c9 {5 \, q& T, p
- promptmessage(str);
6 M$ P W4 a) U - ( [, o! @* d6 |
- callLibrary(j, "listAccess", Tablefile);
( y0 L8 d' Z1 ]' C& L) J' k6 C -
. Z4 Z" I/ K7 M9 V - print "Unloading: ", freeLibrary(j);' W4 r) h' m' P! L
- end;( d4 n- ? k! I9 P
- end;
. {% N: q& @2 N7 q0 T
复制代码 |