问个动态库声明的问题，C#声明，转成DELPHI声明

shuihan20e 2017-07-24 02:33:46

许久没搞DELPHI了，有个小程序，厂家给了C#的声明，翻译过来忘记了，有些类型，万能的群友帮下忙



        [DllImport("RdCard.dll")]

        extern static int UCommand1(System.Byte[] pCmd, ref int parg0, ref int parg1, ref int parg2);



function UCommand(pCmd: PByte; var Parg0: Integer; var Parg1: Integer; var Parg2: Integer): Integer; stdcall; external 'RdCard.dll';





TByte = array[0..0] of Byte;     这样声明pbyte不对吗？

...全文

138 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

shuihan20e 2017-07-24

打赏
举报

这样调用

function TForm1.InitCom(nPort: Integer; out Msg: string): BOOL;
var
  cmd: array of Byte;
  para0, para1, para2: Integer;
  ret: Integer;
begin
  SetLength(cmd, 1);
  cmd[0] := $41;
  para0 := 0;
  para1 := 8811;
  para2 := 9986;

  ret := UCommand(@cmd, para0, para1, para2);

  if (ret = 62171)or(ret = -5)or(ret = -7) then
  begin
    Msg := 'success';
    Result := True;
    //Timer1.Enabled := True;
  end else
  begin
    Msg := 'false';
    Result := False;
  end;
end;

总是失败，哪里不对？