Отоброжение фото

[Сирена]

Добрый вечер.
Возникла проблема с подключением фотак к базе
Суть проблемы:
1)как сделать так чтоб при выборе строки отображалась фотка в DBImage1
как её туда вносить блин

Попробовала вот такой код

procedure TForm1.DBImage1DblClick(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
ADOTable1.Edit;
DBImage1.Picture.LoadFromFile(OpenD ialog1.FileName);
end;
end;


Если возможно опишите подробно как реализовать мою проблему )) я чайник)) заранее спасибо

[Streletz]

Для начала, что за СУБД?
В каком формате рисунки (bmp,jpeg,...)?

[Сирена]

формат bmp буду использовать
база данных создавалась с помощью Access

[Streletz]

Для Access и bmp можно воспользоваться параметрическим запросом через ADOCommand. Необходимо загрузить файл в TBitmap и с помощью метода Assign этот TBitmap передать его в параметр запроса.

[Сирена]

не слова не поняла))) подробней можно? заранее спасибо

[Streletz]

подробней можно?

ris:=TBitmap.Create;
ris.LoadFromFile('pict.bmp');
ADOCommand1.Parameters.ParamByName('img').Assign(ris);
ADOCommand1.Execute;
ris.Free;

Думаю, что подробнее уже некуда.
Надеюсь, что теперь идея понятна.

[Сирена]

Сообщение от Streletz

Для Access и bmp можно воспользоваться параметрическим запросом через ADOCommand. Необходимо загрузить файл в TBitmap и с помощью метода Assign этот TBitmap передать его в параметр запроса.

я вот это не поняла, что ещё за TBitmap и метод Assign

[Streletz]

Сообщение от Сирена

я вот это не поняла, что ещё за TBitmap и метод Assign

Пожалуйста, перечитайте внимательно код в предыдущем посте.

[atihiy2010]

Я делал вот так, но без DBImage.

procedure TMainForm.DataSource1DataChange(Sender: TObject; Field: TField);
var str1,str2,str3,str4:String;
    i:word;
begin

str1:='2010\fig\';
str2:=ADOQuery1.FieldByName('Деталь').AsString;
str3:='pr';
str4:='.jpg';

for i:=1 to Length(str2) do
if str2[i]='/' then str2[i]:='#';

if not Fileexists(str1+str2+str4) then 
Image1.Picture.LoadFromFile(str1+str3+str4)
else

Image1.Picture.LoadFromFile(str1+str2+str4);

end;

В uses добавить JPEG.
Если что непонятно, спрашивайте - подскажу.

[ksvsvk]

Загружать изображение нужно не в компонент, отображающий его на форме, а в соответствующее поле таблицы базы данных.

Вариант, предложенный atihiy2010 хранит в базе не изображение, а спецификацию файла, что не очень хорошо, т.к. при этом сам файл можно "грохнуть"