Текущий архив: 2003.03.06;
Скачать: CL | DM;

Вниз

Изменение размеров   Найти похожие ветки 

← →
jen_bond   (2003-02-24 09:13) [0]

Подскажите как можно уменьшить размеры выдаваемого изображения до нужных размеров(высота, ширина)?
procedure TForm1.Button1Click(Sender: TObject);
var
jp: TJPEGIMAGE;
Stream:TStream;
begin
try
Stream :=IBQuery1.CreateBlobStream(IBQuery1.FieldByName("FOTO") as TBlobField, bmRead);
jp := TJPEGIMAGE.Create;
jp.CompressionQuality:= 3;
jp.Compress;
jp.LoadFromStream(Stream);
Image1.Picture.Assign(jp);
finally
jp.Free;
Stream.Free;
end;
end;

---

← →
Song ©   (2003-02-24 09:49) [1]

TBitMap.StretchDraw()

---

Страницы: 1 вся ветка

Текущий архив: 2003.03.06;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.026 c