Delphi-PRAXiS
Seite 1 von 3  1 23      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi IP addressen ermittlen (https://www.delphipraxis.net/69806-ip-addressen-ermittlen.html)

ghost007 20. Mai 2006 01:19


IP addressen ermittlen
 
Hallo,
ich habe folgendes problem.
Ich hoste ein game in Warcraft 3 (wem das nihcts sagt, ein strategie-spiel).
Da ich der host bin, sind alle clients über einen festen port mit mir verbunden, default port 6223.
Gibt es eine möglichkeit, die IPs aller über den port 6223 verbundenen clients zu ermitteln?

Danke schon mal - Ghost

Fighterno1 20. Mai 2006 06:32

Re: IP addressen ermittlen
 
Ja Klar, wenn du den Server aufmachst schon.
DU musst irgendwo in deiner Serveranwendung (zumindest wenn dus mit ServerSockets machst)
eine Schleife ähnlich der:
For i:=0 TO ServerSocket1.Socket.ActiveConnections - 1 do
begin
ListBox1.Items.Add(ServerSocket1.Socket.Connection s[i].RemoteAddress);//In Listbox1 werden dann alle gesammelt
end;

So, oder so ähnlich, könnte das aussehen.
Wenn du allerdings das fertige War Craft 3 Serverdingens nimmst wird das schon schwieriger, bis unmöglich.

ghost007 20. Mai 2006 07:07

Re: IP addressen ermittlen
 
gibts es da ekine möglichkeit,
den port zu "scanen" oder so was?

Klaus01 20. Mai 2006 08:10

Re: IP addressen ermittlen
 
Hallo ghost007,

versuch mal netstat -h auf der command line.

Grüße
Klaus

ghost007 20. Mai 2006 08:30

Re: IP addressen ermittlen
 
aha ... da kann ich aber keine funktion finden, die mir irgendwie weiterhilft -.-

Sharky 20. Mai 2006 08:51

Re: IP addressen ermittlen
 
Hast Du netstat schon einmal ohne einen Parameter aufgerufen?

ErazerZ 20. Mai 2006 09:03

Re: IP addressen ermittlen
 
Delphi-Quellcode:
netstat -an | find "6223"

Klaus01 20. Mai 2006 09:03

Re: IP addressen ermittlen
 
bei mr brngt es benutzte Ports und IP Adressen,
das wolltest Du doch, doer?

Grüße
Klaus
Code:
C:\>netstat -n

Active Connections

  Proto Local Address         Foreign Address       State
  TCP   127.0.0.1:1032         127.0.0.1:1033         ESTABLISHED
  TCP   127.0.0.1:1033         127.0.0.1:1032         ESTABLISHED
  TCP   192.168.178.20:1031    213.165.64.22:110      TIME_WAIT
  TCP   192.168.178.20:1039    81.209.184.99:80       TIME_WAIT
  TCP   192.168.178.20:1049    81.209.184.99:80       CLOSE_WAIT

C:\>
Code:
C:\>netstat -a

Active Connections

  Proto Local Address         Foreign Address       State
  TCP   pc1:epmap             pc1:0                  LISTENING
  TCP   pc1:microsoft-ds      pc1:0                  LISTENING
  TCP   pc1:1025               pc1:0                  LISTENING
  TCP   pc1:1026               pc1:0                  LISTENING
  TCP   pc1:1029               pc1:0                  LISTENING
  TCP   pc1:1033               pc1:0                  LISTENING
  TCP   pc1:1032               pc1:0                  LISTENING
  TCP   pc1:1032               pc1:1033               ESTABLISHED
  TCP   pc1:1033               pc1:1032               ESTABLISHED
  TCP   pc1:http              pc1:0                  LISTENING
  TCP   pc1:netbios-ssn       pc1:0                  LISTENING
  TCP   pc1:netbios-ssn       pc1:0                  LISTENING
  TCP   pc1:1031               pop.gmx.net:pop3       TIME_WAIT
  TCP   pc1:1039               dd2414.kasserver.com:http TIME_WAIT
  UDP   pc1:epmap             *:*
  UDP   pc1:371                *:*
  UDP   pc1:microsoft-ds      *:*
  UDP   pc1:1027               *:*
  UDP   pc1:netbios-ns        *:*
  UDP   pc1:netbios-dgm       *:*
  UDP   pc1:netbios-ns        *:*
  UDP   pc1:netbios-dgm       *:*

C:\>

ghost007 20. Mai 2006 09:52

Re: IP addressen ermittlen
 
jo, so funktionierts und wie kann ich jetzt die daten aus der konsole auslesen?
Das z.b. alle IPs die über den port 6223 connected sind, in eine lisbox kommen?

Hawkeye219 20. Mai 2006 09:59

Re: IP addressen ermittlen
 
Hallo Christian,

schaue mal in diesen Thread.

Gruß Hawkeye


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:35 Uhr.
Seite 1 von 3  1 23      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz