как в delphi получить ip адрес в глобальной сети и вывести его, допустим, в label
свой ip
комп подключён к интернету через шлюз
Сделал. вот код:
uses StrUtils;
function extract(const text, begin1, end1: string): string;
var
startpos, endpos: integer;
begin
Result := '';
startpos := Pos(begin1, text);
if startpos < 1 then
exit;
inc(startpos, length(begin1));
endpos := PosEx(end1, text, startpos);
if endpos < 1 then
exit;
Result := Copy(text, startpos, endpos - startpos);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
page, ip : string;
begin
page := idHTTP1.Get('http://2ip.ru/');
ip := extract(page, '','');
lbl1.Caption := ip;
end;
вот:
uses StrUtils;
function extract(const text, begin1, end1: string): string;
var
startpos, endpos: integer;
begin
Result := '';
startpos := Pos(begin1, text);
if startpos < 1 then
exit;
inc(startpos, length(begin1));
endpos := PosEx(end1, text, startpos);
if endpos < 1 then
exit;
Result := Copy(text, startpos, endpos - startpos);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
page, ip : string;
begin
page := idHTTP1.Get('http:// 2ip . ru /');
ip := extract(page, '','');
lbl1.Caption := ip;
end;