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

Советы » Компоненты и Базы данных » Сохранить в базе картинку формата 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;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com