+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ماهي طريقة الارسال في سوكت اذا كان لايرسل (/showthread.php?tid=4618)
ماهي طريقة الارسال في سوكت اذا كان لايرسل - M_Mori2010 - 06-10-2012
السلآم عليكم ورحمة الله وبركاته ...
أخوتي الكرام ....
ماهي طريقة الارسال في سوكت اذا كان لايقوم بالارسال ففي جهاز العميل مرة يرسل واخرى لا
ماهي الطريقة التي يمكنني من خلالها الارسال بدون ان يواجه اي مشكلة ؟
جزاكم الله كل خير
ماهي طريقة الارسال في سوكت اذا كان لايرسل - M_Mori2010 - 06-10-2012
تم الحل المشكلة كانت تكمن في التالي :
الكود القديم :
كود :
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;حيث ان المشكلة كانت هي الارسال الفوري والمفروض الانتظار لفترة بسيطة جداً اي اجزاء من الثانية ليقوم بالارسال بشكل صحيح
شكراً لكم اخوتي