При щелчке на ячейке DBGrid загружать изображение в Image1 из БД

[ulala]

И снова здравствуйте...
У меня клиентское приложение по продаже автомобилей.
Автомобили, имеющиеся в наличии выводятся в DBGrid.
При щелчке на ячейке с названием машины на форме должна возникать фотография этой машины, которая должна загружаться из БД (объект Image1), в БД есть поле Photo (тип-текстовый), где прописан путь к изображению (напр.: L:\Проектир_ИС_лаб\bmw.bmp). Как это сделать, подскажите пожалуйста!

[DIgorevich]

Я делал так:

procedure Tmainform.ADOTable1AfterScroll(DataSet: TDataSet);    //любой переход по таблице
begin
  if  adotable1.RecordCount<>0 then     //если есть какие-либо записи в таблице тогда
    begin
      Image1.Picture := nil;   //обнуляем картинку 1
        if ADOTable1image.AsString<>'' then    //если существует запись о фото тогда
          image1.Picture.LoadFromFile(ADOTable1image.AsString);    //загружаем картинку 1
    end;
end;

[ulala]

Спасибо за отклик, но мне нужно загружать при каждом щелчке на ячейке DBGrid изображение, соответствующее выбранной модели машины, изображение это хранится просто в папке, а в БД в ячейках поля Photo хранится только адрес на это изображение и тип у этого поля текстовый

[Прик]

А можно и так. По щелчку в ячейке (OnCellClick):

procedure TForm1.DBGrid1CellClick(Sender: TObject);
var FN : string;
begin
  Image1.Picture := nil;
  FN := Query1.FieldByName('Photo').AsString;
  if FileExists(FN) then
    Image1.Picture.Bitmap.LoadFromFile(FN);
end;

[DIgorevich]

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

Спасибо за отклик, но мне нужно загружать при каждом щелчке на ячейке DBGrid изображение, соответствующее выбранной модели машины, изображение это хранится просто в папке, а в БД в ячейках поля Photo хранится только адрес на это изображение и тип у этого поля текстовый

А Вы посмотрите мой код внимательно. Там так и происходит загрузка изображения из указанного адреса (не из базы):

image1.Picture.LoadFromFile(ADOTable1image.AsString);

Просто у меня поле с адресом изображения называется в базе "Image"

[ulala]

unit LAB6Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, RpRender, RpRenderHTML, RpCon,
  RpConDS, RpDefine, RpRave, DB, ADODB, Grids, DBGrids;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    RvProject1: TRvProject;
    RvDataSetConnection1: TRvDataSetConnection;
    RvRenderHTML1: TRvRenderHTML;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Memo1: TMemo;
    BitBtn3: TBitBtn;
    RvProject2: TRvProject;
    RvDataSetConnection2: TRvDataSetConnection;
    Image1: TImage;
    Label1: TLabel;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject); {информация о моделях, имеющихся в наличии}
begin
ADOQuery1.Active:=False;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT Name, Price, Data, Comments, Photo');
ADOQuery1.SQL.Add('FROM Table1');
ADOQuery1.Open;
ADOQuery1.Active:=True;
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
FN: string;
begin
Label1.Caption:=ADOQuery1.FieldByName('Name').AsString;
Memo1.Lines.Text:=ADOQuery1.FieldByName('Comments').AsString;

FN:=ADOQuery1.FieldByName('Photo').AsString;
if FileExists(FN) then
Image1.Picture.Bitmap.LoadFromFile(FN);
end;
end.

raised exception class Einvalid Graphic with message 'Bitmap image is not valid'

[DIgorevich]

Сделайте так:
Image1.Picture.LoadFromFile(FN);

[ulala]

Точно такая же ошибка.
Ну ладно, всем спасибо за идеи, буду думать.

[Прик]

Эта ошибка означает то что в ней написано (Bitmap image is not valid).
Скорее всего, изображение не формате bmp или файл испорчен.

[ulala]

Заработало Спасибо! =*