---

Hej,

Hvordan ændre jeg på størelsen af et jpg billede til fx 50% af original
billedet?

Evt. hvad skal jeg kigge efter?
Jeg bruger Delphi 4


/md

---

Her skal du se:

uses jpeg;

{$R *.dfm}

function jpegresize(jpg : tjpegimage; scalepct : integer): tjpegimage;
var bm : tbitmap;
jp : tjpegimage;
begin
bm := tbitmap.Create;
bm.Width := jpg.Width * scalepct div 100;
bm.height:= jpg.height * scalepct div 100;
with bm do
Canvas.StretchDraw(rect(0,0,width-1, height-1), jpg);
jp := tjpegimage.Create;
jp.assign(bm);
bm.Free;
result := jp;
end;


procedure TForm1.Button1Click(Sender: TObject);
var jp : tjpegimage;
begin
jp := tjpegimage.create;
jp.loadfromfile('c:\IMG_1299.JPG');
jpegresize(jp, 25).savetofile('c:\test.jpg');
end;

og det virker, - ihvertfald i D7

mvh Thor


"Michael [2800]" <michael@mhcdan.dk> skrev i en meddelelse
news:4073b2c6$0$533$edfadb0f@dread14.news.tele.dk...
> Hej,
>
> Hvordan ændre jeg på størelsen af et jpg billede til fx 50% af original
> billedet?
>
> Evt. hvad skal jeg kigge efter?
> Jeg bruger Delphi 4
>
>
> /md

---

Kanon!

Tak skal du havde Thor.
Det virker også i D4.
Go' påske


/md