1,183
社区成员
发帖
与我相关
我的任务
分享
uses
System.SysUtils,
System.Classes;
{$R *.res}
type
TArr2 = array[0..3] of single;
PArr2 = ^TArr2;
Function MyFunc(s:single):array[0..3] of single;
var arr:array[0..3] of single;
begin
//new(arr);
arr[0]:=s;
arr[1]:=s;
arr[2]:=s;
arr[3]:=s;
Result:= arr;
// dispose(arr);
end;
exports
MyFunc;
begin
end.
//主程序定义一个数组
var
n_Im: Array[1..6] of Word;
//程序中调用DLL函数
Get_Data( $280, n_Im, 100 );
//这样就可以在数组中传递出数据,在后边使用
[/quote]早上决定放弃JNA了,改用delphi//主程序定义一个数组
var
n_Im: Array[1..6] of Word;
//程序中调用DLL函数
Get_Data( $280, n_Im, 100 );
//这样就可以在数组中传递出数据,在后边使用
procedure Get_Data(BaseAddr: Word;var Data: Array of Word;WaitTime: Integer);