السلآم عليكم ورحمة الله وبركاته ...
أخوتي الكرام ....
ماهي طريقة الارسال في سوكت اذا كان لايقوم بالارسال ففي جهاز العميل مرة يرسل واخرى لا
ماهي الطريقة التي يمكنني من خلالها الارسال بدون ان يواجه اي مشكلة ؟
جزاكم الله كل خير
تم الحل المشكلة كانت تكمن في التالي :
الكود القديم :
كود :
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;
حيث ان المشكلة كانت هي الارسال الفوري والمفروض الانتظار لفترة بسيطة جداً اي اجزاء من الثانية ليقوم بالارسال بشكل صحيح
شكراً لكم اخوتي