jak sprawdziś zewnętrzny adres IP [delphi[

0

Witam.... Głypie pytanie?

Jak sprawdzić zewnętrzny adres IP komputera, na którym został uruchomiony program ?

0

Nie wiem czy o to chodzi ale sprawdz sobie tu:http://ip.vtele.info/

Jak wejdziesz to Ci wyswietli Twoj adres IP i takie tam dane o Tobie. ;-)

0

No znam takie strony, ale jak tu kurde zrobić, aby program podawał użytkownikowi np. w edicie jaki ma zewn. IP ?

;p

z gory dzięki

0
var
  sl: TStringList;
  a: Integer;
  s: string;
begin
  sl := TStringList.Create;
  try
    HttpGetText('http://whatismyipaddress.com/', sl);
    a := Pos('Your IP address is', sl.Text);
    if a > 0 then
    begin
      s := Copy(sl.Text, a, 40);
      a := Pos('</', s);
      s := Copy(s, 19, a - 19);
      Ip := s;
    end
    else
      Ip := 'unknow IP';
  finally
    FreeAndNil(sl);
  end;
0

HttpGetText to jest z synapse ?? /// jesli tak to mozna jakos tylko uzyc HttpGetText bez wgrywania celego synapse ???

0

to sobie to zamień na odpowiednik z INDY (IDHTTP.Get) czy też <ort>pobież </ort>systemowym URLDownloadToFile (moduł URLMon)

0

a na podstawie tej strony: http://www.whatismyip.org/ ???

Czy ktoś pomoże?
Dzięki.

0

a w czym problem??

0

Sorki za fatygę, ale już sobie sam poradziłem.
Chciałem zrobić to w najprostszy sposób:

procedure TForm1.Button1Click(Sender: TObject);
var
  IP : String;
begin
  IP := IdHttp1.Get('http://www.whatismyip.org/');
  edit1.text := IP;
end;

;p

Niegłupie nie?

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0