Сохранить в базе картинку формата JPEG
Материал из DRKB
Сохранить в базе картинку формата JPEG[править | править код]
uses JPEG;
begin
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;
end;
Source: Взято с http://delphiworld.narod.ru
ID: 02480