06-07-2012, 03:21 PM
اخوتي الاعزاء وجدت الحل :
يجب كتابة الكود على الشكل التالي فقط :d
شكراً للجميع
كود :
var
i: integer;
begin
Str:=Edit1.Text;//Take the string (message) sent by the server
Memo1.Text:=Memo1.Text+'me: '+Str+#13#10
Edit1.Text:='';//Clears the edit box
//Sends the messages to all clients connected to the server
for i:=0 to ServerSocket1.Socket.ActiveConnections-1 do
ServerSocket1.Socket.Connections[i].SendText(str);//Sent
end;يجب كتابة الكود على الشكل التالي فقط :d
شكراً للجميع
اللهمّ إنّي ظلمت نفسي ظلماً كثيراً ولا يغفر الذّنوب إلا أنت
فاغفر لي مغفرة من عندك وارحمني إنّك أنت الغفور الرّحيم
فاغفر لي مغفرة من عندك وارحمني إنّك أنت الغفور الرّحيم