delphi idhttp的用法

本文整理自网络，侵删。

 
idhttp的用法

1）POST

function PostMethod(http: TIDhttp; URL: string; Params: TStringList): string;
var
RespData: TStringStream;
begin
RespData := TStringStream.Create('');
try
try
if http = nil then
Exit;
Http.Post(URL, Params, RespData);
Result := RespData.DataString;
http.Request.Referer := URL;
except
Result := '';
Exit;
end;
finally
http.Disconnect;
FreeAndNil(RespData);
end;

2）GET

function GetMethod(http: TIDhttp; URL: string): string;
var
Resp: TStringStream;
begin
Resp := TStringStream.Create('');
try
try
Http.Get(URL, Resp);
Http.Request.Referer := URL;
Result := Resp.DataString;
except
Result := '';
Exit;
end;
finally
FreeAndNil(Resp);
end;
end;


end;
 

相关阅读 >>

Delphi 使用openjdk进行Delphi android开发

Delphi 多线程 开始、暂停、继续、停止

Delphi - 右滚动文字

Delphi 代码查询一个 ip 地址的归属地

Delphi 正则表达式的匹配模式

Delphi 字符串前后翻转

Delphi tthread中文注释

Delphi用多媒体库 bass.dll 播放 mp3 - 打开、播放、暂停、停止

Delphi整理三（窗体和基本组件）

Delphi getmodulefilename函数的用法(可以获取项目的路径，桌面的路径，我的文档的路径)

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi idhttp的用法