|
|
Регистрация | << Правила форума >> | 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
|
#7
|
|||
|
|||
у меня bmp, все нормально компилирует, только при выборе ячейки, вылетает ошибка "class ElnvalidGraphic with message Bitmap.image is not valid"
Код:
var B: TBitmap; begin B:= TBitmap.Create; B.Assign(DBGrid1.Columns.Items[1].Field); Image19.Picture.assign(b); B.Free |
#8
|
|||
|
|||
Я тебе написал пример для работы с JPG! BMP держать не выгодно, их размер не радует, попробуй с JPG сложности не возникнит перевести формат
|
#9
|
|||
|
|||
опять ошибка, может что то в таблице, у меня поле для фото "Поле объекта OLE" и как через форму можно добавлять фото в поле? ошибка "jpeg #53"
Последний раз редактировалось жекаизжека, 13.10.2008 в 17:11. |
#10
|
|||
|
|||
эм.. мой пример прекрастно работает с таблицами mysql тип поля BLOB
Добавление через форму Код:
Name:=Edit1.Text; ZQuery1.SQL.Clear; ZQuery1.SQL.Text:= 'UPDATE sotrudniki SET foto=(:blobdata) WHERE imya="'+name+'"';// сдесь обновляешь поля тому кому добавляешь, в моем случаи у меня были уникальные ИД для каждого случая ZQuery1.ParamByName('Blobdata').LoadFromFile(Edit2.Text,ftBlob); ZQuery1.ExecSQL; Последний раз редактировалось ApxaHGe1, 13.10.2008 в 17:42. |
#11
|
|||
|
|||
Вот мой кусок кода
Код:
procedure TForm1.DBGrid1CellClick(Column: TColumn); var Jpg: TJPEGImage; begin Label9.Caption:=DBGrid1.Columns.Items[0].Field.AsString; Jpg:=TJPegImage.Create; jpg.Assign(DBGrid1.Columns.Items[1].Field); Image19.Picture.assign(jpg); Jpg.Free end; При выборе вылетает ошибку #42 если есть фото то вытелетает ошибка #53, сам не могу разобраться ((( |
#12
|
|||
|
|||
Код:
procedure TForm1.DBGrid1CellClick(Column: TColumn); var Jpg: TJPEGImage; begin Label9.Caption:=DBGrid1.Columns.Items[0].Field.AsString; Jpg:=TJPegImage.Create; jpg.Assign(DBGrid1.Columns.Items[1].Field); Image19.Picture.assign(jpg); end; Вот так пробуй, хотя странно, у меня ошибок нету)) Если уж не поможет могу написать пример, только скажи какую базу используешь |
#13
|
|||
|
|||
Access, если сможешь покажи на примере форму добавления, если не сложно, просто у меня на этом работа встала (
|
#14
|
|||
|
|||
Жди счас сделаю и выложу
|
#15
|
|||
|
|||
жду конечно
|