- is
; n/ B2 j+ h2 O& g% v1 w# K+ y& p - r:real; file:string;
8 Z* i, q8 W- o% G - do
8 G1 @3 U! p$ Z3 Z6 Z; ^0 P - openConsole;' T1 ]- f- _7 m/ @8 T
* ?7 ?# U$ m& E1 G' N- _- /** P/ r+ E* \- r
- file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf",' B3 }& {; |' h ^
- when is64BitApplication then 64 else 32,1 x& R& A2 J3 `, X! v: e2 A
- "bit.dll");2 S/ i- Y/ b6 s8 N. V# ?3 w
- */
6 C( V" W9 H% G7 D' G* B' y - file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";
! G* B9 Y- j$ B. d" E7 u# V! [9 h- \ - local j := loadLibrary(file);- ^7 Z" ~7 ~) \5 I: q
% O, t& G5 O; V" K& Q: W2 o8 k' H' A- if j > 0 then
1 G1 q2 c5 A5 ~% E, O, \" K - print getLoadedLibrary(j)," is loaded.";
( p# W9 R m/ I- ]
: Z1 N& C4 G$ M4 M5 p1 e7 `- r := callLibrary(j, "calcSin", PI/6);% q, p" p1 `3 J4 _; c" q6 |
- promptmessage(to_str("sin(PI/6) = ", r));1 p% [! @) H- G
-
( h0 p7 a3 r7 o4 T1 ?- g0 f - local str:string;& H* U' `: S* o: z$ v6 A7 w( P* q
- str := "I'm OK!";
2 w, Z: m! g( r" s, f! [) }. Q; Z - str := callLibrary(j,"resetStr",str);( S% p2 r9 p8 G4 |
- promptmessage(str);
) Y1 S+ D9 J# Q$ z& X -
4 ^& I; r7 d9 {' |. [ - callLibrary(j, "listAccess", Tablefile);
! x, P: ~3 R. i7 Z' n - 5 L" N3 W+ I0 E- L g1 v; S8 x; A
- print "Unloading: ", freeLibrary(j);9 v* f% E% r1 C. a% p) M% Z
- end;! B0 X) _. }" d# p$ \8 V
- end;
5 K5 u7 u/ e! p( M
复制代码 |