Eigene (Internet)IP rausfinden

[Pseudemys Nelsoni]

Moin,

jo, ich weiss, es gab schon genug solcher Themen... aber eher mit nur "unsauberen" Methoden, von wegen IP per Seite ausgeben lassen, aber das kostet Zeit (egal wie schnell).

Gibt es eine "richtige" Methode? wenn ich "ipconfig" aufrufe, zeigt mir das Programm doch auch meine IP an und ich denke nicht das Microsoft das über ne Seite macht ;)

Zitat:

C:\Dokumente und Einstellungen\sub>ipconfig

Windows-IP-Konfiguration


Ethernetadapter LAN-Verbindung:

Verbindungsspezifisches DNS-Suffix:
IP-Adresse (Autokonfig.). . . . . : 169.254.45.50
Subnetzmaske. . . . . . . . . . . : 255.255.0.0
Standardgateway . . . . . . . . . :

PPP-Adapter HanseNet:

Verbindungsspezifisches DNS-Suffix:
IP-Adresse. . . . . . . . . . . . : 80.171.82.129
Subnetzmaske. . . . . . . . . . . : 255.255.255.255
Standardgateway . . . . . . . . . : 80.171.82.129

Kennt sonst noch jemand eine Möglichkeit?

[Zacherl]

Hallo,
lad dir auf meiner Homepage (www.free30.com/florian) unter Delphi die Unit Neo.pas runter. Da ist eine Funktion GetIpAddress dabei, die ihre Daten nicht von einer Seite holt.

Florian

[Pseudemys Nelsoni]

Moin Florian,

das Problem ist, das ich 2 IPS habe (siehe meinen ersten Post mit dem Zitat) und mir die Funktion aus der neo.pas, die erste IP anzeigt. Die zweite ist aber meine Internet IP

[Pseudemys Nelsoni]

Hab schon und zwar hier:

http://www.swissdelphicenter.ch/de/showcode.php?id=67

mfg

[scp]

Das Problem ergibt sich, wenn ein Router dazwischen hängt, dann gibt diese Funktion nur lokale IPs aus. Sollte das Programm für mehr als nur zum Eigenbedarf gedacht sein, reicht diese Funktion dann nicht mehr.

[Pseudemys Nelsoni]

Moin scp,

war das auf die FUnktion der neo-unit bezogen oder auf diese: http://www.swissdelphicenter.ch/de/showcode.php?id=67 hier?

Übrigens was ich mich bei dem Code frage...

Delphi-Quellcode:

function getIPs: Tstrings;
type
  TaPInAddr = array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe: PHostEnt;
  pptr: PaPInAddr;
  Buffer: array[0..63] of Char;
  I: Integer;
  GInitData: TWSAData;
begin
  WSAStartup($101, GInitData);
  Result := TstringList.Create;
  Result.Clear;
  GetHostName(Buffer, SizeOf(Buffer));
  phe := GetHostByName(buffer);
  if phe = nil then Exit;
  pPtr := PaPInAddr(phe^.h_addr_list);
  I    := 0;
  while pPtr^[I] <> nil do
  begin
    Result.Add(inet_ntoa(pptr^[I]^));
    Inc(I);
  end;
  WSACleanup;
end;

Wieso ist das Array gerade 11 Elemente gross?

Ist das die maximale anzahl der IPS die man haben kann oder wie?

[scp]

Es bezieht sich auf beide Routinen, da beide diesselben APIs aufrufen.
[0..10] ist denke ich mal willkürlich gewählt.

[Der_Ventilator]

Zitat:

Zitat von Pseudemys Nelsoni

Delphi-Quellcode:

function getIPs: Tstrings;
  Buffer: array[0..63] of Char;
 ...
begin
...
  GetHostName(Buffer, SizeOf(Buffer));
...

Was muss ich machen, dass der Code auch unter D2009 läuft? Es beschwert sich, dass Buffer an der stelle GetHostName kein Array sein dürfte. Deklariere ich Buffer um zu einem normalen Char, bekomme ich kein Ergebnis zurückgeliefert.

[himitsu]

Delphi-Quellcode:

GetHostName(@Buffer, Length(Buffer));

Es wird ja ein PChar verlangt, also ein Zeiger auf ein CharArray
und Len ist die Länge in Zeichen, und nicht in Byte, also Length statt SizeOf

Könnte aber sein, daß du die Ansiversion der Funktion bei dir definiert hast, dann zusätzlich noch Array of AnsiChar

[DeddyH]

Vielleicht mit

Delphi-Quellcode:

GetHostName(@Buffer[0], SizeOf(Buffer));

:?: Ich hab aber kein D2009, um das auszuprobieren.