المشاركات : 232
المواضيع 98
:
: 0
الإنتساب : Oct 2011
السلآم عليكم ورحمة الله وبركاته ...
أخوتي الكرام ....
ماهي طريقة الارسال في سوكت اذا كان لايقوم بالارسال ففي جهاز العميل مرة يرسل واخرى لا
ماهي الطريقة التي يمكنني من خلالها الارسال بدون ان يواجه اي مشكلة ؟
جزاكم الله كل خير
اللهمّ إنّي ظلمت نفسي ظلماً كثيراً ولا يغفر الذّنوب إلا أنت
فاغفر لي مغفرة من عندك وارحمني إنّك أنت الغفور الرّحيم
المشاركات : 232
المواضيع 98
:
: 0
الإنتساب : Oct 2011
تم الحل المشكلة كانت تكمن في التالي :
الكود القديم :
كود :
procedure TForm3.tmr2Timer(Sender: TObject);
var str1:string;
begin
sbtbtn1.Enabled:=false;
edt1.ReadOnly:=true;
str1:=Form1.cbb1.Text;
Form3.Checkname1.host:=str1;
Form3.Checkname1.Active:=true;
str1:='*Mr2*@'+Form1.Edit1.Text+'$%'+form3.edt1.Text+'^&';
Form3.Checkname1.Socket.SendText(str1);
tmr2.Enabled:=false;
end;
الكود بعد الحل :
كود :
procedure TForm3.tmr2Timer(Sender: TObject);
var str1:string;
begin
sbtbtn1.Enabled:=false;
edt1.ReadOnly:=true;
str1:=Form1.cbb1.Text;
Form3.Checkname1.host:=str1;
Form3.Checkname1.Active:=true;
sleep(200);
str1:='*Mr2*@'+Form1.Edit1.Text+'$%'+form3.edt1.Text+'^&';
Form3.Checkname1.Socket.SendText(str1);
tmr2.Enabled:=false;
end;
حيث ان المشكلة كانت هي الارسال الفوري والمفروض الانتظار لفترة بسيطة جداً اي اجزاء من الثانية ليقوم بالارسال بشكل صحيح
شكراً لكم اخوتي
اللهمّ إنّي ظلمت نفسي ظلماً كثيراً ولا يغفر الذّنوب إلا أنت
فاغفر لي مغفرة من عندك وارحمني إنّك أنت الغفور الرّحيم
