+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : خطأ عند تطبيق معالجة الصور الرقمية بلغة دلفي الدرس 6 (/showthread.php?tid=8883)
خطأ عند تطبيق معالجة الصور الرقمية بلغة دلفي الدرس 6 - karika2 - 20-09-2017
بسم الله الرحمن الرحيم
انا تابعت دورة الاخ عبدالقادر للصور ولكن فى الدرس السادس فعلت كل شئ تمام ولكن تظهرلى رساله بأن الصورة غير صالحه بالرغم من ان الصورة نفطيه
![[صورة: 150587649318231.png]](http://store1.up-00.com/2017-09/150587649318231.png)
لذلك أرجو توضيح الخطأ أذا كان برمجى او فى نوع الصورة ووضعت المثال بالكامل فى المرفقات مع الصورة
RE: خطأ عند تطبيق معالجة الصور الرقمية بلغة دلفي الدرس 6 - Mrderman - 20-09-2017
اضف الوحدة jpej في uses
وسيختفي باذن الله
RE: خطأ عند تطبيق معالجة الصور الرقمية بلغة دلفي الدرس 6 - محمد عبد العزيز - 20-09-2017
السلام عليكم
جرب ما يلي
ضف متغير مثلا misc كما يلي (انتبه لاخر سطر في الاكواد التالية)
كود :
var
Form1: TForm1;
tms:TMemoryStream;
bmp_file:BMP_HEADER;
ary:array of array of Tthreecolor;
ary_t:array of array of Tthreecolor;
misc:array[1..2]of DWORD;كود :
procedure TForm1.write_to_img(img:TImage);
var
i:Integer;
begin
try
tms:=TMemoryStream.Create;
tms.Write(bmp_file,SizeOf(BMP_HEADER));
tms.Write(misc,SizeOf(misc));كود :
procedure TForm1.btn3Click(Sender: TObject);
var
i:Integer;
begin
try
tms:=TMemoryStream.Create;
tms.Write(bmp_file,SizeOf(BMP_HEADER));
tms.Write(misc,SizeOf(misc));كود :
procedure TForm1.btn1Click(Sender: TObject);
var
//bmp_file:BMP_HEADER;RE: خطأ عند تطبيق معالجة الصور الرقمية بلغة دلفي الدرس 6 - karika2 - 20-09-2017
jpeg -- هو التعامل مع الصور النفطية فقط bmp ومع ذلك أضفت الوحده jpeg ونفس المشكلة
بارك الله فيك أخ عبدالقادر ودومت دائماّ لنا
RE: خطأ عند تطبيق معالجة الصور الرقمية بلغة دلفي الدرس 6 - محمد عبد العزيز - 20-09-2017
هل فهمت لماذا ؟
RE: خطأ عند تطبيق معالجة الصور الرقمية بلغة دلفي الدرس 6 - karika2 - 21-09-2017
اعتقد أنك قمت بوضع فاصل بين الهيدر وجسم الصورة وأذا كان أعتقادى خاطئ أرجو بالتصحيح أذا تكرمت أخى عبدالقادر !! (y)
RE: خطأ عند تطبيق معالجة الصور الرقمية بلغة دلفي الدرس 6 - محمد عبد العزيز - 24-09-2017
حجم الHeader كان 46byte والمتغير Offset كان 54 حيث هناك 8byte ناقصة عند كتابة الصورة
التعديل الذي قمت به مؤقت ليعمل المثال وليس حل انيق
التعامل مع الترويسة Header ناقص كثيرا
اخوك عيد العزيز من الجزائر والاخ عبدالقادر سوري بتركيا.
RE: خطأ عند تطبيق معالجة الصور الرقمية بلغة دلفي الدرس 6 - karika2 - 03-10-2017
اها شكراّ للتنبيه أخى
فعلاّ الهيدر كان ناقص وكان هو سبب المشكلة قمت بالتعديل
_res5:array[1..6] of dword;
معذرة أختلط عليا الامر فى الاسامى
