函数声明为:
function WritePort2(var pdata:byte;ilen:integer):integer;stdcall;
far;external'EasyD12.dll' name 'WritePort2';
调用时如何实现呢
如
var buf:array[0..2]of byte;
begin
writeport2( 怎么写 );
end;
function WritePort2(var pdata:byte;ilen:integer):integer;stdcall;
far;external'EasyD12.dll' name 'WritePort2';
调用时如何实现呢
如
var buf:array[0..2]of byte;
begin
writeport2( 怎么写 );
end;
要结贴在本页的左边有个“我的问题”在里面选你要结的帖子,点最右边的管理!就可以了!
data: PData;
iLen: Integer;
begin
WritePort2(data, iLen);
end;应该是这样的,PData是自己定义,你要知道其类型,不过我估计data是个指针类型(因为PData),要注意使用指针前的空间分配问题,以及使用后的释放问题。
进入自己的贴子,右下角的管理,进入就能结贴了。
writeport2( buf【0】,sizeof(buf【0】));