08-06-2010, 05:12 PM
و عليكم السلام اخي
;
client
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText('1'+Edit1.Text)
ClientSocket1.Socket.SendText('2'+Edit2.Text);
end;Server
كود :
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
if copy(Socket.ReceiveText,1,1)='1' then edit1.Text:=copy(Socket.ReceiveText,2,10)
if copy(Socket.ReceiveText,1,1)='2' then edit2.Text:=copy(Socket.ReceiveText,2,10)
end
وتعاونوا على البر و التقوى ، ولا تعاونوا على الاثم والعدوان