Как загрузить картинку из таблицы в DBImage ??

← →
Davids (2004-06-21 00:50) [0]

Помогите плиз выгрузить из блоб поля картинку в DBImage или сохранить в файл ?????
Уже как только не пробовал не получается (((

← →
negrila (2004-06-21 08:29) [1]

http://ixbt.wallst.ru/ib/i00022.html

procedure TForm1.Button1(Sender: TObject); // вставить картинку формата jpg, БД- dBase // в uses надо подкл. модуль jpeg var MyIm: TJPEGImage; Pict: TBitmap; begin Pict:=TBitMap.Create; MyIm:=TJPEGImage.Create; MyIm.LoadFromFile("d:/pictures/pict1"+".jpg"); //или //if OpenPictureDialog1.Execute then //Table2Pic.LoadFromFile(OpenPictureDialog1.FileName) Pict.Assign(MyIm); try Table1.Edit; Table1Pic.Assign(Pict); Table1.Post; Pict.Free; MyIm.Free; except begin Pict.Free; Myim.Free; end; end; end;

Если картинка уже в базе, она при открытии таблицы появляется в DBImage1, если, конечно, у DBImage1 задано
DataField = поле с картинкой
Сохранение в файл:
DBImage1.Picture.SaveToFile("d:\kate\picture1.jpg"); //это можно еще через компонент SaveDialog

Как загрузить картинку из таблицы в DBImage ?? Найти похожие ветки