delphi 调用 dll

最新推荐文章于 2018-12-27 20:46:48 发布

人鱼传说

最新推荐文章于 2018-12-27 20:46:48 发布

阅读量926

点赞数

CC 4.0 BY-SA版权

分类专栏：软件开发文章标签： delphi dll integer exception function string

本文链接：https://blog.youkuaiyun.com/baronyang/article/details/5400782

软件开发专栏收录该内容

37 篇文章

订阅专栏

本文介绍了一个使用Delphi调用C语言编写的DLL的例子。重点在于如何正确声明和调用带有字符参数的函数，通过使用指针变量来传递数据。文中提供了一份完整的示例代码。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

昨天终于把delphi 调用 c写的dll成功了，通常我们声明函数传入字符型参数都是pchar型，但这回这样干就是行不通，深入研究、测试，发现要用char型参数，声明和调用代码如下：

//功能：读设备时间 function Read_Time(icdev:THandle;L_Addr:Integer;var Dev_Time:Char;var Dev_Sta:Integer):Integer;stdcall;External DllName;

以下代码是调用的过程

procedure TFrm_Main.N_ReadTimeClick(Sender: TObject); var myTime:^Char;//定义char指针变量，这就是不同之处 jg:Integer; state:^Integer; myidev:THandle; timestr:string; begin GetMem(myTime,15); MyIniCom; myidev:=ComHandle; try try if Shake_Hand(myidev,L_Addr,P_Addr)=0 then//设备握手 begin jg:=Read_Time(myidev,L_Addr,Mytime^,state^);//转入也是变量指针 if jg=0 then begin timestr:=string(myTime);//读时直接读变量内容 MessageDlg('读取成功!'+#13+ConvertTime(timestr,''),mtInformation,[mbOK],0) end else MessageDlg('读取失败!',mtError,[mbOK],0); end; finally FreeMem(myTime); CloseComm(myidev); end; except on e:Exception do begin MessageDlg('发现异常,代码:'+#13+e.Message,mtWarning,[mbOK],0); end; end; end;