- is
& y+ N! x) V H+ a) r, ?" ` - r:real; file:string;
8 \% k4 \' ^* b7 k8 n - do
: K$ z7 C+ H7 D# m: K! f2 x6 u - openConsole;
; O& v* Q& l [5 F- M g/ @' p( m - * z! @$ g9 `& {# o0 l, _2 R
- /** Q8 x7 N$ N3 a: e) Z' C* T8 Y
- file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf",
" F" G& O0 C1 ]1 A) w - when is64BitApplication then 64 else 32,0 \) c- H1 h6 Z9 \4 z3 g7 m" H
- "bit.dll");
: l. m- }0 m: Q# u G - */
. q& _1 [9 D4 o) k& | - file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";
/ I' b; L5 q8 D9 p1 C/ h G; \ - local j := loadLibrary(file);
0 m; Z$ P2 G1 w) F& N
7 U$ _" U8 ^( |; O; X% z. f1 s- if j > 0 then5 U! |# L. T; ]3 Y9 y
- print getLoadedLibrary(j)," is loaded.";
! A- u7 w3 k& L& N9 x9 J# y - + T1 _& u9 ~" w8 u$ [
- r := callLibrary(j, "calcSin", PI/6);
& f9 D9 Y- p- r8 a6 A' t0 m+ q3 e% F - promptmessage(to_str("sin(PI/6) = ", r));
6 D5 P& i6 B; j5 i8 j5 X/ ]' c2 t -
6 g) M* V8 o! o - local str:string;
9 i# B8 j6 O& b" [/ o; B- g3 a& e - str := "I'm OK!";" R0 `% C. v/ |4 }# j
- str := callLibrary(j,"resetStr",str);7 s+ b+ u0 \& p
- promptmessage(str);7 ^6 g+ y5 `2 E! g: T9 d2 ]: S! |
- 9 ^$ Y w# d. F6 ^/ Y
- callLibrary(j, "listAccess", Tablefile);
X \: _; X* L$ N; q - ) v# O0 i" [0 S- S1 f
- print "Unloading: ", freeLibrary(j);
E* G* `4 e) C - end;$ `8 Y* {1 ?" O0 V
- end; R( g2 o# Z$ F; P6 R
复制代码 |