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

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

IB/FB D5 Blob поля. Как ? [D5, IB6.x]

Glivinsky ©   (2002-11-20 14:32:00) 

Как пипель сохраняет/читает БЛОБ-поля ?
Коротеньким примерчиком, если можно.... Спасибо.

---

Glivinsky   (2002-11-20 15:32:00) [1]

2OlegE Годится. Спасибо. Сейчас высеку навечно в скрижалях....

---

OlegE   (2002-11-20 14:48:00) [2]

procedure TfrmMain.Button1Click(Sender: TObject);
var
a: array[1..64] of byte;
b: TStream;
i: Integer;
s: String;
begin
b := pFIBDataSet1.Createblobstream(pFIBDataSet1FD, bmRead);
b.Read( a, b.Size);
s:="";
for i := 1 to b.Size do s := s + IntToStr(a[i]);
ShowMessage(s);
b.Free;
pFIBDataSet1.Transaction.CommitRetaining;
end;

procedure TfrmMain.Button2Click(Sender: TObject);
var
a: array[1..64] of byte;
b: TStream;
begin
pFIBDataSet1.Edit;
b := pFIBDataSet1.Createblobstream(pFIBDataSet1FD, bmWrite);
a[1] := 0;
a[2] := 1;
a[3] := 2;
a[4] := 0;
a[5] := 4;
a[6] := 5;
a[7] := 0;
b.Write( a, 7);
pFIBDataSet1.Post;
pFIBDataSet1.Transaction.CommitRetaining;
b.Free;
end;

---

Наверх