- is
: l$ K$ b" ?- @5 y/ h" u - r:real; file:string;2 r7 j; P8 t: Z' R
- do
4 `( {2 h! p$ \; y - openConsole;
, y; N- @. y" u/ k8 O' I/ k2 r
; s5 G2 d$ W9 H' j) f- /*
" i4 v, k& u* j1 J; ^( }- N! z3 ]1 j - file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf",
3 x6 y' K; R2 N3 y8 c- f - when is64BitApplication then 64 else 32,9 g" D* w0 t* T7 c* N5 X
- "bit.dll");
; r0 s m5 t0 z7 z - */+ J3 J' n g' ]& W
- file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";
% j2 Y5 j5 M- ?0 q5 s' }$ F* T - local j := loadLibrary(file);* [+ p9 j# {. Z1 E2 L8 `, ?
- / `* a' O; K; @$ f+ O
- if j > 0 then
' ?8 Q3 N: r5 e - print getLoadedLibrary(j)," is loaded.";5 Q: m3 U& p/ O. Z8 ^8 O- ~
- : r+ a, J3 `" @! j9 m8 [ K6 J
- r := callLibrary(j, "calcSin", PI/6);3 z" T) v( m$ i0 ^$ k1 S$ X0 v
- promptmessage(to_str("sin(PI/6) = ", r));7 ?- B7 u& Q3 T) R
- 0 w0 y* ~7 D6 Z; I
- local str:string;0 W& [6 U( q% A& L
- str := "I'm OK!";! o( o% l- L0 |# d
- str := callLibrary(j,"resetStr",str);- W* ~4 I* U @7 \, \$ P
- promptmessage(str);! b) _9 [3 ?/ X. f9 a( {4 r6 g
-
/ i1 W4 T( T( D8 W: ?; } - callLibrary(j, "listAccess", Tablefile);
, n) a M2 w1 [ - & i! y. Y1 b7 f8 t; q$ ~' P
- print "Unloading: ", freeLibrary(j);: _2 h D; D) c7 j* U
- end;4 ?0 T) R4 \8 q/ @: Q
- end;
* `" W8 O9 K: a" y+ H% j' ]
复制代码 |