- is
0 u9 o5 r I" }* Z9 q7 X+ J - r:real; file:string;
7 w: K- N G+ c3 p, W/ |2 W - do
4 T: ~+ h+ O$ N8 X - openConsole;3 A7 X8 x$ {* e" f" U
- $ I' I# D; T$ |8 A
- /*
" q) y9 s9 Q( O- t) M - file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf", b: Q1 @ ~" m# ]0 M* Z" k
- when is64BitApplication then 64 else 32,2 ]9 n+ }$ Y: D; i3 @/ G; D$ j& ^
- "bit.dll");
2 p! V5 c+ K) s4 Y( X4 J - */# d5 h( s% D3 O/ b" Q$ w! y0 ^8 P
- file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";" Y! J- S2 _$ K$ ^( r, k8 `, Q8 P5 ]
- local j := loadLibrary(file);, u7 @! d$ q8 R$ M
V$ x# X/ i( b& L* J- if j > 0 then
" i6 D- O8 ?& K8 F4 T/ t - print getLoadedLibrary(j)," is loaded.";" Z' t& s5 k6 D6 O6 K% n+ s; E
- . V: s8 a, L4 l) v; x& ?( p) E; c
- r := callLibrary(j, "calcSin", PI/6);+ K) H$ d# \, o& S+ w5 F
- promptmessage(to_str("sin(PI/6) = ", r));- u7 V( P m" t" ~6 ] ?
-
( j, \* g8 n% ~# _5 I# [ - local str:string;* @& w: q1 Q& f& r0 ]8 M4 ~5 O
- str := "I'm OK!";; [, O) F. ~2 m" g4 L9 y
- str := callLibrary(j,"resetStr",str);
4 p' R' \1 n8 h& N0 W - promptmessage(str);1 O) h) {2 m& C& l2 m
-
6 f) |0 }4 L& u h2 T - callLibrary(j, "listAccess", Tablefile);
+ E' d u/ ^7 r& C0 C( x -
& ?& I- n( U- X) d2 {, f0 U5 E/ d - print "Unloading: ", freeLibrary(j);$ P4 Q% j, s: B1 J( x8 V$ v8 F2 R
- end;
6 W: t! \. U( u( S2 r6 U - end;& u, U4 m* G* f
复制代码 |