Скачать: CL | DM;

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

← →
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]

Спасибо!

---

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

Спасибо!

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.113 c