delphi에서 BMP 형식 그래픽을 JPG 형식 그래픽으로 변환하는 방법

672 단어
본고의 실례는델파이가 BMP 포맷 도형을 JPG 포맷 도형으로 전환시키는 방법을 실현하였다.여러분에게 참고하도록 공유하다.구체적인 실현 방법은 다음과 같다.
 
  
procedure ConvertBMPtoJPG(SFileName,DFileName:string);
Var
  J:TJpegImage;
  I:TBitmap;
  S,D:String;
begin
  s:=SFileName;
  d:=DFileName;
  J:=TJpegImage.Create;
  I:=TBitmap.Create;
  I.LoadFromFile(s);
  J.Assign(I);
  I.Free;
  d:=changefileext(d,'.jpg');
  J.SaveToFile(d);
  Application.processmessages;
  J.Free;
end;

본고에서 서술한 것이 여러분의 Delphi 프로그램 설계에 도움이 되었으면 합니다.

좋은 웹페이지 즐겨찾기