Я внимательно прочитал http://forum.vingrad.ru/topic-168814.html тему, но у меня не работает эта штуковина...
| Код |
procedure TForm1.ButtonUpLoadClick(Sender: TObject);
var
blob: TStream;
fs: TFileStream;
begin
blob := ADODataSet1.CreateBlobStream(ADODataSet1.FieldByName('file_container'), bmWrite);
try
blob.Seek(0, soFromBeginning);
fs := TFileStream.Create(OpenDialog1.FileName, fmShareDenyWrite);
try
blob.CopyFrom(fs, fs.Size)
finally
fs.Free
end;
finally
blob.Free
end;
end;
|
В первой же строке возникает ошибка - "Field 'file_container' not found". Я так понимаю, надо объекту ADODataSet1 объяснить, в какое поле какой строки ставлять файл. А как это сделать? Смотрел справку по компонентам TField и TADODataSet, но ничего не нашел... |
)