delphi Tidhttp error could
var
IdHTTP: TIdHTTP;
begin
IdHTTP := TIdHTTP.Create;
try
try
IdHTTP.Get('http://www.example.com');
except
on E: EIdHTTPProtocolException do
begin
ShowMessage('Protocol error occurred: ' + E.Message);
end;
on E: EIdSocketError do
begin
ShowMessage('Socket error occurred: ' + E.Message);
end;
on E: Exception do
begin
ShowMessage('An error occurred: ' + E.Message);
end;
end;
finally
IdHTTP.Free;
end;
end;