Sorry, bin eher noch Delphi-Anfänger...
Ich möchte einfach nur eine Webseite laden und habe folgenden Code:
Delphi-Quellcode:
function TSDIAppForm.ReadSite(
URI:
string):
string;
var
idClient: TIdHTTP;
msData: TMemoryStream;
ResultString:
String;
begin
begin
idClient := TIdHTTP.Create(Application);
msData := TMemoryStream.Create;
try
idClient.Get(
URI, msData);
msData.Seek(0, soFromBeginning);
ResultString := StreamToString(msData);
except
//nix
end;
idClient.Free;
msData.Free;
result := ResultString;
end;
end;
Das Problem ist, dass es bei manchen Seiten funktioniert und mir den Quelltext schön zurückgibt.
Nur bei Seiten wie Google.de oder ähnlichen wirft mir Delphi eine
Exception mit der Klasse ERangeError mit der Meldung "Range check error" aus und bleibt in der Zeile
msData.Seek(0, soFromBeginning);
hängen. Was kann ich tun, um das zu verhindern? Im Web habe ich nichts dazu gefunden...