作者:谁是我我2010 | 来源:互联网 | 2022-11-18 17:50
1> Remy Lebeau..:
TIdHTTP
是Indy的一个组件,它预先安装在IDE中.
如果要创建可视GUI项目,只需TIdHTTP
在设计时将组件拖放到Form/Frame/DataModule上即可.
否则,在代码中只使用它而已,你需要将添加IdHTTP
单元到您的uses
条款,和你的项目需要,要求IndySystem#
,IndyCore#
以及IndyProtocols#
包装,其中#是软件包版本号为德尔福的您的特定版本.
此外,您的代码中还有一些小错误.Post()
不是类的static
方法TIdHTTP
,所以你需要使用你的lHTTP
变量来调用它.此外,lParamList.Free
应该在自己的try..finally
块.
uses
..., IdHTTP, Dialogs;
function PostExample: string;
var
lHTTP: TIdHTTP;
lParamList: TStringList;
begin
lParamList := TStringList.Create;
try
lParamList.Add('id=1');
lHTTP := TIdHTTP.Create;
try
Result := lHTTP.Post('http://192.168.1.247:8001/test/test_api/', lParamList);
finally
lHTTP.Free;
end;
finally
lParamList.Free;
end;
end;
procedure http;
begin
ShowMessage(PostExample());
end;