Вниз
Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c
14-1103213204
alex145
2004-12-16 19:06
2005.01.09
сконверитровать файл *.dbf


6-1098093599
Zelius
2004-10-18 13:59
2005.01.09
Проблемы с TidHttpserver.MaxConnections в Indy 9


1-1103850144
elected
2004-12-24 04:02
2005.01.09
Ошибка EAccessViolation in module rtl70.bpl


4-1100988304
Юпитер
2004-11-21 01:05
2005.01.09
Поймать запуск EXE и переделать после загрузки в память


1-1103827386
Alexander666
2004-12-23 21:43
2005.01.09
New против GetMem и Dispose против FreeMem




   Наверх