Proxy Programmieren

[easteregg]

Hi,

da ich mit meinen notebook öfters in allen möglichen netzen hin und her wechsel, und nicht überall per hand meine ganzen programme anpassen möchte, würde ich mir gerne ein programm schreiben, welches mir einen zwischenproxy erstellt.

sprich ich trage in meinen browser als proxy zb 127.0.0.1:8080 ein und im proxyprogramm selbst dann mithilfe von profilen den richtigen proxy (zb 192.168.2.1:8080).

mein problem ist aber, das ich keine ahnung habe, wie ich diesen proxy schreiben muss / kann.
gibts da fertige komponenten?

danke schonmal,
gruß Richard

[arbu man]

Bei den Indys ist eine HTTP Proxy Komponente dabei

[easteregg]

wirklich?
da muss ich nochmal schauen, weil die hab ich nicht gefunden.
war das erste was ich geschaut hatte

aber danke für den hinweis

[easteregg]

Mist
der proxy funktioniert zwar, unterstützt aber keinen parent proxyserver
was mach ich nun?

hat da jemand mal ne idee oder noch besser, ne andere komponente?

[easteregg]

+push+

[arbu man]

Benutze den TIdHTTPServer als Proxy

mfg, Björn

[easteregg]

wie genau stellst du dir das vor? ich hab jetzt mal 5 minuten drüber nachgedacht, aber irgendie keine idee gehabt, wie ich das umsetzen soll!
wäre dankbar, wenn du mir da mal nen vorschlag gibts

[arbu man]

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

[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