🚀 go-pugleaf

Hi Remy,
> Not only that, but IE's proxy configuration is global, meaning that
setting
> up IE to use a proxy server is going to effect all browser windows through
> your whole machine, not just your particular program.
It's good for me because all the traffic should be logged.

> What do you mean by "manage" exactly?
I would like to lock some sites or redirect some others.
I suppose i can do that replacing some strings from downloaded files before
to sent to the requester.

If you have the time, I write a snip of code below.
I have a TIdTCPServer that listen on a port.
on it's OnExecute it creates a TThread descendant with a TIdTCPClient inside
that will ask to the remote server, elaborate the response and resend back
to the requester.
But in some cases it doesn't work properly.

Thanks for any tip.

Lapo

------------------------
void __fastcall TForm1::ServerExecute(TIdPeerThread *AThread)
{
  TProxyConnection *Proxy=new TProxyConnection(AThread->Connection, Log);
  Proxy->WaitFor();
  delete Proxy;
}
//--------------------------------------------------------------------------
-
__fastcall TProxyConnection::TProxyConnection(TIdTCPServerConnection
*AReqConnection, TMemo *ALogMemo)
  : TThread(true)
{
  FreeOnTerminate=false;
  ReqConnection=AReqConnection;
  LogMemo=ALogMemo;
  RemData="";
  Resume();
}
//--------------------------------------------------------------------------
-
void __fastcall TProxyConnection::Execute()
{
  AnsiString RawData="";
  try {
    try {
      // Get the requested string
      RawData=ReqConnection->CurrentReadBuffer();
      if(RawData.Length()>0) {
        RemData="From Local\r\n"+RawData;
        Synchronize(Log);
        RemData="";

        // Get RemoteHost and Port
        AnsiString Host;
        int Port;
        int pos=0;
        pos=RawData.Pos("Host: ");
        if(pos) {
          Host=RawData.SubString(pos+6, 4096);
          int pos=1;
          while(!Host.IsDelimiter("\r\n\0", pos))
            pos++;
          Host.SetLength(pos-1);

          pos=Host.Pos(":");
          if(pos) {
            AnsiString PortStr=Host.SubString(pos+1, 5);
            Port=StrToInt(PortStr);
            Host.SetLength(pos-1);
          }
          else {
            Port=80;
          }

          if(Host.Length()>0 && Port) {
            // Create the Client socket
            Client=new TIdTCPClient(NULL);
            // Connect to the remote host
            Client->Host=Host;
            Client->Port=Port;
            Client->Connect(5000);
            // Send the requested string
            Client->Write(RawData);

            // Get the response string
            RemData="";
            while(Client->Connected()) {
              RemData=RemData+Client->CurrentReadBuffer();
            }
            ResData=RemData;
            // Log the response string
            RemData="From Remote\r\n"+RemData;
            Synchronize(Log);
            RemData="";

            // Send back the response string
            ReqConnection->Write(ResData);
          }
        }
      }
    }
    catch(...) {
      RemData="ERROR \r\nRawData:"+RawData+"\r\nRemData:"+RemData;
      ReqConnection->Disconnect();
      Synchronize(Log);
    }
  }
  __finally {
    delete Client;
  }
}
//--------------------------------------------------------------------------
-
void __fastcall TProxyConnection::Log(void)
{
  LogMemo->Lines->Add(RemData);
}
//--------------------------------------------------------------------------
-
void __fastcall TForm1::NavigationClick(TObject *Sender)
{
  AnsiString UrlStr="http://www.yahoo.com";
  Web->Navigate(WideString(UrlStr), TVariant(0), TVariant(""), TVariant(""),
TVariant("\r\n"));
  Web->SetFocus();
}
//--------------------------------------------------------------------------
-