Как получить ip адрес в delphi?

@nicolette.stoltenberg 

Здравствуйте!

Есть много способов получения IP вплоть до чтения его с адаптера на низком уровне, однако это все грамоздко и трудозатратно.

Есть простой способ узнать IP использовав инди компоненты.

Кидаете на форму компонент TIdIPWatch и пишете следующий код в обработчик клика кнопки:

1
2
3
4

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IdIPWatch1.LocalIP); //Вы водит локальный IP адрес
end;