- is
8 i, \- f+ N ~9 A7 g6 m - r:real; file:string;) K9 R3 o! Z2 V9 A: u4 E; y% x
- do
6 e7 f+ }( Z, b: } - openConsole;
: `. D" w1 p, ~- x4 q0 v - 6 x+ Y" O5 a- c$ b6 f; U4 z- J
- /*
) h2 C: k2 ?% |; J, i" _ - file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf",* p8 q6 Z" v7 ?+ R
- when is64BitApplication then 64 else 32,4 W$ x& Y0 Y( @
- "bit.dll");
- h, z2 Z( Q, L" @9 g2 Z6 Q0 h) ~ - */
1 P: C& w' ?# V - file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";; r$ x# k9 [# I! Y- Z3 {: {& P
- local j := loadLibrary(file);, u* N d' @2 W q& t0 f9 p
# m& Q& B2 z3 j f8 [, `7 Q- if j > 0 then6 v* _ U" W, B) Z- b" P" ^
- print getLoadedLibrary(j)," is loaded.";, q' V( c y2 S
, _% l1 t2 M% v8 K% u# Y! i- r := callLibrary(j, "calcSin", PI/6);, `2 s! W! A+ F$ e3 \+ M% K7 E& T, Y$ o
- promptmessage(to_str("sin(PI/6) = ", r));" ]9 h! m# u9 n L
- 6 h2 |) H9 u; M& \
- local str:string;& q$ C5 j4 M& O- T% m- E& u
- str := "I'm OK!";
! } B3 d% I1 N7 v! B0 r - str := callLibrary(j,"resetStr",str);
$ _1 d& ^5 X# i( b - promptmessage(str);
2 q, J" g9 U3 u5 m7 H% L: r5 K+ B# G -
5 @# E: @- \' o - callLibrary(j, "listAccess", Tablefile);
. ~7 c S8 k9 w7 y+ O -
; {4 s% _- J! O# R - print "Unloading: ", freeLibrary(j);+ {1 M1 u5 p9 Q* u8 h a9 f
- end;
, u& `9 u7 A6 Q& ?$ @& s h - end;4 t I& @! Q$ z8 f
复制代码 |