[жекаизжека]

Помогите разобраться очень нужно, ситуация такая, есть база на Access, использую ADO, нужно что бы из DBgrida при запросе или клику определеного значения, выводилось фото(привязаному значение ФИО) в Timage или DBImage

[ApxaHGe1]

Код:

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;

[жекаизжека]

а можно подробней для чайников, или если не сложно исходник скинуть

[ApxaHGe1]

Исходник врядли, это мой проэкт, он большой
Объясняю:
Изображения с расширениме 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
вот и все
номерация в базе идет с нуля!
в БДГрид надо добавить все имя полей, которые ты будешь использовать
не нужные просто скрываешь и все

[жекаизжека]

ругаеться на это

Код:

Jpg:=TJPegImage.Create;

[ApxaHGe1]

в uses добавь JPeg

[жекаизжека]

у меня 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

[ApxaHGe1]

Я тебе написал пример для работы с JPG! BMP держать не выгодно, их размер не радует, попробуй с JPG сложности не возникнит перевести формат

[жекаизжека]

опять ошибка, может что то в таблице, у меня поле для фото "Поле объекта OLE" и как через форму можно добавлять фото в поле? ошибка "jpeg #53"

[ApxaHGe1]

эм.. мой пример прекрастно работает с таблицами 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;

[жекаизжека]

Вот мой кусок кода

Код:

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, сам не могу разобраться (((

[ApxaHGe1]

Код:

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;

Вот так пробуй, хотя странно, у меня ошибок нету))
Если уж не поможет могу написать пример, только скажи какую базу используешь

[жекаизжека]

Access, если сможешь покажи на примере форму добавления, если не сложно, просто у меня на этом работа встала (

[ApxaHGe1]

Жди счас сделаю и выложу

[жекаизжека]

жду конечно