- is
~# `1 ]9 L! t& m6 t' u - r:real; file:string;3 z% b9 k4 H# q$ d
- do
+ A" m0 S. q: t- P - openConsole;
% O8 M* j7 B/ S# F2 Z9 ^" } - : w. }! Z2 R- r" d) A
- /*
: v; a0 |$ ^9 E Q - file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf",8 M5 v3 u4 W {' f. b: E& O
- when is64BitApplication then 64 else 32,) _1 I! R' `6 |5 {
- "bit.dll");
0 X/ y1 _4 C# T1 D" ^/ h" h - */; e( k+ j% D5 M$ n/ s5 z! f
- file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";
/ o4 L) R4 f( ]5 h2 p6 V - local j := loadLibrary(file);; Y1 S1 M& d. `% i1 p9 c
: J" h0 U9 J8 N! m5 {- if j > 0 then
* T3 F% I! Q- q - print getLoadedLibrary(j)," is loaded.";
; O5 T) o4 z% I+ w! {. }: Z9 A0 f - / v5 ` l1 d A# k- u7 B8 f- }
- r := callLibrary(j, "calcSin", PI/6);/ K3 q5 W! v6 d6 m1 w$ j# `3 _$ w9 M
- promptmessage(to_str("sin(PI/6) = ", r));
9 s& c X% H6 M -
# U2 `3 m2 u& I - local str:string;
1 I3 }% j* r. @3 F, h4 Q - str := "I'm OK!";1 }) ^) A! R- t$ _3 s
- str := callLibrary(j,"resetStr",str);0 Q% h, O/ j4 o( A2 N8 T- m* k/ E" w
- promptmessage(str);
x# `- ] S$ f+ {( g -
+ u: w! g/ }, S* M3 f. H - callLibrary(j, "listAccess", Tablefile);7 [; T, k1 z% D$ t5 u5 D- |
- 7 t, ]. F4 K0 k* y6 }0 U! m
- print "Unloading: ", freeLibrary(j);
1 [& F8 F" c) V9 }5 Z# D5 p, C! W - end;
9 `& `* u4 @( C6 U0 F% v6 d h - end;* G% C7 U5 n4 \5 N0 a9 V
复制代码 |