🚀 go-pugleaf

"Lapo Guidi" <lapoguidi@inwind.it> wrote in message
news:41682b12$1@newsgroups.borland.com...

> I already tried to use it, but how can I set its
> MappedHost and MappedPort when the
> browser send a request?

Use the OnConnect event for that, ie (untested):

    void __fastcall TForm1::IdMappedPortTCP1Connect(TIdMappedPortThread
*AThread)
    {
        // read requested address from the browser...
        AnsiString Request = AThread->Connection->ReadLn(LF,
IdTimeoutDefault, -1);

        AnsiString Command = Fetch(Request, ' ', true, false);
        AnsiString URL = Fetch(Request, ' ', true, false);
        AnsiString Version = Request;

        TIdURI *uri = new TIdURI(URL);
        try
        {
            // update the outbound client accordingly...
            TIdTCPClient *client =
static_cast<TIdTCPClient*>(AThread->OutboundClient);
            client->Host = uri->Host;
            client->Port = uri->Port.ToIntDef(80);

            AThread->NetData = (Command + " " + URL.SubString(8, MaxInt) + "
" + Version);
        }
        __finally {
            delete uri;
        }
    }

    void __fastcall
TForm1::IdMappedPortTCP1OutboundConnect(TIdMappedPortThread *AThread,
Exception *AException)
    {
        if( AException == NULL )
        {
            if( AThread->NetData.Length() )
                AThread->OutboundClient->WriteLn(AThread->NetData);
        }
        else
        {
            AThread->Connection->WriteLn("500 " + AException->Message);
        }
    }

Also, for what it is worth, the current development snapshot of Indy 9 has a
TIdHTTPProxyServer unit available that you might consider looking at as
well.  It is not installed by default.


Gambit