Сохранить в базе картинку формата JPEG

Previous  Top  Next

    
 

 

 

Code:

uses JPEG;

...

if Picture.Graphic is TJPegImage then

begin

bs:=TBlobStream.Create(TBlobField(Field),bmWrite);

Picture.Graphic.SaveToStream(bs);

bs.Free;

end

else if Picture.Graphic is TBitmap then

begin

Jpg:=TJPegImage.Create;

Jpg.CompressionQuality:=...;

Jpg.PixelFormat:=...;

Jpg.Assign(Picture.Graphic);

Jpg.JPEGNeeded;

bs:=TBlobStream.Create(TBlobField(Field),bmWrite);

Jpg.SaveToStream(bs);

bs.Free;

Jpg.Free;

end

else

Field.Clear;

 

 

 

 

©Drkb::02480

       

Взято с http://delphiworld.narod.ru