+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ارسال نص بين client و server (/showthread.php?tid=2085)
ارسال نص بين client و server - nacer dj - 08-06-2010
السلام عليكم ورحمة الله تعالى وبركاته
لدي server و client كما في الصورة التالية:
![[صورة: 782463066.jpg]](http://www13.0zz0.com/2010/06/08/09/782463066.jpg)
كيف أجعل edit1 الخاصة بالسرفر تستقبل محتوى نص edit1 الموجودة في client
;و edit2 الخاصة بالسرفر تستقبل محتوى نص edit2 الموجودة في client
ارسال نص بين client و server - kachwahed - 08-06-2010
وعليكم السلام ورحمة الله وبركاته
http://www.delphi4arab.net/forum/showthread.php?tid=147
استخدم البحث بارك الله لك.
ارسال نص بين client و server - nacer dj - 08-06-2010
أخي لقد اطلعت على هذا الموضوع قبل أن لأضع سؤالي+الرابط لايحتوي على ما ابحث
المثال في المرفقات
ارسال نص بين client و server - King SofT - 08-06-2010
و عليكم السلام اخي
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 و server - S.FATEH - 10-06-2010
السلام عليكم
في client
PHP كود :
ClientSocket1.Socket.SendText(edit1.text+'|'+edit2.Text) ;
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;