Mögliche Duplizieren:
Delphi, How to get all local IPs?Erste lokale IP-Adresse in Delphi
Was ist die einfachste & schnellste Methode für eine lokale IP-Adresse des Computers in Delphi 2009 ohne Verwendung von 3rd-Party-Komponenten zu erhalten? Vielen Dank.
Von: http://www.scalabium.com/faq/dct0037.htm
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Winsock;
Function GetIPAddress():String;
type
pu_long = ^u_long;
var
varTWSAData : TWSAData;
varPHostEnt : PHostEnt;
varTInAddr : TInAddr;
namebuf : Array[0..255] of char;
begin
If WSAStartup($101,varTWSAData) <> 0 Then
Result := 'No. IP Address'
Else Begin
gethostname(namebuf,sizeof(namebuf));
varPHostEnt := gethostbyname(namebuf);
varTInAddr.S_addr := u_long(pu_long(varPHostEnt^.h_addr_list^)^);
Result := 'IP Address: '+inet_ntoa(varTInAddr);
End;
WSACleanup;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := GetIPAddress;
end;
end.
schließen Nach Art der namebuf Ändern zu einer Reihe von ansichar compiles. Vielen Dank! – Darius
Sie sollten in Ihrer ursprünglichen Frage angegeben haben, dass Sie Delphi 2009 dann verwendet haben. Denken Sie daran, dass sich die Dinge manchmal ändern können, je nachdem, welche Version von Delphi Sie verwenden. –
@Kishor: Die Funktion selbst benötigt nur die Winsock-Einheit, in D7 sowieso. Diese anderen sind nur die allgemeinen Einheiten, die zu einer Formulareinheit hinzugefügt werden. – Todd
Voting als Duplikat http://stackoverflow.com/questions/576538/delphi-how-to-get-all-local-ips – mghie