- is
2 C$ _1 H, c" Q" `7 ?; i* i7 ` - r:real; file:string;
7 |- b7 J# \: e0 p' g5 o: X - do
9 @' ?, o4 n* R. b/ K- V( ]" a - openConsole;
7 w7 k: n" k3 y1 H* w - * D2 }7 Q1 K- T
- /*
& H- s8 W$ u$ T9 K$ L1 H - file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf",
8 ]. z3 s* Y4 y% u - when is64BitApplication then 64 else 32,
; E E3 Z4 u- a* z, M - "bit.dll");
) k& c" d& ]; O: M' v% L- f8 k - */# ?5 C- U4 O% W
- file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";1 O& |# }) O) U& E/ C, r* }
- local j := loadLibrary(file);! K" \+ I1 J* c# |8 [
- 9 B, l: g; c/ J
- if j > 0 then
. v, n; F9 j" g/ @' B - print getLoadedLibrary(j)," is loaded.";
* i( v' n j6 h - & _2 Y( c0 u; t
- r := callLibrary(j, "calcSin", PI/6);
2 c& z* Z. m, g. a3 ~, D( z/ U' S! H* ^ - promptmessage(to_str("sin(PI/6) = ", r));# S1 D* i1 W5 n+ s: |1 |
-
+ H) Y, z2 v: Q9 }) b+ a - local str:string;* f3 P v2 X3 C* x
- str := "I'm OK!";& [6 \! K$ W% E- r- v8 B" B
- str := callLibrary(j,"resetStr",str);4 m0 {! `% A6 w0 y2 R0 [
- promptmessage(str);
( E/ f# Z8 g# [, T. A -
) P9 { C9 t. z+ c - callLibrary(j, "listAccess", Tablefile);' b/ N( i* z$ F! I4 q, w( h
-
. ^: O, E4 E( B/ c; F- L - print "Unloading: ", freeLibrary(j);
) @! V( _3 c! d" h - end;
' v3 Y! ^! Q$ Y' M+ b7 d9 X8 O - end;6 J. e4 x- r( u+ \. j# c& i
复制代码 |