В нэте нарыл вот этот код
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin //загрузка из файла
if OpenPictureDialog1.Execute then begin
Table1.Edit;
dbImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
table1.Post;
end;
end;
procedure TForm1.TableBeforePost(DataSet: TDataSet);
var BLOB:TBlobStream;
begin //сохранение картинки в базе
BLOB:=TBlobStream.Create(TBlobField(Table1),bmWrite);
try
Image1.Picture.Graphic.SaveToStream(BLOB);
finally BLOB.Free; end;
end;
Admin: Пользуемся тегами!
если есть у него недостатки плз напишите!!!!