دخول

merouane · 20-03-2008, 08:12 PM

السلام عليكم

حسنا سأكون أول المعلقين والمصححين

أولا:
Label5.Caption = LIP

هي Label5.Name = LIP

ثانيا:

كود :
DataStringStream := TStringStream.Create('');
  try
     DataStringStream.CopyFrom(AData, AData.Size);

     if DataStringStream.DataString = 'OServer' then
      begin
        ShowMessage('Reçu : "' + DataStringStream.DataString + '" De : ' + ABinding.PeerIP                     
                     +' sur le port : ' + IntToStr(ABinding.PeerPort));

        Server1.Send(ABinding.PeerIP, 8060, Server.LocalName);

      [color=Blue]  Memo1.Lines.Add(Datetostr(Now)+' >>> ' + ABinding.PeerIP +' : +DataStringStream.DataString);[/color]
      end
     else
      begin
        ShowMessage('Serveur est trouver / Server has find');

      [COLOR=Blue]  Label1.Caption := DataStringStream.DataString;
        Label2.Caption := ABinding.PeerIP;[/COLOR]
      end;
  finally
      DataStringStream.Free;
  end;

هي في الحقيقة

كود :
DataStringStream := TStringStream.Create('');
  try
     DataStringStream.CopyFrom(AData, AData.Size);

     if DataStringStream.DataString = 'OServer' then
      begin
        ShowMessage('Reçu : "' + DataStringStream.DataString + '" De : ' + ABinding.PeerIP                     
                     +' sur le port : ' + IntToStr(ABinding.PeerPort));

        Server1.Send(ABinding.PeerIP, 8060, Server.LocalName);

      [color=Blue]  Memo1.Lines.Add(Datetostr(Now)+' >>> ' + ABinding.PeerIP +' :  '+DataStringStream.DataString);[/color]
      end
     else
      begin
        ShowMessage('Serveur est trouver / Server has find');
[COLOR=Blue]
        LHost.Caption := DataStringStream.DataString;
        LIP.Caption := ABinding.PeerIP;[/COLOR]
      end;
  finally
      DataStringStream.Free;
  end;

عفوا و تحياتي Smile

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة