jak sprawdziś zewnętrzny adres IP [delphi[

Odpowiedz Nowy wątek
2007-01-03 16:04
Welxeowr
0

Witam.... Głypie pytanie?

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

Pozostało 580 znaków

2007-01-03 16:12
Ja2
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. ;-)

Pozostało 580 znaków

2007-01-03 16:39
Welxeworx
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

Pozostało 580 znaków

2007-01-03 19:20
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;

- Ciemna druga strona jest.
- Nie marudź Yoda, tylko jedz tego tosta.
Google NIE GRYZIE!
Pomogłem - kliknij

Pozostało 580 znaków

2007-01-04 21:30
dannn
0

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

Pozostało 580 znaków

2007-01-05 02:39
0

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


- Ciemna druga strona jest.
- Nie marudź Yoda, tylko jedz tego tosta.
Google NIE GRYZIE!
Pomogłem - kliknij

Pozostało 580 znaków

2007-01-06 17:56
Stefff
0

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

Czy ktoś pomoże?
Dzięki.

Pozostało 580 znaków

2007-01-06 18:20
0

a w czym problem??


- Ciemna druga strona jest.
- Nie marudź Yoda, tylko jedz tego tosta.
Google NIE GRYZIE!
Pomogłem - kliknij

Pozostało 580 znaków

2007-01-06 19:01
to ja...
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?

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

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