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

Вниз

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

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

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

---

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

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

---

← →
Катя ©   (2004-06-21 08:41) [2]

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

---

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

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

Наверх

Память: 0.47 MB
Время: 0.043 c