🚀 go-pugleaf

Hallo,

I try to open a ADO-Stream (to manage BLOB-Fields in a SQL-DB). I doesn't
work! When I query pStream->State after the Open-Command, I always get
adStateClosed and therefore pStream->Read() doesn't work too. What I'm doing
wrong??

Joachim

#include <ADODB_TLB.h>

void __fastcall TFormStream::ButtonOpenClick(TObject *Sender)
{
Adodb_tlb::ConnectModeEnum Mode;
switch (ComboBoxOpenMode->ItemIndex)
{
  case 0:
    Mode = adModeRead;
    break;
  case 1:
    Mode = adModeReadWrite;
    break;
  case 2:
    Mode = adModeRecursive;
    break;
  case 3:
    Mode = adModeShareDenyNone;
    break;
  case 4:
    Mode = adModeShareDenyRead;
    break;
  case 5:
    Mode = adModeShareDenyWrite;
    break;
  case 6:
    Mode = adModeShareExclusive;
    break;
  case 7:
    Mode = adModeUnknown;
    break;
  case 8:
    Mode = adModeWrite;
    break;
  default:
    Mode = -1;
    break;
}

Adodb_tlb::StreamOpenOptionsEnum Options;
switch (ComboBoxOpenOption->ItemIndex)
{
  case 0:
    Options = adOpenStreamUnspecified;
    break;
  case 1:
    Options = adOpenStreamAsync;
    break;
  case 2:
    Options = adOpenStreamFromRecord;
    break;
  default:
    Options = -1;
    break;
}

try
{
  StreamPtr pStream;
  pStream = CreateComObject(CLSID_Stream);
  pStream->Open(TVariantInParam(), Mode, Options, L"", L"");
}
catch(...)
{
  ShowMessage("open failed");
}
}