- is c& P* S" q7 D' r4 M
- r:real; file:string;! o' u6 a' @ M2 I7 `
- do
9 e% g; E% G/ t0 d+ a P; |7 ~" Y - openConsole;
' a' B( y, y c# o& C4 m$ l; G
5 @4 O5 p; I" ^' t- /*
: @, H/ m, r- J9 v; @2 ` - file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf",
1 S: m$ x/ l# i' @4 ~+ T- } - when is64BitApplication then 64 else 32,; D- z/ y2 K9 V+ D* T5 Q U3 D
- "bit.dll");) l3 a `7 F" |7 _( t
- */, Z% c! x' ?$ h; e% @ _5 l) y6 \1 [
- file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";
4 Z' i5 R Y; N7 J, q! i3 t - local j := loadLibrary(file);
: P2 `8 v4 F. k
, ?4 M' \* J/ i' b- if j > 0 then+ B+ b) P' f3 Q+ D# E/ j3 b% p& `+ h
- print getLoadedLibrary(j)," is loaded.";
: z* ^# [- Q3 `: f& C* l - T1 Z7 ~# u% C/ l3 `* H$ K
- r := callLibrary(j, "calcSin", PI/6);7 m: r& D- `0 W6 S3 h
- promptmessage(to_str("sin(PI/6) = ", r));
( B7 S! Z$ I/ m, n$ V( }; \3 P - 3 O D6 V* m+ P8 a/ l
- local str:string;1 F% I% D2 A( m0 \1 f
- str := "I'm OK!";
+ T- Y) D5 E! v7 ~. X - str := callLibrary(j,"resetStr",str);1 C7 \* r$ t R& _' r9 t/ q
- promptmessage(str);8 \, \. t2 ^( M. p! V1 X3 R% r3 N
-
% X; ?* U4 e: {+ U* G- F - callLibrary(j, "listAccess", Tablefile);' i, t! x6 Y m& p8 |
-
+ `5 b( A5 k! l - print "Unloading: ", freeLibrary(j);8 H/ Z/ a9 |! b H
- end;
( |: J( X) |5 v2 {/ h6 l9 q - end;
# u" ?5 R& N6 k6 P4 _
复制代码 |