|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
dbGrid и фотографии
Помогите разобраться очень нужно, ситуация такая, есть база на Access, использую ADO, нужно что бы из DBgrida при запросе или клику определеного значения, выводилось фото(привязаному значение ФИО) в Timage или DBImage
|
#2
|
|||
|
|||
Код:
procedure TForm8.DBGrid1DblClick(Sender: TObject); begin Jpg:=TJPegImage.Create; Jpg.Assign(DBGrid1.Columns.Items[4].Field); Form9.Image1.Picture.assign(jpg); Form9.Memo2.Text:=DBGrid1.Columns.Items[5].Field.AsString; Form9.Show; end; |
#3
|
|||
|
|||
а можно подробней для чайников, или если не сложно исходник скинуть
|
#4
|
|||
|
|||
Исходник врядли, это мой проэкт, он большой
Объясняю: Изображения с расширениме jpg храняться в таблице, в таблице 6 столбцов придположим структура таблицы: imya,familiya,otchestvo,foto! Код:
procedure TForm8.DBGrid1DblClick(Sender: TObject); //допустим таблица уже выведена в DBGrid1, и я вижу все записи таблицы, делаю двойной клик на нужной мне записи и мне надо вывести эту запись на одтельные компоненты (допустим Label) Label1.Caption:=DBGrid1.Columns.Items[0].Field.AsString;//получил имя из выделенной записи Label2.Caption:=DBGrid1.Columns.Items[1].Field.AsString;//получил фамилию Label3.Caption:=DBGrid1.Columns.Items[2].Field.AsString;// получил отчество //счас буду выводить фото выбранного человека //начинаю работаь с jpg Jpg:=TJPegImage.Create; Jpg.Assign(DBGrid1.Columns.Items[3].Field);//получил доступ к фото человека Image1.Picture.assign(jpg);//вывел его фото в компонент Image1 вот и все номерация в базе идет с нуля! в БДГрид надо добавить все имя полей, которые ты будешь использовать не нужные просто скрываешь и все |
#5
|
|||
|
|||
ругаеться на это
Код:
Jpg:=TJPegImage.Create; |
#6
|
|||
|
|||
в uses добавь JPeg
|