IdHTTP 命名空间引用
定义
idhttp1 : Tidhttp;
Param:TStringList;
RStream:TStringStream;
userid:string;
userpwd:string;
创建
try
idhttp1 := Tidhttp.create(nil);
用来接收返回的数据流。
RStream:=TStringStream.Create('');
idhttp1.HandleRedirects:=true;
定义POST参数
Param:=TStringList.Create;
userid:=inttostr(randomrange(10000,9999999999));
userpwd:=inttostr(randomrange(100000,99999999));
Param.Add('username='+userid);
Param.Add('password='+userpwd);
CS.Enter;
Tnum:=Tnum+1;访问主线程变量
CS.Leave;
idhttp1.Post(URL,Param,RStream);
RStream.Clear;
Param.Clear;
idhttp1.Disconnect;
finally
RStream.Free;
idhttp1.Free;
动态创建tidhttp组件
最新推荐文章于 2023-11-07 10:04:13 发布