BLOB not opened.

← →
a413 (2003-10-27 13:25) [0]

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

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;

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

← →
Term (2003-10-27 13:27) [1]

это на чём на фокспро??

> DM2->T_Binary->Append();

чтото в делфе такой сиснаксис впервые вижу

← →
bushmen (2003-10-27 13:30) [2]

Да уж, какой-то новый Delphi5 !

BLOB not opened. Найти похожие ветки