请教Delphi 调用 c的DLL,参数传递问题

2009-04-16 10:33:02 240 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

PowerBuilder调用Delphi写的Dll时发生的奇怪问题。因项目需要，我用Delphi写了一个连接数据库把数据导出到Sql文件的dll，其中使用了TADOQuery组件。其中只有一个导出方法：function DataExport(path,ini_path:PChar):integer; 写完之后，用delphi写了一个test.exe进行测试，发现可以正常使用。之后便把这个dll交给了同事，让他在PowerBuilder中调用。同事拿过去之后阅读详情

有一动态库中一函数.h中的原型是
extern "C" __declspec(dllimport) short __stdcall gCPUCommand(stAPDU *APDU , char *SW, char *Data, char *pchErrMsg);

typedef struct
{
char cla[3];
char ins[3];
char p1[3];
char p2[3];
char p3[3];
char data[256];
}stAPDU;
他声明的是（DLL开发说明）
函数名 short gCPUCommand(char *APUD, char *SW, char *Data, char *pchErrMsg)

C++BUILDER中的调用方法如下：
stAPDU APDU;
char chErrMsg[256],SW[10],,Data[128];
short ret; memset(chErrMsg,'\0',256);
memset(Data,'\0',128); memset(SW,'\0',10);
memset(State,'\0',3);
strcpy( APDU.cla, '00'); strcpy( APDU.ins ,'00');
strcpy( APDU.p1 , '00'); strcpy( APDU.p2 , '00');
strcpy( APDU.p3 , '00'); strcpy( APDU.data , '00');
ret = gCPUCommand( (stAPDU *) &APDU,SW,Data,chErrMsg);//正常

我写的调用方法：
方法1
CommData:pchar;
CommData:=pchar('0084000008');
ulRet := gCPUCommand(CommData,SW,pbReData,pchErrMsg);//返回Command BCC Verify Error
方法2
type sApdu=packed record
cla: pchar ;
ins : pchar ;
p1: pchar ;
p2 : pchar ;
p3 : pchar ;
data : pchar ;
end;
PsendComm=^sapdu;

sendComm:PsendComm;
sendComm^.cla:=pchar(Copy(pbSendBuf,1,2));
sendComm^.ins :=pchar(Copy(pbSendBuf,3,2));
sendComm^.p1 :=pchar(Copy(pbSendBuf,5,2));
sendComm^.p2 :=pchar(Copy(pbSendBuf,7,2));
sendComm^.p3 :=pchar(Copy(pbSendBuf,9,2));
sendComm^.data :=pchar(Copy(pbSendBuf,11,length(pbSendBuf)));
ulRet := gCPUCommand(@sendComm,SW,pbReData,pchErrMsg);//返回Command BCC Verify Error

是不是参数传错了？

...全文

delphi dll 使用 unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm2 = class(TForm) btn_1: TButton; procedure btn_1Click( 阅读详情

SaibeiStar

语言基础/算法/系统设计 16,741 成员 33,233 内容

+ 关注 + 加入社区

切换为时间正序

SaibeiStar 2009-04-20

打赏
举报

ret = gCPUCommand( (stAPDU *) &APDU,SW,Data,chErrMsg);c++builder的这种调用方法与Delphi中
ulRet := gCPUCommand(@sendComm,SW,pbReData,pchErrMsg);的调用方法不是一样吗？难道DELHI中的参数还是不对？

SaibeiStar 2009-04-20

打赏
举报

还是不行，估计还是参数传的不对
c++builder 这样传就没问题：
strcpy( APDU.cla ,Edit6->Text.c_str());
strcpy( APDU.ins ,Edit7->Text.c_str());
strcpy( APDU.p1 , Edit8->Text.c_str());
strcpy( APDU.p2 , Edit9->Text.c_str());
strcpy( APDU.p3 , Edit10->Text.c_str());
strcpy( APDU.data , Edit11->Text.c_str());
StatusBar1->Panels->Items[1]->Text = "Current Operate：Common Command For CPU";

ret = gCPUCommand( (stAPDU *) &APDU,SW,Data,chErrMsg);

xiaoxiao_8 2009-04-20

打赏
举报

type
stAPDU = packed record
cla :array[0..3-1] of AnsiChar;
ins:array[0..3-1] of AnsiChar;
p1:array[0..3-1] of AnsiChar;
p2:array[0..3-1] of AnsiChar;
p3:array[0..3-1] of AnsiChar;
data:array[0..256-1] of AnsiChar;
end;

僵哥 2009-04-20

打赏
举报

function gCPUCommand(APDU :LPAPDU; SW, Data, pchErrMsg: AnsiChar): smallint;stdcall; external *.dll;这个自己写

僵哥 2009-04-20

打赏
举报

type

stAPDU = record

    cla :array[0..3-1] of AnsiChar; 

    ins:array[0..3-1] of AnsiChar; 

    p1:array[0..3-1] of AnsiChar; 

    p2:array[0..3-1] of AnsiChar; 

    p3:array[0..3-1] of AnsiChar; 

    data:array[0..256-1] of AnsiChar; 

end; 

LPAPDU = ^stAPDU;

function gCPUCommand(APDU :LPAPDU; SW, Data, pchErrMsg: AnsiChar): smallint;stdcall;

var

    APDU:stAPDU; 

    chErrMsg:array[0..256-1] of AnsiChar;

    SW:array[0..10-1] of AnsiChar

    Data: array[0..128-1] of AnsiChar; 

    ret: SmallInt;

begin

    fillchar(chErrMsg,256,0); 

    fillchar(Data,128,0);

    fillchar(SW,10,0); 

    fillchar(State,3,0); 

    strpcpy( APDU.cla, '00');    strpcpy( APDU.ins ,'00'); 

    strpcpy( APDU.p1 , '00');    strpcpy( APDU.p2 , '00'); 

    strpcpy( APDU.p3 , '00');    strpcpy( APDU.data , '00'); 

    ret := gCPUCommand( @APDU,SW,Data,chErrMsg);

SaibeiStar 2009-04-20

打赏
举报

有知道的吗？

starluck 2009-04-16

打赏
举报

StrCopy

SaibeiStar 2009-04-16

打赏
举报

TO starluc

ulRet := gCPUCommand(sendComm,SW,pbReData,pchErrMsg);//返回Command BCC Verify Error
参数传sendComm能执行？

改成cla: array[0..2] of char;
赋值
strlcopy(@sendComm^.cla,pchar(Copy(pbSendBuf,1,2)),sizeof(sendComm^.cla)-1);

执行还是不正确

SaibeiStar 2009-04-16

打赏
举报

我原来也是定义成cla: array[0..2] of char;
这样怎么赋值呢？sendComm^.cla:=pchar(Copy(pbSendBuf,1,2)); ？

SaibeiStar 2009-04-16

打赏
举报

我是这样定义的 function gCPUCommand(APUD:PChar;SW:PChar;Data:PChar;pchErrMsg:PChar ):integer;stdcall; external '***.dll';

starluck 2009-04-16

打赏
举报



typedef struct 

{ 

    char cla[3]; 

    char ins[3]; 

    char p1[3]; 

    char p2[3]; 

    char p3[3]; 

    char data[256]; 

}stAPDU; 







//搞個對齊做什麼？？





type sApdu =record 

   cla: array[0..2] of char;

    ins : array[0..2] of char; 

    p1:  array[0..2] of char ; 

    p2 :  array[0..2] of char ; 

    p3 : arraya[0..2] of char ; 

    data : array[0..255] of char; 

end; 



PsendComm=^sapdu; 



sendComm:PsendComm; 

  sendComm^.cla:=pchar(Copy(pbSendBuf,1,2)); 

  sendComm^.ins :=pchar(Copy(pbSendBuf,3,2)); 

  sendComm^.p1 :=pchar(Copy(pbSendBuf,5,2)); 

  sendComm^.p2 :=pchar(Copy(pbSendBuf,7,2)); 

  sendComm^.p3 :=pchar(Copy(pbSendBuf,9,2)); 

  sendComm^.data :=pchar(Copy(pbSendBuf,11,length(pbSendBuf)));  

  ulRet := gCPUCommand(sendComm,SW,pbReData,pchErrMsg);//返回Command BCC Verify Error

请教Delphi 调用 c的DLL,参数传递问题

相关推荐