Titolo: Ottenere l'indirizzo IP
Categoria: Codice |
|
Ultimo Aggiornamento: 31/10/05 |
Il modo più semplice è usare il comando IT_MyTCPAddr del plugin 4d Internet Command (gratuito e incluso con 4d).
Il comando richiede due parametri di tipo Stringa, dove il comando ritorna il numero IP corrente e la corrispondente maschera di Subnet.
Ecco un esempio di utilizzo:
C_TEXT($indirizzo_t;$subnet_t)
C_LONGINT($errorCode_l)
$errorCode_l :=
IT_MyTCPAddr ($indirizzo_t; $subnet_t)
If ($errorCode_l =0)
ALERT("IP address: " + $indirizzo_t + "\n" + "Subnet Mask: "+ $subnet_t)
End ifQuesto è l'indirizzo con cui siete identificati nella rete locale; se però volete sapere qual'è l'indirizzo con cui siete visti su Internet il problema è più ampio. Se usate un modem vi viene assegnato un numero tutte le volte che telefonate; altrimenti nella maggior parte dei casi è il numero con cui il router accede ad internet.
Per saperlo da programma è necessario utilizzare un server esterno che ci dica come ci vede: ad esempio potete usare il server Nexus WS Server con una semplice chiamata Web Service.
Ecco
un esempio con il codice in 4d per ottenere l'indirizzo ip pubblico.
Inviato da: Umberto Migliore |
|
Visite: 12899 |
Se accedi con utente e password, puoi aggiungere dei commenti.