🚀 go-pugleaf

I find that the follow example just work in DCOM but not work in
SocketConnection
do any body have example for SocketConnection??

C:\Program Files\Borland\CBuilder6\Examples\Midas\Adhoc

void __fastcall TFormMain::cmbAliasChange(TObject *Sender)
{
  IAdHcDMDisp AdhcServ;
  _di_IStrings Temp;
  IStrings* * Value = (IStrings* * )new IStringsPtr();
  int i;

  __try
  {
    if (!DCOMConnection1->Connected)
      DCOMConnection1->Connected = true;
    AdhcServ.Bind(DCOMConnection1->GetServer());
    __try
    {
      cmbTables->Items->Clear();
      GetOleStrings(cmbTables->Items, Temp);
      *Value = Temp;

AdhcServ->GetTableNames(WideString(cmbAlias->Items->Strings[cmbAlias->ItemIn
dex]),
                              Value);
    }
    __finally
    {
      if (Value)
        delete Value;
    }
  }
  __finally
  {
    if (AdhcServ.IsBound())
      AdhcServ.Unbind();
  }
}