تبدیل JPG به bitmap

[khanboloky]

فایل JPG راباکدنویسی زیربه bitmap تبدیل کرددم حال می خواهم bitmap رابه JPG باکدنویسی تبدیل کنم لطفاکدنویسی رابرایم بنویسید
picture:TJpegImage
begin
picture:=TTJpegImage.create
Picture.assign:=(image.picture.Bitmap)
picture.compress
picture.SavetoFile(changefileEXT)

[_abiriamir]

سلام
شایدکد زیر بتونه کمکتون کنه
نیازی به دردسر هم نداره!!!


Procedure convertPic;
begin
image1.picture.LoadFromFile('a.bmp');
Image1.picture.SaveToFile('a.jpg');
end;

Procedure TForm1.Button1Click(Var sender: TObject);
Begin
ConvertPic;
end;

نمیدونم کمکتون کنه یا نه ولی خوشحال میشم اگه بتونم در این زمینه کمکتون کنم

[shervin farzin]

سلام

شایدکد زیر بتونه کمکتون کنه
خير ، اين راه صحيح نيست . شما با اين كد فقط 3 كاركتر پسوند فايل رو Rename كرديد و اين عمل
فرايند تبديل ساختار فايلهاي JPEG به BMP رو انجام نميده .
براي تبديل JPEG به BMP و بلعكس بايد به روش زير عمل كنيد :
ابتدا Unit به نام JPEG رو در بخش Uses وارد كنيد و در ادامه از توابع زير براي تبديل استفاده كنيد :

procedure Bmp2Jpeg( BmpFileName, JpgFileName: string);
var
Bmp: TBitmap;
Jpg: TJPEGImage;
begin
Bmp := TBitmap.Create;
Jpg := TJPEGImage.Create;
try
Bmp.LoadFromFile(BmpFileName);
Jpg.Assign(Bmp);
Jpg.SaveToFile(JpgFileName);
finally
Jpg.Free;
Bmp.Free;
end;
end;

procedure Jpeg2Bmp( BmpFileName, JpgFileName: string);
var
Bmp: TBitmap;
Jpg: TJPEGImage;
begin
Bmp := TBitmap.Create;
Jpg := TJPEGImage.Create;
try
Jpg.LoadFromFile(JpgFileName);
Bmp.Assign(Jpg);
Bmp.SaveToFile(BmpFileName);
finally
Jpg.Free;
Bmp.Free;
end;
end;
موفق باشيد .