الاخوه الافاضل

انا عامل فورمه فى 6i و عليها ocx اسمه BCD32 و هداه بيقرا من السيريال بورت بتاع الجهاز و شغاله و عرفت اشغلها و قرت من المكنه بس المشكله انى كنت بجرب بشغل الفورمه من الديباجر و امشى و راها و احده واحد
هى فكرتها بسيطه بتفتع التعامل مع الكوم بورت و بعدين بتقرا السريال المبعوت فانا باخده و احطه فى فاربل x و بعدين اعمل substring للقيمة الى فى الفربل داه و احطها فى فاربل تانى و بعدبن احطها فى تكست بوكس على الفورمه و بعدين اقفل التعامل مع البورت
و المشكله ان و انا بشغلها فى الديبجر بتقرا و بتشتغل صح و بتحط القيمة فى التكست بوكس الى على الفورمه بس لما اشغل الرن تايم على طول بترجع Null و لو شغل الفورمه من الديبجر بترجع القيمة صح
و لو شغلت الديبجر و جريته يعنى ما مشتش خطوه خطوه برضه بيرجع null
ممكن حد يساعدنى احل المشكله ديه

x1 := BCD32_DBcd32.OpenComm(:ITEM('Bcd32').interface, 'COM7');
x2 := BCD32_DBcd32.ReadNow(:ITEM('Bcd32').interface);

x3 := substr(x2,3,7);
:sin_load.QTY := x3;
commit;
x1 := BCD32_DBcd32.CloseComm(:ITEM('Bcd32').interface) ;

x1 := BCD32_DBcd32.OpenComm(:ITEM('Bcd32').interface, 'COM7');
x2 := BCD32_DBcd32.ReadNow(:ITEM('Bcd32').interface);

 x3 := substr(x2,3,7);
 :sin_load.QTY := x3;
 commit;
x1 := BCD32_DBcd32.CloseComm(:ITEM('Bcd32').interface) ;