Internete Cikis Yapilan IP Adresini Ogrenmek

[cagatay77]

Programimizin internete cikis yaptigi "gercek" IP Adresini ogrenmek icin;
Formumuza bir adet Indy - IdHTTP nesnesi ekliyoruz. Ardindan asagidaki kodu kendi programimiza uyarliyoruz. Hepsi bu kadar

Kod: Tümünü seç

var i:integer; x,s:ansistring;
begin
 try
  x:=IdHTTP1.Get('http://checkip.dyndns.org');
  i:= AnsiPos('Address:',x);
  i:=i+9;
    while x[i]<>'<' do begin s:=s+x[i];
    inc(i);
    end;
  Edit1.Text:=s;
 finally
 end;
end;