+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ما هو الخطأالبرمجى فى هذا الكود ..... ؟ (/showthread.php?tid=6271)
ما هو الخطأالبرمجى فى هذا الكود ..... ؟ - karika2 - 25-06-2014
كود :
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 - 26-06-2014
عذرا اخي لم اجد اي خطأ الكود يعمل معي بشكل جيد ولكن بدل زيادة الامتداد'bmp' جرب وضعه في defaultext savepicturedialog*
ما هو الخطأالبرمجى فى هذا الكود ..... ؟ - karika2 - 26-06-2014
rabihpascal كتب :عذرا اخي لم اجد اي خطأ الكود يعمل معي بشكل جيد ولكن بدل زيادة الامتداد'bmp' جرب وضعه في defaultext savepicturedialog*
مازال الخطأ عندى أخى فى الـ OpenPictureDialog1 :confused: تفضل المشروع فى المرفقات أخى :.
ما هو الخطأالبرمجى فى هذا الكود ..... ؟ - rabihpascal - 26-06-2014
اخي الكريم تظهر المشكلة وكأنها في الحفظ savepicturedialog1.filterindex:=4 قبل السطرsavepicturedialog1.execute*
ما هو الخطأالبرمجى فى هذا الكود ..... ؟ - karika2 - 26-06-2014
rabihpascal كتب :اخي الكريم تظهر المشكلة وكأنها في الحفظ savepicturedialog1.filterindex:=4 قبل السطرsavepicturedialog1.execute*
طب اخى ما هو التعديل المطولب لكى يعمل الكود بنجاح .. وضعت حتى try ولكن باتت بالفشل وتظهرلى رسالة ..
كود :
http://up.dev-point.com/uploads/140fd3103d481.bmpما هو الخطأالبرمجى فى هذا الكود ..... ؟ - Agmcz - 26-06-2014
السلام عليكم
وهكذا
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 - 27-06-2014
بـارك الله فيك أخى ghost-dz الكريم أحسنت