Einzelnen Beitrag anzeigen

Benutzerbild von SnuffMaster23
SnuffMaster23

Registriert seit: 13. Feb 2006
Ort: Kempten
253 Beiträge
 
#18

Re: Domainname bzw. IP-Adresse bekommen

  Alt 3. Okt 2006, 17:49
Naja, der Server kriegt ein Request rein, das lässt du gleich den Client wieder an den eigentlichen Ziel-Server wegschicken.

Wenn der CLient dann ne Antwort kriegt gibt der Server das als Response her.

Aber ich hab mal wieder keine Ahnung ob das geht, ich nehm ja an dass ein Proxy-Request ein getunnelter HTTP-Request ist (hab nix zu dem Thema gefunden).
Den Indy-Client hab ich noch nie benutzt.
Ich tests mal schnell

//Edit:
Also bei nem ganz schnellen Versuch krieg ich immer nur ne leere Seite zurück. Aber ich bleib dran!

Delphi-Quellcode:
procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  AResponseInfo.ContentText := IdHTTP1.Get(ARequestInfo.Host + ARequestInfo.Document);
  AResponseInfo.ContentLength := length(AResponseInfo.ContentText);
  AResponseInfo.WriteHeader;
  AResponseInfo.WriteContent;
end;
//Edit²: ALso wenn man vor ARequestInfo.Host noch 'http://' + anhängt funktionierts für Text oder Bilder allein. Bilder in Seiten werden nicht angezeigt.
Das Problem hatte ich schonmal, das liegt am ContentType.
"Conspiracy is the poor man's mapping of the world" - Fredric Jameson
  Mit Zitat antworten Zitat