Форум: "Базы";
Текущий архив: 2005.01.09;
Скачать: [xml.tar.bz2];

Вниз

Картинка   Найти похожие ветки 

← →
Linker ©   (2004-12-06 12:50) [0]

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

---

← →
Submarine   (2004-12-06 14:27) [1]

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

---

← →
Sergilov ©   (2004-12-08 21:24) [2]

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;


---

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

Форум: "Базы";
Текущий архив: 2005.01.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.033 c