function GetLocalIP: String;
const WSVer = $101;
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;
как определить свой ip
на компе несколько ip локальный и внешний
локальный в смысле 127.0.0.1?
а так, чтоб наверняка gethostname(), gethostbyname() и в результате у тебя будут IP адреса, а вот будет ли их там несколько, хотя по идее должны быть все адреса этого хоста, включая 127.0.0.1
а так, чтоб наверняка gethostname(), gethostbyname() и в результате у тебя будут IP адреса, а вот будет ли их там несколько, хотя по идее должны быть все адреса этого хоста, включая 127.0.0.1
[QUOTE=andrey_98_06]на компе несколько ip локальный и внешний[/QUOTE]
Код:
Цитата: mike
Код:
function GetLocalIP: String;
const WSVer = $101;
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;
const WSVer = $101;
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;
TWSAData, PHostEnt - это где описано, какие модули подключать надо?
смотри хелп по функциям!
хоть что-то ж ты способен сам сделать?
хоть что-то ж ты способен сам сделать?
Есть компонент idIPWatch, отслеживает смену IP, подключение/отключение к сети...
По поводу где описано F1,"Поиск в файлах"
По поводу где описано F1,"Поиск в файлах"
[QUOTE=<SCORP>;156865]
смотри хелп по функциям!
хоть что-то ж ты способен сам сделать?
[/QUOTE]
Представляшь себе - способен! :D
Если б у меня они были в хелпе! :cool:
смотри хелп по функциям!
хоть что-то ж ты способен сам сделать?
[/QUOTE]
Представляшь себе - способен! :D
Если б у меня они были в хелпе! :cool:
http://delphi.about.com/od/networking/l/aa103100a.htm
20 секунд "гугления" и узнаём, что функции эти описаны в WinSock
20 секунд "гугления" и узнаём, что функции эти описаны в WinSock