Мне тут код прислали, попросил один студент помочь.

DM2->T_Binary->Append();

DM2->T_Binary->FieldByName("VarID")->AsInteger=NextID;
DM2->T_Binary->FieldByName("UserID")->AsInteger=0;

TBlobStream *StreamTable;
StreamTable =(TBlobStream*) DM2->T_Binary->CreateBlobStream(DM2->T_Binary->FieldByName("Value"), bmReadWrite);


StreamTable->Position=0;
pms->Position=0; //Это MemoryStream

/* Тут валится, при добавлении второй записи с сообщением: BLOB not opened.*/
StreamTable->Write(pms->Memory,pms->Size);

DM2->T_Binary->Post();
delete StreamTable;


Кто-нибудь сталкивался с подобным. Что интересно, в отдельном приложении этот код работает. А так нет.