Ошибка при создании потока!!

← →
Vitv © (2006-06-03 00:05) [0]

procedure TForm1.Button6Click(Sender: TObject);
var
blb, f: TStream;
begin
if not IBDataSet1.FieldByName("B").isNull then
begin
SaveDialog1.Execute;
blb:=IBDataSet1.CreateBlobStream(IBDataSet1.FieldByName("B"),bmRead);-ругается
на параетр bmread. Пробовал разные, но всё равно не пашет.

f := TFileStream.Create(SaveDialog1.FileName, fmCreate);
f.CopyFrom(blb, blb.Size);

f.Free;
blb.Free;
end
else
ShowMessage("Blob is empty");
end;

← →
Джо © (2006-06-03 00:08) [1]

> bmRead

uses DB?

← →
VitV © (2006-06-05 11:58) [2]

Спасибо!

Ошибка при создании потока!! Найти похожие ветки