DGL • Thema anzeigen - IP's in einem Netzwerk????

IP's in einem Netzwerk????

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

SoulChild

Betreff des Beitrags: IP's in einem Netzwerk????

Verfasst: So Mai 30, 2004 18:50

DGL Member

Registriert: Fr Jan 10, 2003 20:18
Beiträge: 88

Hey,
Hab mal ne Frage zum Thema IP Adressen.
Mein PC ist mit dem meines Bruders verbunden.
Wie kann ich in einem Netzwerk rausfinden, wieviel PC mit einander verbun den sind und welche IP-Adressen, diese haben?
Und welche IP der aktuelle PC hat, auf dem das Programm läuft.
Bin so ziehmlich neu in diesem Bereich von Programmiereung.

Danke schonmal.

Cya

Nach oben

Billi Berserker

Betreff des Beitrags:

Verfasst: So Mai 30, 2004 22:50

DGL Member

Registriert: Di Jun 24, 2003 19:09
Beiträge: 732

Hm,
also willst du vom Prinzip das Netzwerk nach Rechnern durchsuchen auf denen z.B. ein Server von einem Programm laufen könnte?
Ein etwas umständlicher weg wäre da sicherlich die kompletten Win32 Rechner über die auch in der Netzwerkumgebung genutzen Api aufzulisten und über deren Hostnamen an die IP's zu kommen. Aber bekannterweise ist das verdammt langsam denn das Auflisten aller Rechner in nem win32 Netzwerk kann ne weile dauern....
(Ein anderer Weg fällt mir da jetzt spontan nicht ein)

Die IP eines Hosts bekommst du mit folgender funktion raus :
(Die hab ich auch nur von diversen Delphi Seiten ausm Netz gezogen

)

Code:

function getIP(HostName : string): String;
type
  TaPInAddr = array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe: PHostEnt;
  pptr: PaPInAddr;
  I: Integer;
  GInitData: TWSAData;
begin
  WSAStartup($101, GInitData);
  phe := GetHostByName(pchar(HostName));
  if phe = nil then Exit;
  pPtr := PaPInAddr(phe^.h_addr_list); 
  I := 0; 
  while pPtr^[I] <> nil do 
  begin 
    Result:=(inet_ntoa(pptr^[I]^)); 
    Inc(I); 
  end;
  WSACleanup;
end;

Für die IP des aktuellen Rechners dann einfach :

Code:

var
   Hostname : array[0..63] of Char;
begin
     GetHostName(Hostname,SizeOf(Hostname));
     GetIP(Hostname);
end;

Nach oben

LarsMiddendorf

Betreff des Beitrags:

Verfasst: So Mai 30, 2004 23:09

DGL Member

Registriert: Sa Dez 28, 2002 11:13
Beiträge: 2244

Du kannst ein Packet an die Broadcastaddresse 255.255.255.255 an alle Server senden und dann auf die Antworten warten. Das geht aber nur über UPD und im lokalen Netz.

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.