- is1 e: u; P R1 Z0 H
- r:real; file:string;
" X' Z9 Y2 I5 x5 k3 \. @, E - do
- [# Q; v { d8 S) c& { - openConsole;
' q8 E# d1 r3 ^# J/ t: M/ I, k* {6 U
' V& h- i% g% `" S3 a% q. h1 Z- /*2 E9 B/ ~8 T2 s, [
- file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf",
8 b2 r. @. Z) ? - when is64BitApplication then 64 else 32,, _% C6 S* Z& a3 b4 [5 [
- "bit.dll");
" c- ~3 C' d) D: } - */" k5 ~! m/ P! y" h5 q; M
- file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";
, f5 D( W/ j s* b8 c; A - local j := loadLibrary(file);9 ~ h, _7 a; u( c- b" u" q
- i+ B) z! C( V6 h/ c K" g c- if j > 0 then
+ A9 Y, A5 J+ d# ?1 Z' v$ K - print getLoadedLibrary(j)," is loaded.";& o8 B; d6 @+ W7 X" H/ R# [5 M) g. l
! y' @6 P! p, y* O3 Y- r := callLibrary(j, "calcSin", PI/6);
3 f W5 [# b! f" T8 y - promptmessage(to_str("sin(PI/6) = ", r));
l" j+ l# S+ e2 C% U$ u6 J# L -
9 p1 u6 F% G. J [$ T: e4 j - local str:string;
1 w, U0 a2 P' q( r4 _ - str := "I'm OK!";4 ]0 c4 ~! \8 d D# W8 S! ^; h$ f
- str := callLibrary(j,"resetStr",str);
9 G; Z4 p, n% }* h; ~ - promptmessage(str);9 B" `3 [. o! k/ x h
- & a- |! F/ A$ X0 M7 k. O% j: K
- callLibrary(j, "listAccess", Tablefile);
+ t5 u" k5 H9 M: y6 E - 6 N6 M. i4 z" q
- print "Unloading: ", freeLibrary(j);
, Q |+ C& Y0 u5 r. ? - end;
+ r: a" B9 U3 D8 {+ @% G9 y) M - end;% W/ M% p7 m1 L" T# N6 ~, j
复制代码 |