Не удается записать в 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

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

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

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