沒學過Delphi,只知道怎么寫簡單的dll,希望大神可以給個子程式,我復制粘貼后就可以編譯成dll了!
下面是函式定義:
function countnum(url:String,FileName:String,param:String):String;stdcall;export;
<麻煩大神補充這里的代碼!最后只要把服務器回傳的值回傳即可,謝謝了!>
end.
如圖:求Delphi大神賜教.
uj5u.com熱心網友回復：
library Project1;
uses
SysUtils, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdHTTP, Classes;
function countnum(url,FileName,param:String):String;stdcall;
var
HTTP:TIdHTTP;
ParamPost : TStringList ;
begin
HTTP:=TIdHTTP.Create(nil);
ParamPost := TStringList.Create() ;
try
ParamPost.Add(param) ;
HTTP.ReadTimeout := 30*1000 ;
Result:= HTTP.Post(url+FileName, ParamPost) ;
finally
FreeAndNil(HTTP);
ParamPost.Free() ;
end;
end;
end;
{$R *.res}
exports
countnum;
begin
end.
以上代碼未經測驗,但編譯理應無錯
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/81178.html
標籤：網絡通信/分布式開發
上一篇：虛擬機安裝好了，界面是黑色的