| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как загрузить картинку из таблицы в DBImage ?? [D7, dBase, FoxPro]
Davids © (2004-06-21 00:50:00)Помогите плиз выгрузить из блоб поля картинку в DBImage или сохранить в файл ?????
Уже как только не пробовал не получается (((
Катя (2004-06-21 08:41:00) [1]
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
negrila (2004-06-21 08:29:00) [2]http://ixbt.wallst.ru/ib/i00022.html
| |
