تغيير نوع يك فايل image

 

شما اگر بخواهيد نوع يك فايل عكس را تغيير دهيد .

بطور مثال jpg  را به bmp  تبديل نماييد ميتوانيد از كد زير استفاده نماييد:

   procedure changeimage;

 var

        jpeg:tjpegimage;
        bmp:tbitmap;

 begin

      jpeg:=TJPEGImage.create;
      try
        jpeg.LoadFromFile('source file example c:amin.jpg' );
       bmp:=tbitmap.Create;
       try
           bmp.Assign(jpeg);
          bmp.SaveToFile(changefileext('target file example d:amin','.bmp'));
       finally
         bmp.free
      end;
   finally
   jpeg.Free;
end;

موضوع :