| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Имя или IP компьютера [D6, Win95/98, Win2k, WinXP]
D © (2003-02-19 13:45:00)Скажите пожалуйста, как программно узнать IP-адрес или имя своего компьютера?
Lamer XP(Lee) (2003-02-26 15:25:00) [1]Компонент TIdIPWatch.
Anatoly Podgoretsky (2003-02-24 01:03:00) [2]error (23.02.03 21:54)
Отвечаю GetComputerName, не веришь смотри вопрос и хелп по данной функции.
Vitek (2003-02-24 00:44:00) [3]uses winsock,windows,...
function getLocalIP : string;
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 := "";
getHostName(Buffer, SizeOf(Buffer));
//LocalName:=Buffer;
phe:=getHostByName(buffer);
if phe=nil then exit;
pptr:=PaPInAddr(Phe^.h_addr_list);
i:=0;
while pptr^[I]<>nil do
begin
result:=StrPas(inet_ntoa(pptr^[i]^));
inc(i)
end;
WSACleanup
end;
function getCurrentUserName: string;
var
UserName: string;
UserNameLen: DWORD;
begin
UserNameLen:=255;
setLength(userName, UserNameLen);
if getUserName(PChar(UserName), UserNameLen) then Result:=copy(UserName, 1, UserNameLen-1)
else Result:="Unknown"
end;
error (2003-02-23 21:54:00) [4]2 Anatoly Podgoretsky
Не зная ответ на вопрос НЕ ОТВЕЧАЙ
TButton (2003-02-22 20:16:00) [5]192.168.55.1
dr.Karter (2003-02-21 11:27:00) [6]Так оно получается 127.0.0.1, т.е имя компа, а нужно 192.168.0.1
Anatoly Podgoretsky (2003-02-19 22:50:00) [7]Имя компьютера получается простыи переводом вопрос на английский язык GetComputerName
Aldor (2003-02-19 22:31:00) [8]Самое тривиальное:
ServerSocket.LocalAddress
ServerSocket.LocalHost
| |
