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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: Nomadic

Я делал так (это кусок компонента):

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;

{/codecitation}

Добавить комментарий