узнать ip

[hacknet]

привет всем! как можно узнать свой ip адресс и сохранить его в файле!??

[QunneD]

В uses допиши WinSock после implementation добавь

function GetLocalIP:string;
var
WSVer:integer;
wsaData: TWSAData;
P: PHostEnt;
Buf: array [0..127] of Char;
begin
WSVer:=$101;
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;

А затем при нажатии на кнопку например, добавь этот код

var
a : TStringList;
begin
a := TStringList.Create;
a.Text := GetLocalIP;
a.SaveToFile('ip.txt');
a.Free;
end;

Вот и все

[hacknet]

у меня вот сдесь ошибка

код:
if P <> nil then

может сделаете исходничек...буду весьма благодарен!))

[mihali4]

Да, уважаемый(ая) QunneD.
Но не менее уважаемый гуру всех сетей и протоколов предложил:

Внешний (DSL) и внутренний (LAN) IP адрес

Используется компонент IdIPWatch закладка Indy
showmessage(form1.IdIPWatch1.Curren tIP); //инетовский
showmessage(form1.IdIPWatch1.LocalI P); //лановский

Правда, с оговорками. Но разве это имеет значение?

[hacknet]

попробывал сделать...ip показывается только локальный!((

[QunneD]

Ай короче уже обсуждалось, прокрути колесико самый низ, и ты увидишь темы

[hacknet]

ну кто нить реально поможет???

[KORN]

поиск по форуму вперед... эта тема была буквально на той неделе, и в гугле это будет первая ссылка по запросу УЗНАТЬ IP DELPHI, сколько можно лениться7

http://programmersforum.ru/showthread.php?t=35214

[hacknet]

Код:


uses
WinSock;

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;

сделал..а как мне задействовать функцию?

[Квэнди]

вызвать её.