Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Scusa, questo succede quando fai tutto di fretta.
prova questa funzione
function dammiippubblico(): String;
var
lastringaget: String;
r: TRegExpr;
ilmioip: string;
begin
ilmioip := ''; // nel caso non sei connesso ti ritorna bianco
// lastringaget:= IdHTTP1.Get('http:\\www.whatismyip.com'); questo non funziona ho avuto modo di provarlo oggi
lastringaget:= IdHTTP1.Get('http://www.whatismyip.com/automation/n09230945.asp'); // questo funziona
try
r:= TRegExpr.Create; // nella stringa "lastringaget" trovi il tuo ip ora devi cercarlo
r.Expression := '\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}'; // espressione da provare funziona
if r.Exec(lastringaget) then
ilmioip := r.Match[0];
finally
r.Destroy;
end;
result := ilmioip;
end;