Текущий архив: 2003.11.17;
Скачать: CL | DM;

Вниз

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 !

---

Страницы: 1 вся ветка

Текущий архив: 2003.11.17;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.008 c