ارسال نص بين client و server

[nacer dj]

السلام عليكم ورحمة الله تعالى وبركاته
لدي server و client كما في الصورة التالية:

كيف أجعل edit1 الخاصة بالسرفر تستقبل محتوى نص edit1 الموجودة في client
;و edit2 الخاصة بالسرفر تستقبل محتوى نص edit2 الموجودة في client

[kachwahed]

وعليكم السلام ورحمة الله وبركاته
http://www.delphi4arab.net/forum/showthread.php?tid=147
استخدم البحث بارك الله لك.

[nacer dj]

أخي لقد اطلعت على هذا الموضوع قبل أن لأضع سؤالي+الرابط لايحتوي على ما ابحث
المثال في المرفقات

[King SofT]

و عليكم السلام اخي

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

;

[S.FATEH]

السلام عليكم
في client

PHP كود :

ClientSocket1.Socket.SendText(edit1.text+'|'+edit2.Text) ; 


في server

PHP كود :

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
buf:string;
begin
 Buf:=socket.ReceiveText;
 Edit1.Text:=Copy(buf,1,pos('|',buf)-1);
 Edit2.Text:=Copy(buf,pos('|',buf)+1,length(buf));
end; 


بالتوفيق