delphi - que - servidor proxy gratis

Cómo reenviar la solicitud a otro servidor proxy utilizando TIdHTTPProxyServer(cadena de proxy)

Question

actualmente quiero hacer que mi servidor proxy indy reenvíe la solicitud a otro servidor proxy. Encontré este enlace y lo intenté solo. Pero mi código no funciona sin ningún mensaje de error como si no hubiera hecho ningún cambio. Mi código es el siguiente en C ++ XE2.

void __fastcall TForm3::MyProxyHTTPBeforeCommand(TIdHTTPProxyServerContext *AContext)
{
    TIdIOHandlerStack* tempIO = new TIdIOHandlerStack(NULL);

    TIdConnectThroughHttpProxy* tempProxy = new TIdConnectThroughHttpProxy(NULL);
    tempProxy->Enabled = true;
    tempProxy->Host = "localhost";
    tempProxy->Port = 8181 ;
    tempIO->TransparentProxy  =  tempProxy;
    AContext->OutboundClient->IOHandler =  tempIO;

}

Answer 1

Finalmente encontré que hice algo estúpido. El código correcto debería ser el siguiente ...

void __fastcall TForm3::MyProxyHTTPBeforeCommand(TIdHTTPProxyServerContext *AContext)
{
    TIdIOHandlerStack* tempIO = new TIdIOHandlerStack(AContext->OutboundClient);

    TIdConnectThroughHttpProxy* tempProxy = new TIdConnectThroughHttpProxy(AContext->OutboundClient);
    tempProxy->Enabled = true;
    tempProxy->Host = "localhost";
    tempProxy->Port = 8181 ;
    tempIO->TransparentProxy  =  tempProxy;
    AContext->OutboundClient->IOHandler =  tempIO;