خطأ عند تطبيق معالجة الصور الرقمية بلغة دلفي الدرس 6

[محمد عبد العزيز]

السلام عليكم
جرب ما يلي
ضف متغير مثلا 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));

وايضا في الزر 3

كود :

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));

احذف المتغير bmp_file هنا

كود :

procedure TForm1.btn1Click(Sender: TObject); var //bmp_file:BMP_HEADER;

جرب واخبرنا بالنتيجة