Thema: Delphi Proxy Programmieren

Einzelnen Beitrag anzeigen

Benutzerbild von arbu man
arbu man

Registriert seit: 3. Nov 2004
Ort: Krefeld
1.108 Beiträge
 
Delphi 7 Professional
 
#8

Re: Proxy Programmieren

  Alt 24. Feb 2007, 21:13
Em, HTTP-Server auf ne Form ziehen. Und das Event "HTTPServerCommandGet" benutzen: An die URL kommst du so herran:
URL := 'http://'+ARequestInfo.Host + ARequestInfo.Document; Dann mit der Indy HTTP Komponenten den Inhalt der Ws auslesen:
HTTP.Get(URL); Und so dann wieder an den Client übergeben:
Delphi-Quellcode:
  s := HTTP.Get(URL);
  AResponseInfo.RawHeaders.Text := HTTP.Response.RawHeaders.Text;
  AResponseInfo.WriteHeader;
  AResponseInfo.ResponseText := s;
  AResponseInfo.WriteContent;
Zwischen drin noch das Proxy zeug machen und fertig
Björn
>> http://bsnx.net <<
Virtual DP Stammtisch v1.0"iw" am 19.09.2007 - ich war dabei!
  Mit Zitat antworten Zitat