[Вовайн]

Таблица отображается в dbgrid. Вот код 2 кнопок. Не грузит изображения. Уже по всякому пробывал надоело мучиться с ним. Может поможет кто?

Код:

procedure TForm10.sButton4Click(Sender: TObject);
var
Blob:TMemoryStream;
begin
try
if OpenPictureDialog1.Execute then
begin
ADOQuery1.Edit;
TBLOBField(ADOQuery1.FieldByName('Фото')).LoadFromFile(OpenPictureDialog1.FileName);
ADOQuery1.Post;
ADOQuery1.Refresh;
end;
except
on e:Exception do
end;
end;


procedure TForm10.sButton5Click(Sender: TObject);
var
jpg:TJPEGImage;
Blob:TMemoryStream;
bmp:TBitmap;
begin
try
bmp:=TBitmap.Create;
jpg:=TJPEGImage.Create;
ADOQuery1.First;
Blob:=TADOBlobStream.Create(TBlobField(ADOQuery1.FieldByName('Фото')),bmRead);
jpg.LoadFromStream(Blob);
DBImage1.Picture.Assign(jpg);
 ADOQuery1.Post;
ADOQuery1.Refresh;
jpg.Free;
Blob.Free;
bmp.Free;
except
on e:Exception do
begin
jpg.Free;
Blob.Free;
bmp.Free;
end;
end;
end;

[Страдалецъ]

Не уверен, что вообще у вас получится отобразить jpg через DBImage1. Методы для отображения JPG есть только у TImage. Вот в него и отображайте из базы текущее значение поля примерно так:

Код:

procedure TForm32.ADOTable1AfterPost(DataSet: TDataSet);
var
  Jpg: TJPEGImage;
begin
 if DataSet['Picture'] = null then Exit;
 Jpg  := TJpegImage.Create;
 Jpg.LoadFromStream(TADOBlobStream.Create(TBlobField(ADOTable1.FieldByName('Picture')), bmRead));
 Image1.Picture.Bitmap.Assign(Jpg);
 Jpg.Free;
end;

[Вовайн]

Сообщение от Страдалецъ

Не уверен, что вообще у вас получится отобразить jpg через DBImage1. Методы для отображения JPG есть только у TImage. Вот в него и отображайте из базы текущее значение поля примерно так:

Код:

procedure TForm32.ADOTable1AfterPost(DataSet: TDataSet);
var
  Jpg: TJPEGImage;
begin
 if DataSet['Picture'] = null then Exit;
 Jpg  := TJpegImage.Create;
 Jpg.LoadFromStream(TADOBlobStream.Create(TBlobField(ADOTable1.FieldByName('Picture')), bmRead));
 Image1.Picture.Bitmap.Assign(Jpg);
 Jpg.Free;
end;

ADODataSet1: filed фото not found

[Alegun]

Вот пример из DRKB для загрузки\выгрузки блобом *.jpg, только предварительно напихайте в табличку несколько картинок и потом пощёлкайте мышой по записям

[Вовайн]

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

Вот пример из DRKB для загрузки\выгрузки блобом *.jpg, только предварительно напихайте в табличку несколько картинок и потом пощёлкайте мышой по записям

Не работает. Даже если настроить все компоненты.

А не работает, спасибо)

[Alegun]

Тогда вот образец компилянта под D7, у меня оно работает, а у вас?