Hi,
Ich programmieren mit Hilfe von TIdHTTPServer und TIdHTTP einen HTTP-Proxy...
das ganze sieht bisher in etwa so aus:
Delphi-Quellcode:
procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var URL:
String;
begin
URL:='
http://'+ARequestInfo.Host+ARequestInfo.Document+CreateParamList(ARequestInfo.Params);
AResponseInfo.ContentText:=IdHTTP1.Get(
URL);
end;
Das ganze funktioniert auch für google.de gut.
Nur unsere gute alte delphipraxis bricht dem ganzen leider das Genick.
bei unterschiedlichen Dateien wirft er auf einmal folgende
Exception: "Im Projekt Project1.exe ist eine
Exception der Klasse EIdSocketError mit der Meldung 'Socket Error # 10022 Invalid argument.' aufgetreten."
Das ganze tritt allerdings NICHT auf, wenn ich zwischen jeder Datei eine ShowMessage bestätige.
Ich vermute daher das der aufruf der nächsten Datei einfach schneller kommt als IdHTTP die Datei vorher fertig hat, und dann einfach ne
Exception wirft.
Kann ich das irgendwie abfragen ob IdHTTP noch am basteln ist?
oder direkt vermeiden?