| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

BLOB not opened. [D5, Paradox]

a413 ©   (2003-10-27 13:25:00) 

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

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;

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

---

bushmen   (2003-10-27 13:30:00) [1]

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

---

Term   (2003-10-27 13:27:00) [2]

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

> DM2->T_Binary->Append();

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

---

Наверх