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

Вниз

Размер изображения!   Найти похожие ветки 

← →
SaM[87]   (2004-01-01 21:35) [0]

Не подскажите как мне изменить высоту и ширину выбранного изображения, затем сохранить его в заданном разрешении. Кстати никто не подскажит что за файлы такие Thumbs.db, и зачем вообще они нужны!

---

← →
Липа   (2004-01-02 00:43) [1]

Thumbs - большие пальцы.
db - dlya bezrukih.

---

← →
Mihey ©   (2004-01-02 01:09) [2]

2 SaM[87]:

См. стандартные примеры Delphi. Там ВСЁ есть.

P.S.: Разрешение изображение (кол-во точек на пиксель) и его размеры - разные вещи.

---

← →
Bonial ©   (2004-01-06 06:37) [3]

Сейсчас напишу процедуру. StretchBlt - из модуля Windows:

procedure ChangeWidthHeight(NewFileName:string;var BMP:TBitmap;NewWid,NewHei:integer);
var bmp2:TBitmap;
begin
bmp2:=TBitmap.Create;
bmp2.Width:=NewWid;
bmp2.Height:=NewHei;
StretchBlt(bmp2.canvas.handle,0,0,NewWid,NewHei,BMP.canvas.Handle,0,0,bmp.width,bmp.height,SRCCOPY);
bmp2.SaveToFile(NewFileName);
bmp2.Free;
end;


---

← →
Bonial ©   (2004-01-06 06:39) [4]

Сейсчас напишу процедуру. StretchBlt - из модуля Windows:

procedure ChangeWidthHeight(NewFileName:string;var BMP:TBitmap;NewWid,NewHei:integer);
var bmp2:TBitmap;
begin
bmp2:=TBitmap.Create;
bmp2.Width:=NewWid;
bmp2.Height:=NewHei;
StretchBlt(bmp2.canvas.handle,0,0,NewWid,NewHei,BMP.canvas.Handle,0,0,bmp.width,bmp.height,SRCCOPY);
bmp2.SaveToFile(NewFileName);
bmp2.Free;
end;


---

← →
Bonial ©   (2004-01-06 06:46) [5]

Извините за повтор, плиз

---

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

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

Наверх

Память: 0.47 MB
Время: 0.047 c