Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.024 c
1-17154
aade
2003-02-21 16:54
2003.03.06
Выход из цикла


1-17018
R
2003-02-25 01:43
2003.03.06
Два вопроса на разные темы.


1-17067
Grey
2003-02-25 15:54
2003.03.06
TabStops в TCustomGrid


6-17231
Rater2
2003-01-17 12:21
2003.03.06
Как через Indy FTP узнать процент закаченности файла


1-16989
Nehto
2003-02-22 01:01
2003.03.06
TabOrder