delphi - TIdHTTPProxyServer（プロキシチェーン）を使用してリクエストを別のプロキシサーバーに転送するにはどうすればよいですか？

Question

現在、インディプロキシサーバーにリクエストを別のプロキシサーバーに転送させたいと思っています。私はこのリンクを見つけて、自分で試してみました。しかし、私のコードは、変更を加えていないかのようにエラーメッセージなしでは機能しません。私のコードは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

ついに私は愚かなことをしたことに気づきました。正しいコードは次のようになります...

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;