Цитата:
Сообщение от Assistant
реализация от одного из участника форума, смысл думаю понятен будет:
procedure TMainForm.Button1Click(Sender: TObject);
Код:
var
site: string;
n1,n2: integer;
begin
site:=IdHTTP1.Get('http://www.myip.ru/get_ip.php?loc=');
n1:=pos('<TD bgcolor=white align=center valign=middle>',site);
n2:=pos('</TABLE></TD></TR>',site);
Edit1.text:=copy(site,n1+45,n2-n1-56);
end;
|
Всё бы хорошо, но а если интернет не доступен, надо вывести сетевой ник.