- is
3 G! H+ u) F5 L2 U! ~2 G( y2 Q4 j - r:real; file:string;
+ p7 D, g/ o2 v2 a4 G. r& a - do# Q' R6 e! A7 f+ O8 Z, ]
- openConsole;, v% I6 e( |3 a& I; N% U2 \
9 J7 Y7 G1 E# e' n! P, J' ~# z0 I" t- /*
/ X! @" r2 l& O% T8 M7 Y - file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf",6 B# P# u0 O1 o7 t& `
- when is64BitApplication then 64 else 32,
, D- J7 W3 K# E; P* k; S- T - "bit.dll");* R8 p1 @$ s. |# C4 A
- */
. }9 p9 p' K: U& }- [# L - file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";
& K4 E, r( I% V o$ U- _- [- y( q - local j := loadLibrary(file);
n. j" ^/ P# z3 P
8 l# [3 l0 _6 d( W: P% @! A* d- if j > 0 then
) ]5 j; ~: w0 t, ^. w" Q - print getLoadedLibrary(j)," is loaded.";3 m5 { l- q9 i/ u! Y1 @ J
- * K/ a8 v! p ^$ G `
- r := callLibrary(j, "calcSin", PI/6);7 z1 I* h" v- s
- promptmessage(to_str("sin(PI/6) = ", r));
0 P$ T( J2 z9 j1 X7 u9 r) ]& n -
4 L; n- W2 E( l - local str:string;! T) }0 a0 r$ o- R8 L" z$ O }
- str := "I'm OK!";$ G0 P5 T4 V8 G' n1 P
- str := callLibrary(j,"resetStr",str); ~4 x+ k. c( \; S9 \9 [
- promptmessage(str);
4 C" j, F. V' z; Z6 F$ B -
$ }4 e: {1 L' N# W7 [$ M. `, v9 l - callLibrary(j, "listAccess", Tablefile);2 S" L) r; z3 }; j) l3 r# L
-
! Q4 L8 C! k' t# g: y - print "Unloading: ", freeLibrary(j);
) O+ ] U* j% C6 a5 H" e - end;$ J8 a1 L2 Z- {3 ]! S0 v3 o1 G
- end;
5 r& G% O' I! U7 @! U: y; q% A
复制代码 |