函数声明为:
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;

解决方案 »

  1.   

    writeport2( buf[],b );   //a必须是pdata类型的!b必须是integer类型的!
    要结贴在本页的左边有个“我的问题”在里面选你要结的帖子,点最右边的管理!就可以了!
      

  2.   

    var
      data: PData;
      iLen: Integer;
    begin
      WritePort2(data, iLen);
    end;应该是这样的,PData是自己定义,你要知道其类型,不过我估计data是个指针类型(因为PData),要注意使用指针前的空间分配问题,以及使用后的释放问题。
    进入自己的贴子,右下角的管理,进入就能结贴了。
      

  3.   

    调用这个函数直接写就可以了,后面的不用管如
    writeport2( buf【0】,sizeof(buf【0】));