如何使用动态连接库中参数？（超急） ( 积分: 100 )

kaga · 2005-08-20

有一个C写的动态连接库：test.dll 其中： SendMsg(  const int nNeedReply,  const char *sDestTermID, const char *sMsgContent, char *sMsgID, int *nErrorCode ); //------------------------------------------------------- 说明： 输出参数： sMsgID : if success ,message id is filled in nMsgID; nErrorCode : if Fail,error code is filled in nErrorCode 返回值： 0--OK 1--FAIL ------------------------------------------------- 本人用delphi 调用该函数，在一个独立的单元中有如下声明： //Unit uTest; interface    uses    ....  //.... function SendMsg(  nNeedReply :integer; sDestTermID

Char; sMsgContent : PChar; sMsgID : PChar; nErrorCode : Int):Integer;stdcall;external 'test.dll'; //------------------------------------------------------------ 在实现程序单元 unit main; uses  uTest,.... .... // procedure TForm1.Button1Click(Sender:TObject); var  nNeedReply : Integer;  sDestTermID : PChar;  sMsgContent : PChar;  sMsgID : PChar;  nErrorCode : Integer;  CodeList : TStrings; begin  CodeList := TStringList.Create;  nNeedReply :=1; sMsgContent := PChar('消息测试'); nErrorCode :=0; For i:=0 to CodeList.Count-1 do begin   sDestTermID := CodeList.Strings;   if SendMsg(nNeedReply,sDestTermID,sMsgContent,nErrorCode)  = 0 then     memLog.lines.add('发送成功')  else   memLog.lines.add('发送失败');  sleep(30); end; end; --------------------------------------- 结果是这样的： 当我发送第一个号码时，能成功；再第二次循环时出现问题。 问题提示为： 'Access violation at Ox00404197 : read of address Ox08631057 ' 好象是由sMsgID 引起的，或者也有可能是nErrorCode引起的。 因为这2个是DLL的输出值。 由于本人功底比较浅薄，希望能得到各位朋友的帮助，帮我看看问题应该出现在什么地方，应如何解决比较好？ 先谢谢了！

kaga · 2005-08-20

有一个C写的动态连接库：test.dll 其中： SendMsg(  const int nNeedReply,  const char *sDestTermID, const char *sMsgContent, char *sMsgID, int *nErrorCode ); //------------------------------------------------------- 说明： 输出参数： sMsgID : if success ,message id is filled in nMsgID; nErrorCode : if Fail,error code is filled in nErrorCode 返回值： 0--OK 1--FAIL ------------------------------------------------- 本人用delphi 调用该函数，在一个独立的单元中有如下声明： //Unit uTest; interface    uses    ....  //.... function SendMsg(  nNeedReply :integer; sDestTermID

Char; sMsgContent : PChar; sMsgID : PChar; nErrorCode : Int):Integer;stdcall;external 'test.dll'; //------------------------------------------------------------ 在实现程序单元 unit main; uses  uTest,.... .... // procedure TForm1.Button1Click(Sender:TObject); var  nNeedReply : Integer;  sDestTermID : PChar;  sMsgContent : PChar;  sMsgID : PChar;  nErrorCode : Integer;  CodeList : TStrings; begin  CodeList := TStringList.Create;  nNeedReply :=1; sMsgContent := PChar('消息测试'); nErrorCode :=0; For i:=0 to CodeList.Count-1 do begin   sDestTermID := CodeList.Strings;   if SendMsg(nNeedReply,sDestTermID,sMsgContent,nErrorCode)  = 0 then     memLog.lines.add('发送成功')  else   memLog.lines.add('发送失败');  sleep(30); end; end; --------------------------------------- 结果是这样的： 当我发送第一个号码时，能成功；再第二次循环时出现问题。 问题提示为： 'Access violation at Ox00404197 : read of address Ox08631057 ' 好象是由sMsgID 引起的，或者也有可能是nErrorCode引起的。 因为这2个是DLL的输出值。 由于本人功底比较浅薄，希望能得到各位朋友的帮助，帮我看看问题应该出现在什么地方，应如何解决比较好？ 先谢谢了！

kaga · 2005-08-20

另外：少了一句： CodeList.LoadFromFile('TelCode'); //即CodeList中存放了电话号码 如下格式： 057786777888 057786555666 057786222333 .....

kklili · 2005-08-20

既然第一次调用成功说明你的程序没错，会不会dll函数有问题呢

eGust · 2005-08-20

试试看这样吧，可能是传递字符串产生的错误 procedure TForm1.Button1Click(Sender:TObject); var  nNeedReply : Integer;  sDestTermID : PChar;  sMsgContent : PChar;  sMsgID : PChar;  nErrorCode : Integer;  CodeList : TStrings;  procedure Bla(S);  var  begin    if Assigned(sDestTermID) then FreeMem(sDestTermID);    sDestTermID := AllocMem(Length(S)+1);    Move(S[1], sDestTermID[0], (Length(S));  end; begin  CodeList := TStringList.Create;  nNeedReply :=1;  sMsgContent := PChar('消息测试');  sDestTermID := nil;  nErrorCode :=0;  For i:=0 to CodeList.Count-1 do  begin    //sDestTermID := CodeList.Strings;    Bla(CodeList.Strings);    if SendMsg(nNeedReply,sDestTermID,sMsgContent,nErrorCode)  = 0 then      memLog.lines.add('发送成功')    else      memLog.lines.add('发送失败');    sleep(30);  end;  if Assigned(sDestTermID) then FreeMem(sDestTermID); end;

kaga · 2005-08-20

to kklili兄： 用C写的那个API函数肯定是没有问题的，因为是中兴公司写的，而且很多公司都已经证明是能够用的，关键是，我不知道这样转换成DELPHI，是否有问题。而且第一次是发送成功的，我想应该是没有什么问题的吧。所以我就怀疑在调用函数之后，不仅有个返回值，而且还有输出参数，因为C里面是指针，而DELPHI里，我则没有去动它，不知道是否会出现地址混乱呢？

vvyang · 2005-08-20

你的声明似乎有点问题，这样是不是好点： function SendMsg(  const nNeedReply: Integer;  const sDestTermID, sMsgContent: PChar;  var sMsgID: PChar;  var nErrorCode: PInteger //改了 ): Integer; stdcall; external 'test.dll'; 调用时这样： var  nNeedReply: Integer;  sDestTermID,  sMsgContent,  sMsgID: PChar;  nErrorCode: PInteger; //改了 begin  nNeedReply := 1;  sDestTermID := 'a';  sMsgContent := '消息测试';  //我不知道你的程序怎么通过编译的，少了个参数  SendMsg(nNeedReply, sDestTermID, sMsgContent, sMsgID, nErrorCode);

kaga · 2005-08-20

多谢vvyang兄，是我不小心少写了个参数sMsgID.我会再测试一下的。

zjan521 · 2005-08-20

function SendMsg(  nNeedReply :integer; sDestTermID

Char; sMsgContent : PChar; sMsgID : PChar; out nErrorCode : Int):Integer;stdcall;external 'test.dll'; 翻译时需要根据实际意义翻译才好,因为C++中没有var这样的修饰。 var/out的效果和PInteger一样,不过如果根据实际意义翻译成var/out/const会比直接翻译成指针好的多。

chenybin · 2005-08-21

向zjan521学了一招，谢谢 nErrorCode这个是不是应该先分配内存 [blue]GetMem(nErrorCode, sizeof(Integer));[/blue] For i:=0 to CodeList.Count-1 do  begin    //sDestTermID := CodeList.Strings;    Bla(CodeList.Strings);    if SendMsg(nNeedReply,sDestTermID,sMsgContent,nErrorCode)  = 0 then      memLog.lines.add('发送成功')    else      memLog.lines.add('发送失败');    sleep(30);  end; //用完以后 [blue]FreeMem(nErrorCode, sizeof(Integer));[/blue]

kaga · 2005-08-23

to chenybin: FreeMem(nErrorCode,sizeof(Integer)); 用了该语句，在单步执行时，就发生了错误。 我其实是直接用了Integer类型的，反倒是没有任何问题。 ---------------------------------------------------- （1) 检查函数是否正确： function SendMsg(  nNeedReply :integer; sDestTermID

Char; sMsgContent : PChar; sMsgID : PChar; nErrorCode : Int):Integer;stdcall;external 'test.dll'; 这样写是否有需要额外注意的地方？？ ----------------------------------------- （2）本人后来就重新写了一次： .... try   sDestTermID := CodeList.Strings;   if SendMsg(nNeedReply,sDestTermID,sMsgContent,nErrorCode)  = 0 then      memLog.Lines.Add('Send OK')   else      memLog.Lines.Add('Send Fail '); except on E :Exception do   memLog.Lines.Add(e.message); end; ------------------------------------------ 执行结果是： 一般情况下是没问题的，但是也会偶尔出现一个意外错误。 比如循环发送600条后，一般都会有1-2个异常出现。 这说明还是有错误发生，只是本人没有能力对其进行处理（不知道是什么原因造成的）

kaga · 2005-08-23

写错了： if SendMsg(nNeedReply,sDestTermID,sMsgContent,nErrorCode)  = 0 then 应改为： if SendMsg(nNeedReply,sDestTermID,sMsgContent,sMsgID,nErrorCode)  = 0 then

zjan521 · 2005-08-24

晕菜。 function SendMsg(  nNeedReply :integer; sDestTermID

Char; sMsgContent : PChar; sMsgID : PChar; out nErrorCode : Int):Integer;stdcall;external 'test.dll'; var  nErrCode : INteger; begin  SendMsg(xxx,xxx, ..., nErrCode);

chenybin · 2005-08-24

是不是应定义成PInteger阿，定义PInteger还出错？没理由阿，听课

迷糊 · 2005-08-26

function SendMsg(  nNeedReply :integer;  sDestTermID

Char;  sMsgContent : PChar;  sMsgID : PChar;  var nErrorCode :Integer):Integer;stdcall;external 'test.dll'; 调用： var  sMsgID : PChar;  nErrorCode : Integer; getmem(sMsgID,255); if SendMsg(nNeedReply,sDestTermID,sMsgContent,sMsgID,nErrorCode) =0 then  memLog.Lines.Add('Send OK') else   memLog.Lines.Add('Send Fail '); freemem(sMsgID,255);

kaga · 2005-09-01

感谢各位兄弟对我的支持，希望下次我们能够更加愉快地交流，再次感谢！

如何使用动态连接库中参数？（超急） ( 积分: 100 )

kaga

Unregistered / Unconfirmed

kaga

Unregistered / Unconfirmed

kaga

Unregistered / Unconfirmed

kklili

Unregistered / Unconfirmed

eGust

Unregistered / Unconfirmed

kaga

Unregistered / Unconfirmed

vvyang

Unregistered / Unconfirmed

kaga

Unregistered / Unconfirmed

zjan521

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

kaga

Unregistered / Unconfirmed

kaga

Unregistered / Unconfirmed

zjan521

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

迷糊

Unregistered / Unconfirmed

kaga

Unregistered / Unconfirmed

Similar threads