| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Картинка [D7, MS Access]

Linker ©   (2004-12-06 12:50:00) 

Как привязать к полю в Access картинку и заставить ее отображаться в Delphi?

---

Sergilov   (2004-12-08 21:24:00) [1]

1.В поле базы ставишь тип поля Поле объекта OLE.
2.Добавляеш на форму Image.
Тут одно НО. Картинку в поле нужно добавлять средствами Delphi.
3.Добавление картинки в БД.

procedure TFormEditPerson.BitBtn3Click(Sender: TObject);
begin
If OpenPictureD.Execute() Then
Begin
TableMain.TPersonPhoto.LoadFromFile(OpenPictureD.FileName);
ImagePerson.Picture.LoadFromFile(OpenPictureD.FileName);
End;
end;

4. Открытие картинки

procedure TFormPerson.ActionEditExecute(Sender: TObject);
var
 JpegImage:TJpegImage;
begin
TableMain.TPerson.Edit;
JpegImage:=TJpegImage.Create;
If TableMain.TPersonPhoto.Value<>'' Then
Begin
JpegImage.Assign(TableMain.TPersonPhoto);
FormEditPerson.ImagePerson.Picture.Bitmap.Assign(JpegImage);
End;
JpegImage.Free;
FormEditPerson.ShowModal;
end;


---

Submarine   (2004-12-06 14:27:00) [2]

Ну самый простой вариант, храни  в поле в БД путь к данной картинке (к примеру 'c:\Image1.jpg'). А потом спокойно загружай
(что-то типа: Image1.LoadFromFile(query1Путь.value))...

---

Наверх