- is
5 o: y5 t" a8 z* Y% R v9 U - r:real; file:string;- w! w1 D# J* k' |
- do
C/ o' }9 {6 a6 e9 {( t4 [ - openConsole;# N9 y0 {* d: m7 g2 r' L, t
9 `" k8 x0 M* y: b+ I. z( Q- /*6 Q7 B+ ~' ~0 E
- file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf",
0 N w0 E6 l# y6 P - when is64BitApplication then 64 else 32,; j6 E& m$ e& v1 C- K+ {' o7 S
- "bit.dll");, [- k8 b2 T. o: U5 e9 g
- */
& R% L. q. O$ o9 O; x4 @# v! ? - file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";) q2 i- k2 }. F7 ]5 E
- local j := loadLibrary(file);3 `- b1 N+ @; m, j9 k( h
- 0 p, S5 I w7 W# l
- if j > 0 then7 |' ~* K8 \9 h( d4 b- ?' C
- print getLoadedLibrary(j)," is loaded.";
: s# D0 f) v$ ?$ s+ [" ~1 w# \ - 6 F5 _! ?, u2 P" t
- r := callLibrary(j, "calcSin", PI/6);% M0 Z, ]+ `; e( `/ c& e
- promptmessage(to_str("sin(PI/6) = ", r));
; v% r9 b' i+ \8 V C/ z - 2 {4 T3 V& G' s+ x
- local str:string;
) n. d/ P% w- ~, q. P; u - str := "I'm OK!";
" w7 V- J/ M6 s! p" a - str := callLibrary(j,"resetStr",str);7 B& p6 N9 F8 {" I
- promptmessage(str);/ d$ r- r2 u: W' T
- * A, R7 B1 \ ]; v3 Z5 e1 h. a
- callLibrary(j, "listAccess", Tablefile);- v7 t u1 R: B
-
4 s3 {/ J' a: I/ Q+ l - print "Unloading: ", freeLibrary(j);
1 Y" z9 Q" N. u4 _: w - end;
" z5 e% v% {! X- X# ~- R2 \3 I) x _ - end;
" y0 D$ B& C. N) G- @* v3 I6 Y8 X
复制代码 |