이 기사의 예에서는 Delphi에서 BMP 형식 그래픽을 JPG 형식 그래픽으로 변환하는 방법을 설명합니다. 참고할 수 있도록 모든 사람과 공유하세요. 구체적인 구현 방법은 다음과 같습니다.
다음과 같이 코드 코드를 복사합니다.
프로시저 ConvertBMPtoJPG(SFileName,DFileName:string);
바르
J:TJpeg이미지;
I:TBitmap;
S,D:문자열;
시작하다
s:=S파일이름;
d:=D파일이름;
J:=TJpegImage.Create;
I:=TBitmap.Create;
I.LoadFromFile(s);
J.할당(I);
I.무료;
d:=changefileext(d,'.jpg');
J.파일에저장(d);
애플리케이션.프로세스 메시지;
J.프리;
끝;
이 글이 모든 사람의 델파이 프로그래밍에 도움이 되기를 바랍니다.