Как узнать внешний Ip-адрес?
Кидаем на форму IdHTTP и пишем обработчик:
procedure TForm1.Button1Click(Sender: TObject);
var
ip : string;
begin
try
ip := idHTTP1.Get('http://www.whatismyip.com/automation/n09230945.asp');
except
// интернета нет или не подключен…
end; end;
|
