06/02/23 00:23:31
受信を中断するのってDisconnectでいいの？
procedure TForm1.Button1Click(Sender: TObject);
var
url: string;
begin
url := 'URLﾘﾝｸ(www.hoge.com)';
try
Memo1.Lines.Text := IdHTTP1.Get(url);
except
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
IdHTTP1.Disconnect;
end;