IB/FB D5 Blob поля. Как ?

← →
Glivinsky (2002-11-20 14:32) [0]

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

← →
OlegE © (2002-11-20 14:48) [1]

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;

← →
Glivinsky (2002-11-20 15:32) [2]

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

IB/FB D5 Blob поля. Как ? Найти похожие ветки