delphi 调用 dll

昨天终于把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;