ما هو الخطأالبرمجى فى هذا الكود ..... ؟

[karika2]

كود :

uses JPEG var j:TJPEGImage; b:TBitmap; begin j:=TJPEGImage.Create; b:=TBitmap.Create; OpenPictureDialog1.Execute; j.LoadFromFile(OpenPictureDialog1.FileName); b.Width:=j.Width; b.Height:=j.Height; b.Canvas.Draw(0,0,j); SavePictureDialog1.Execute; b.SaveToFile(SavePictureDialog1.FileName+'.bmp'); b.Free; j.Free; showmessage('changed'); end;

[rabihpascal]

عذرا اخي لم اجد اي خطأ الكود يعمل معي بشكل جيد ولكن بدل زيادة الامتداد‎'bmp' جرب وضعه في defaultext savepicturedialog*

[karika2]

عذرا اخي لم اجد اي خطأ الكود يعمل معي بشكل جيد ولكن بدل زيادة الامتداد‎'bmp' جرب وضعه في defaultext savepicturedialog*

مازال الخطأ عندى أخى فى الـ OpenPictureDialog1 :confused: تفضل المشروع فى المرفقات أخى :.

[rabihpascal]

اخي الكريم تظهر المشكلة وكأنها في الحفظ savepicturedialog1.filterindex:=4 قبل السطرsavepicturedialog1.execute*

[karika2]

اخي الكريم تظهر المشكلة وكأنها في الحفظ savepicturedialog1.filterindex:=4 قبل السطرsavepicturedialog1.execute*

طب اخى ما هو التعديل المطولب لكى يعمل الكود بنجاح .. وضعت حتى try ولكن باتت بالفشل وتظهرلى رسالة ..

كود :

http://up.dev-point.com/uploads/140fd3103d481.bmp

[Agmcz]

السلام عليكم
وهكذا

PHP كود :

var
  JPG: TJPEGImage;
  BMP: TBitmap;
begin
  JPG := TJPEGImage.Create;
  BMP := TBitmap.Create;
  try
    if OpenPictureDialog1.Execute then
    begin
      JPG.LoadFromFile(OpenPictureDialog1.FileName);
      BMP.Width := JPG.Width;
      BMP.Height := JPG.Height;
      BMP.Canvas.Draw(0, 0, JPG);
      if SavePictureDialog1.Execute then
      begin
        BMP.SaveToFile(SavePictureDialog1.FileName);
        ShowMessage('Changed');
      end;
    end;
  finally
    JPG.Free;
    BMP.Free;
  end;
end; 


[karika2]

بـارك الله فيك أخى ghost-dz الكريم أحسنت