Entwickler-Ecke
Internet / Netzwerk - Computernamen herausfinden
Hopsekey - Do 10.07.03 13:31
Titel: Computernamen herausfinden
wie schon oben angegeben eine einfache newbee-frage.
Tweafis hat mir schon geholfen, hab in der Hilfe trotzdem nichts gefunden um den Computernamen herauszufinden. den aktuell angemeldeten benutzer bekomm ich, aber nicht den computernamen. ich würd mich über weitere hilfe freuen.
@ Tweafis großes DANKE
@ jeden Helfer, DANKE
O'rallY - Do 10.07.03 14:03
Computername lokal:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| function GetComputerName: string;
var
buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
Size: Cardinal;
begin
Size := MAX_COMPUTERNAME_LENGTH + 1;
Windows.GetComputerName(@buffer, Size);
Result := StrPas(buffer);
end; |
Computername von übergebener IP:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| function IPAddrToName(IPAddr: string): string;
var
SockAddrIn: TSockAddrIn;
HostEnt: PHostEnt;
WSAData: TWSAData;
begin
WSAStartup($101, WSAData);
SockAddrIn.sin_addr.s_addr := inet_addr(PChar(IPAddr));
HostEnt := gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
if HostEnt <> nil then
Result := StrPas(Hostent^.h_name)
else
Result := '';
end; |
Ist mit sicherheit im Forum schon des Öfteren gefragt worden.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!