Witam.... Głypie pytanie?
Jak sprawdzić zewnętrzny adres IP komputera, na którym został uruchomiony program ?
Witam.... Głypie pytanie?
Jak sprawdzić zewnętrzny adres IP komputera, na którym został uruchomiony program ?
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. ;-)
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
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;
HttpGetText to jest z synapse ?? /// jesli tak to mozna jakos tylko uzyc HttpGetText bez wgrywania celego synapse ???
to sobie to zamień na odpowiednik z INDY (IDHTTP.Get) czy też <ort>pobież </ort>systemowym URLDownloadToFile (moduł URLMon)
a na podstawie tej strony: http://www.whatismyip.org/ ???
Czy ktoś pomoże?
Dzięki.
a w czym problem??
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?