delphi4arab منتديات دلفي للعرب

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

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

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

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

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

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

;

السلام عليكم
في 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; 

بالتوفيق

nacer dj

kachwahed

nacer dj

King SofT

S.FATEH