- is
1 e5 c( J$ ^! j! }7 S - r:real; file:string;" A' U$ {1 q: s9 Z
- do
, ?. @: T$ y: j& _ - openConsole;
, H8 }" T5 r# v+ v! C - # C% R( J+ O6 V5 C
- /*4 k& v+ H( K. C5 `
- file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf",4 ^$ x _5 T$ z
- when is64BitApplication then 64 else 32," R9 y5 P% ^% u& P
- "bit.dll");
' ^7 d* r2 _4 n5 n - */7 o3 X* U% J+ S' F. p
- file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";
4 I8 X2 `- ~" ?2 e' h% t O) J - local j := loadLibrary(file);9 K+ E1 |- G% i. r4 h
$ ]% D+ C# I5 \- if j > 0 then
$ u) }5 w7 ?+ ^( y - print getLoadedLibrary(j)," is loaded.";2 E. ?* H( q( h2 r6 }" o
- ) p0 [/ J. W5 ?. ~
- r := callLibrary(j, "calcSin", PI/6);$ A! `5 P' N {6 W
- promptmessage(to_str("sin(PI/6) = ", r));
. e- d: s8 m+ |4 e, o: p. r& R- _ -
$ A$ I& U5 T5 G1 l/ K - local str:string;+ v3 ?$ _. z+ X' K
- str := "I'm OK!";
7 A3 Y A! J% R - str := callLibrary(j,"resetStr",str);9 @3 ]% U: a5 ^9 p
- promptmessage(str);$ U9 r; L5 ]% k
- 7 E; m f6 ~+ x& O- g v! Z% u
- callLibrary(j, "listAccess", Tablefile);
$ i3 U8 d/ z8 x% v -
, K- N) Q1 |/ V8 p/ |2 l5 ]7 `2 ^/ s - print "Unloading: ", freeLibrary(j);
9 B7 L3 ?- C/ [ - end;9 N$ \5 X# t1 V4 F. j- w3 W& ~
- end;4 S; O6 M7 A. T1 S/ r5 b. E% Z9 I" L: a2 [
复制代码 |