- is
5 ]# u8 I9 t3 M, t8 a - r:real; file:string;! Q% C7 |0 k$ O& d, e2 {! g0 O
- do
, [" J0 T3 G6 m. x4 u - openConsole;
& \: A. y+ x6 f; s6 k X& {, P# ]
, w+ @& e- F4 N3 Z0 c3 i- i- /*
0 C h/ ]' r* R3 u5 _: m9 b - file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf",( a W. f, X5 H F0 B
- when is64BitApplication then 64 else 32,
6 p$ B% O: X1 m+ G0 F& ?0 X. E! X - "bit.dll");/ L* _7 C8 H* {: u+ c
- */0 J) [0 p: `# V( z6 z1 y x
- file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";6 ]4 M7 a s. v$ ^/ F$ A8 [
- local j := loadLibrary(file);$ M4 _0 x; u6 K6 ]" g E$ f
- 9 s& c9 n/ H7 g, J5 O
- if j > 0 then f( C' R8 b% Q$ ~
- print getLoadedLibrary(j)," is loaded.";' X. I$ o+ S* p9 ]5 g O
7 P; y$ t1 h/ ^- r := callLibrary(j, "calcSin", PI/6);
( d5 B" d8 E. s$ O - promptmessage(to_str("sin(PI/6) = ", r));, Z/ O3 j/ }+ _: E8 M! C l* R
- 5 U4 _7 Y. g( ^% f9 o7 P
- local str:string;
+ q1 x7 V8 s8 I1 \$ C - str := "I'm OK!";, N" u7 U! B* i! H& m& h( z
- str := callLibrary(j,"resetStr",str);9 W: w4 T; x2 |9 n& J/ Y
- promptmessage(str);( `/ i5 c8 @9 G; [) N
-
# z8 |( [$ X0 r' W# a, z7 w4 ] - callLibrary(j, "listAccess", Tablefile);2 p0 W9 [2 e/ Q+ r0 Q
-
3 z" D; V: |! {7 b$ E T1 B - print "Unloading: ", freeLibrary(j);
( X g6 s) Y6 K* B - end;
0 i7 q& P% A# W# m; n - end;
# m' [* \* B: w C
复制代码 |