delphi 写一个post请求子程序,我想编译成dll,求大神帮忙.

Question

没学过Delphi,只知道怎么写简单的dll,希望大神可以给个子程序,我复制粘贴后就可以编译成dll了!
下面是函数定义:function countnum(url:String,FileName:String,param:String):String;stdcall;export;
<麻烦大神补充这里的代码!最后只要把服务器返回的值返回即可,谢谢了!>
end.如图:求Delphi大神赐教.

Answer 1

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.以上代码未经测试,但编译理应无错