- is
; M" P9 T$ W8 B, N) ]/ t - r:real; file:string;
% A* J: A6 R# d* G" V# R3 Z- k - do; x' M1 j. o$ c q; R0 } q8 c7 v% J
- openConsole;
9 y; }) w3 R0 T# n9 H - ' k" R" z1 X! E& ^6 G' [+ `
- /*
9 [! e! H& X; g N3 l+ U5 E - file := to_str(ApplicationHome, "\Plant Simulation\C-Interface\cinterf",
0 M% b4 w4 x+ i( G3 k8 }4 p1 H4 L* A - when is64BitApplication then 64 else 32,
7 r/ O# @8 s. K - "bit.dll");
8 m* T' R, }$ w3 V) h8 J$ w. z9 s - */
9 z: g. @+ B- u - file := "C:\Users\sun\Documents\Visual Studio 2010\Projects\sg64dll\x64\Debug\sg64dll.dll";
! w$ Y' i- q( E. [ - local j := loadLibrary(file);
/ n9 N( s$ n5 ^1 E) O$ N- m
$ t4 y/ Y6 l4 i% v% }- ]9 r1 E- if j > 0 then
9 P. O2 s E$ o* q$ Z - print getLoadedLibrary(j)," is loaded.";
, d, P1 m1 T( {- y, M+ m! W
2 t6 f' N4 D2 |8 U# B3 u- r := callLibrary(j, "calcSin", PI/6);0 J" U3 t" s/ {: }( K6 @% k
- promptmessage(to_str("sin(PI/6) = ", r));
9 A( o2 J. u W7 z% l8 Y; j -
5 l# V. S% x, N8 j8 C - local str:string;
! ^9 O- c$ o T- A8 q - str := "I'm OK!";
( q! ^4 B( f! E" L6 j - str := callLibrary(j,"resetStr",str);, z0 z$ H- K* h+ Y6 a. z+ s& G
- promptmessage(str);# c% |: i+ U" E& s/ X, y; k+ X
- 3 g1 \! h* Z3 s+ C3 U
- callLibrary(j, "listAccess", Tablefile);
/ C! N8 O7 I$ v3 X7 F/ F. l4 _0 D3 _% s -
* m" B. f/ } }' p! }1 F- r - print "Unloading: ", freeLibrary(j);! H# ^* \6 ?) t! l# u6 l6 [
- end;% ]4 P7 p7 j$ J) [3 ` j, `0 g6 O
- end;
: }7 W' A q$ q" L8 w3 g# T) B
复制代码 |