本帖最后由 jhting 于 2009-09-19 11:06:47 编辑

解决方案 »

  1.   

    补充一个重要的:       我在 interface 声明 和 一个具程之中 也会失败,
     只有在 implementation 中的 var 中 声明 这个参数才能成功
      

  2.   

    声明改一下
    function ConnetDrv(DrvSnr,DrvType:byte;sRt:PByte;TCP:Byte;dNum:Pword;dvar:PByte;dSType:PByte;tOver:word):Byte;stdcall;external yktCOMAPI; 调用的时候ErrNum:=ConnetDrv(dDrvSnr,dDrvType,@sRt,dTCP,@ddNum,@dVar,@dsType,dtOver)试试