Советы по Delphi

Partse.ru предлагает: запчасти на Hafei в Екатеринбурге!

Подскажите как правильно показать на экpане и сохранить в базе картинку формата JPEG?


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;

[001303]




- Начало -  - Назад -  - Вперед -



Книжный магазин