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;