🚀 go-pugleaf

I'm trying to develop an HTTPS proxy, but i simply can't pass the data 
between
sockets . ReadBuffer and WriteBuffer are not working.

Any ideas ? Thanks in advance.


Thanks in advoid __fastcall TForm1::IdTCPServer1CommandConnectCommand(
      TIdCommand *ASender)
{
 TIdTCPClient *Client = new TIdTCPClient(NULL);
 try
 {
  String aux = 
ASender->UnparsedParams.SubString(1,ASender->UnparsedParams.Pos(" ")-1);
  Client->Host = aux.SubString(1,aux.Pos(":")-1);
  Client->Port = aux.SubString(aux.Pos(":")+1,aux.Length()).ToInt();

  Client->Connect();
  try
  {
   ASender->Thread->Connection->WriteLn("HTTP/1.0 200 Connection 
established");
   ASender->Thread->Connection->WriteLn("Proxy-agent: IronClad/1.1");
   ASender->Thread->Connection->WriteLn("\r\n");

   while(ASender->Thread->Connection->Connected() && Client->Connected())
   {
    char buf[8192];
    memset(buf,0,8192);
    ASender->Thread->Connection->ReadBuffer(buf,8192);
    Client->WriteBuffer(buf,8192);
    memset(buf,0,8192);
    Client->ReadBuffer(buf,8192);
    ASender->Thread->Connection->WriteBuffer(buf,8192);
   }
  }
  catch(...)
  {
  }
 }
 __finally
 {
  delete Client;
 }
}

void __fastcall TForm1::IdTCPServer1CommandConnectCommand(
      TIdCommand *ASender)
{
 TIdTCPClient *Client = new TIdTCPClient(NULL);
 try
 {
  String aux = 
ASender->UnparsedParams.SubString(1,ASender->UnparsedParams.Pos(" ")-1);
  Client->Host = aux.SubString(1,aux.Pos(":")-1);
  Client->Port = aux.SubString(aux.Pos(":")+1,aux.Length()).ToInt();

  Client->Connect();
  try
  {
   ASender->Thread->Connection->WriteLn("HTTP/1.0 200 Connection 
established");
   ASender->Thread->Connection->WriteLn("Proxy-agent: IronClad/1.1");
   ASender->Thread->Connection->WriteLn("\r\n");

   while(ASender->Thread->Connection->Connected() && Client->Connected())
   {
    char buf[8192];
    memset(buf,0,8192);
    ASender->Thread->Connection->ReadBuffer(buf,8192);
    Client->WriteBuffer(buf,8192);
    memset(buf,0,8192);
    Client->ReadBuffer(buf,8192);
    ASender->Thread->Connection->WriteBuffer(buf,8192);
   }
  }
  catch(...)
  {
  }
 }
 __finally
 {
  delete Client;
 }
}