[Demlan]

Просмотрел форумы, но так и не нашел четкого ответа как засунуть в DBImage jpg картинку.
Нашел такой вот конвертер, но не могу разобраться, подскажите пожалуйста.

Код:

procedure TForm4.Button1Click(Sender: TObject);
var
  ConverterLoad: TImage;
  ConverterSave: TBitmap;
  ConverterStream: TMemoryStream;
begin
  if OpenPictureDialog1.Execute then
  begin
    ConverterSave := TBitmap.Create;
    ConverterSave.Height := 300; // от размера зависит качество
    ConverterSave.Width := 300;
    ConverterLoad := TImage.Create(Self);
    ConverterLoad.Name := 'ImageConverter';
    ConverterLoad.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    ConverterSave.Canvas.StretchDraw(ConverterSave.Canvas.ClipRect,ConverterLoad.Picture.Graphic); // BMP готов
    DBImage1.Picture.Bitmap := ConverterSave;
    ConverterStream := TMemoryStream.Create;
    ConverterSave.SaveToStream(ConverterStream); // изображение в Stream
    TBlobField(Form3.ADOQuery1.FieldByName('Photo_')).LoadFromStream(ConverterStream);
    ConverterLoad.Free;
    ConverterSave.Free;
  end;
end;

[Klyaksa]

По поводу этого кода будет ошибка. Timage не сможет загрузить напрямую картинку jpeg формата. Если у вас статистическая картинка, то проще до компиляции приложения загузить картинку в image а оттуда при работе приложения скопировать в dbimage.