- is5 Y: v( @ m {0 {! i
- r:real; file:string;6 ]6 C+ [" {1 h
- do7 A/ u0 h2 {! {; u7 b
- openConsole;7 Q6 c8 W3 n" \ X1 R
- - M; S+ T9 }- I' g: S
- /*
8 m: H; ?' h q3 | - file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf",
4 i; t- g$ U5 E' E - when is64BitApplication then 64 else 32,
. m1 d% v6 W+ w/ H, S. P - "bit.dll");
+ I& a; h8 E/ B$ ]; I/ B* O! A - */
2 I# ~9 T" F+ b- u' Q3 x6 E - file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";
0 E+ a1 p# g% {9 X - local j := loadLibrary(file);
2 a: m+ e( {! P8 U( y/ _4 { - + [ D4 W/ X, |7 u7 U) G# y5 q! F$ g' e# }
- if j > 0 then
8 l1 @0 ]3 G. V# Y5 P - print getLoadedLibrary(j)," is loaded.";
6 W7 [& T7 b% r* r) Y2 F - / ]3 g6 O; J; u5 Q2 @5 G
- r := callLibrary(j, "calcSin", PI/6);
6 K5 z, @ W, G8 z/ N \# `" S9 Z0 z4 x - promptmessage(to_str("sin(PI/6) = ", r));
/ _0 l- N% q6 E+ |0 ` -
5 a4 ] X/ \9 N& ]6 a - local str:string;- ?% O+ h9 J; j* @4 u
- str := "I'm OK!";8 [+ s& K, \$ o' L7 i/ ^
- str := callLibrary(j,"resetStr",str);
9 P0 F; w* d7 Z8 d - promptmessage(str);
6 T9 i& J/ r, J- l. V2 c5 g -
: R; I( u% [1 r9 y: w8 D - callLibrary(j, "listAccess", Tablefile);
& t9 K: |/ b$ ?' E& @/ ]0 s5 h - % ]& u+ t5 \- x5 z9 r4 P3 v3 ` N
- print "Unloading: ", freeLibrary(j);
* e, `, |/ H: h+ E& S - end;
: I' j6 D) i$ v3 R5 g% k# [; E - end;% @& [. H6 M( l9 `6 O1 y+ a* E
复制代码 |