كيف أستطيع معرفة عدد و أسماء المحطات على شبكة من المخدم عن طريق دلفي

السلام عليكم

إذا كنت تقصد أنه يوجد برنامج كلينت و أخر سيرفر

فهذا هو الحل

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;

  Socket: TCustomWinSocket);

var

  i:integer;

begin

  for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do

  begin

    with ServerSocket1.Socket.Connections do

    begin

      sRec := ReceiveText;

      if sRecr <> '' then

      begin

        Memo1.Lines.Add(RemoteHost );

      end;

    end;

  end;

end;

طبعا برنامج الكلينت يحتاج إلى عنصر

ClientSocket

و إعطاء الأي بي الخاص بالسيرفر إضافة لنفس البورت

أرج أن أكون قد أصبت الهذف

السلام عليكم

إذا كنت تقصد أنه يوجد برنامج كلينت و أخر سيرفر

فهذا هو الحل

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;

  Socket: TCustomWinSocket);

var

  i:integer;

begin

  for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do

  begin

    with ServerSocket1.Socket.Connections do

    begin

      sRec := ReceiveText;

      if sRecr <> '' then

      begin

        Memo1.Lines.Add(RemoteHost );

      end;

    end;

  end;

end;

طبعا برنامج الكلينت يحتاج إلى عنصر

ClientSocket

و إعطاء الأي بي الخاص بالسيرفر إضافة لنفس البورت

أرج أن أكون قد أصبت الهذف

السلام عليكم

مشكور أخي أبو وليد لكن ليس لدي شبكة لأنفذ الكود و لكن أعدك بتنفيذه

جزاك الله خيرا

السلام عليكم

جرب استعمال عنوان

127.0.0.1

و هو يشير إلى جهازك الذي أنت عليه و نفذ البرنامجين معا

حقيقة لم أجرب هذه الطريقة لأنه لدي شبكة

و أرجو من الأخوة التعليق

(f)

يا أخ أبو وليد جزال الله ألف خير فلقد جربت الكود وهو يعمل بنسبة 100% وفعال للغاية فأتمنة لك المزيد من العطاء والتقدم ;)

(gift)(gift)

u r Welcome(f)