Цитата:
|
Сообщение от Страдалецъ
Не уверен, что вообще у вас получится отобразить 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