[leon2009]

Здравствуйте! в blob загрузил c:\1.bmp но в DB Grid отображение идет каряво BLOB в место название файлов.
потом при нажатие на кнопку:

Код:

Image1.Picture.Bitmap.Assign(TBlobField(SQLTable1.FieldByName('name')));

картинка загружается в image, но можно как нибудь через grid т.е. если первая строка в гриде то первая картинка, если вторая строка то вторая картинка, а то одна и тажа грузиться . спасибо!

[leon2009]

Код:

for i:=0 to dbgrid1.Columns.Count-1 do
begin
memo1.Visible:=true;
DBGrid1.Columns.FieldAddress('name');
memo1.Text:=DBGrid1.SelectedField.AsString;

Image1.Picture.Bitmap.Assign(TBlobField(SQLTable1.FieldByName(DBGrid1.SelectedField.AsString)));

что то все печально

[leon2009]

получается во второй колонке у меня картинка блоб.

Код:

Image1.Picture.Bitmap.Assign(TBlobField(SQLTable1.Fields[2]));

но читает только первую картинку из этой колонки, как остальные читать?
error2.jpg

[lmikle]

Картинку читает из текущей записи. Соотвеисвенно, тебе надо "отловить" момент смены текущей записи (соотв событие у TDataSource) и загрузить новую картинку в Image1. Нет кода под рукой, но в интернете достаточно примеров на эту тему...

[leon2009]

примеров много, на адо, Query и.т.п но я не могу сообразить может в саму базу не так гружу, что в поле отображается BLOB в место имени.

Код:

memo1.Lines.Add(DBGrid1.SelectedField.AsString);

ВМ60
error3.jpg

[leon2009]

Код:

  SQLQuery: TSQLQuery;
begin
  SQLQuery := TSQLQuery.Create(nil);
  try
    SQLQuery.SQLConnection := SqlConnection1; // указываем соединение с базой данных
    image1.Picture.LoadFromFile(SQLQuery.FieldByName('name').AsString);
    SQLQuery.ExecSQL(); // выполняем запрос
  finally
    SQLQuery.Free();
  end;

error4-min.jpg
не может найти имя файла
error5.jpg