Просмотрел форумы, но так и не нашел четкого ответа как засунуть в 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;