const
sposturl='http://lede100.wicp.net:9600/mybs/bs/testpost.php';
procedure TForm1.Button3Click(Sender: TObject);
var
postcmd:TStringList;
http:TIdHTTP;
begin
http:= TIdHTTP.Create(Application);
try
postcmd:=TStringList.Create;
postcmd.Add('autoget=1');
postcmd.Add('logintype=0');
Memo1.Text:=http.Post(sposturl,postcmd) ;
finally
FreeAndNil(http);
end;
end;
sposturl='http://lede100.wicp.net:9600/mybs/bs/testpost.php';
procedure TForm1.Button3Click(Sender: TObject);
var
postcmd:TStringList;
http:TIdHTTP;
begin
http:= TIdHTTP.Create(Application);
try
postcmd:=TStringList.Create;
postcmd.Add('autoget=1');
postcmd.Add('logintype=0');
Memo1.Text:=http.Post(sposturl,postcmd) ;
finally
FreeAndNil(http);
end;
end;