Proxy Programmieren

[arbu man]

So hab es jetzt raus wie es richtig geht:

Delphi-Quellcode:

procedure TNXProxyWindow.HTTPServerCommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  URL, s: string;
begin
  URL := 'http://'+ARequestInfo.Host+ARequestInfo.Document;
  try
    while HTTP.Tag=1 do Application.ProcessMessages;
    HTTP.Tag:=1;
    s := HTTP.Get(URL);
    AResponseInfo.ContentText := s;
    AResponseInfo.ContentType := HTTP.Response.ContentType;
    HTTP.Tag:=0;
  except
    // Handle Errors
  end;
  // Loging
  // ...
end;

mfg, Björn