Текущий архив: 2004.09.12;
Скачать: CL | DM;

Вниз

Не удается записать в TBlobField произвольный файл   Найти похожие ветки 

← →
REP ©   (2004-08-13 09:43) [0]

Код такой:

procedure TfrmMain.Button2Click(Sender: TObject);
Var
F:TFileStream;
BF:TBlobField;
begin
IF OD.Execute Then begin

 BF:=TBlobField.Create(Nil);
 F:=TFileStream.Create(OD.FileName,fmOpenRead);
 Try
   BF.LoadFromStream(F); //Здесь вылезает AV

 Finally
   BF.Free;
   F.Free;
 end;

end;
end;

OD=TOpenDialog

Спасибо.

---

← →
Desdechado ©   (2004-08-13 10:55) [1]

используй dataset.createblobstream

---

← →
REP ©   (2004-08-13 11:31) [2]

Я думал передать через параметры.
Выкрутился как:
ADOQ.Parameters.ParamByName("pDoc").LoadFromStream(F,ftBlob);

Но меня смущает, почему нельзя загрузить в переменную такого типа?

---

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

Текущий архив: 2004.09.12;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.023 c