TImage 콤포넌트로 그림화일을 읽어서,

TImage.Canvas.StretchDraw로 사이즈를 변경한 후,

다시 저장하세요.



Jpg로 저장하는 함수는 소스를 올리니 스스로 시도해보세요.





꿈꾸는 바보 류..



----------------



Procedure LoadJPeg(FileName:String; PicIn:TPicture);

Var

JPegImage : TJPegImage;

Begin

JPegImage:= TJPegImage.Create;

JPegImage.LoadFromFile(FileName);

PicIn.Assign(JPegImage);

JPegImage.Free;

End;



Procedure SaveImageToJPG(Graphic:TPersistent; FileName:String; Quality:Integer);

Var

JP : TJPEGImage;

Begin

JP:= TJPEGImage.Create;

JP.CompressionQuality:= Quality;

JP.Performance:= jpBestQuality;

JP.Assign(Graphic);

JP.PixelFormat:= jf24Bit;

JP.Compress;

JP.SaveToFile(FileName);

JP.Free;

end;









freelab wrote:

> 고수님들의 도움이 필요하여 이렇게 글을 올립니다...

>

> 다름이 아니라 원본 jpg이미지 화일을 아이콘 정도의 크기로 축소하여 이미지를

> 저장하려고 합니다...

>

> 예) aaa.jpg(원본) -> aaa.jpg(아이콘 정도의 크기) 이렇게요....

>

> 방법 좀.... 부탁드립니다....