|
Платные хостинги
Раскрутка сайта
Книги по программированию
IP address, Как узнать?
- Код uses idWinSock2; function GetLocalIP: String; const WSVer = $0202; var wsaData: TWSAData; P: PHostEnt; Buf: array [0..127] of Char; begin Result := ''; if WSAStartup(WSVer, wsaData) = 0 then begin if GetHostName(@Buf, 128) = 0 then begin P := GetHostByName(@Buf); if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^); end; WSACleanup; end; end;highlightSyntax('delphiVhMzc0','delphi'); Это сообщение отредактировал <Spawn> - 6.4.2003, 14:30
- Или это:Код uses WinSock;...function my_ip_address: longint;const bufsize = 255;var buf:pointer; RemoteHost:PHostEnt;begin buf:=nil; try GetMem(vuf, bufsize); WinSock.GetHostName(buf, bufsize); RemoteHost:=WinSock.GetHostByName*buf); if RemoteHost = nil then Result:=WinSock.htonl($07000001) else result:=longint(pointer(remotehost^.h_addr_list^)^); finally if buf <> nil then FreeMem(buf, bufsize); end; Result:=WinSock.ntohl(Result);end;highlightSyntax('delphi3OTY4Z','delphi');P. S. Эту штуку никогда не пробовал, так что не знаю что из неё получится на самом деле...
- Обработать стандартную команду GetIp
- Либо стандартную виндовую Ipconfig Это сообщение отредактировал Sluggard - 26.4.2003, 22:14
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
