Newsgroup: it.comp.lang.delphi
Titolo: Ottenere l'IP durante la connessione...

Ciao a tutti,
vorrei sapere in Delphi come...
1) sapere se il PC è collegato a internet o no.
2) se è collegato a internet, qual è il suo IP.
Sono un neofita di Delphi, quindi dirmi "usa la tal funzione di ShellAPI" mi
serve a pochino...
Vi ringrazio di cuore per la collaborazione
Andrea Telatin
and...@telatin.com
-- 
Posted from 
c000-h010.c000.muc.cp.net
 [209.228.29.34] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

1) sapere se il PC è collegato a internet o no.
E' piuttosto complicato, soprattutto perche' il PC potrebbe accedere a
Internet mediante una rete locale.
In ogni caso, se cosi' non fosse, RasEnumConnections fa per te.
Il metodo piu' sicuro, in realta', e' quello di fare un ping verso un
server sicuramente esistente (
www.altavista.com
).
--
Walkie...@Libero.It (ICQ# 8143647)


Andrea

> 2) se è collegato a internet, qual è il suo IP.
Ecco una funzione che ti da l'ip (devi mettere winsock.pas tra le uses):
Function GetIP:string;
var
  WSAData: TWSAData;
  HostName, IP: String;
  HostEnt: PHostEnt;
begin
  try
    WSAStartup(2,WSAData);
    SetLength(HostName,255);
    GetHostName(PChar(HostName),255);
    SetLength(HostName,StrLen(PChar(HostName)));
    HostEnt:=GetHostByName(PChar(HostName));
    with HostEnt^ do
      IP:=Format('%d.%d.%d.%d',
                     [Byte(h_addr^[0]),
                      Byte(h_addr^[1]),
                      Byte(h_addr^[2]),
                      Byte(h_addr^[3])]);
    WSACleanup;
  except
  Ip:='Error getting IP';
  end;
 Result:=ip;
end;





Grazie di cuore a tutti, e complimenti a {MSX} x 
la chiarezza ;)
A presto


 


Andrea



>Grazie di cuore a tutti, e complimenti a {MSX} x la chiarezza ;)
Devo essere sincero, e dire che non l'ho scritta io la funzione :)
E' di qualcuno qui nel NG a quanto ne so...
P.S. nel newsgroup non postare messaggi in HTML, non e' buona educazione :)



fare un ping ad un server sarà sicuro, però io quando individuo un
programma che mi fa un accesso di rete <<sospetto>> alla rete gli
taglio subito le gambe pensando che sia uno spyware od un server
tipo BO o subseven e spiego al mio firewall che deve evitare che
quell'accesso sia possibile.
 

quell'accesso sia possibile.
Si, ma se il tuo firewall e' serio, sara' anche possibile abilitare il
tuo programma all'uscita verso internet.  I programmi su cui devi
seriamente sospettare sono quelli che si mettono in ascolto.
--
Walkie...@Libero.It (ICQ# 8143647)



Si posso abilitarlo alla sola uscita ed anche su una sola porta, ma
sospetto di entrambi. Uno spyware puo limitarsi ad inviare
informazioni sulle mia abitudini e mi da noia.
A parte questo. Se conosco chi mi da il programma o se è chiaro che il
programma deve accedere ok lo lascio fare, ma quando uno dei tanti
programmi che si trovano sulle riviste per esempio un editor o un
gioco tentano un accesso ad un numero di IP, non vi viene da chiedervi
- Ma che ca**o ha da dire 'sto programma di tanto interessante?-

- Ma che ca**o ha da dire 'sto programma di tanto interessante?-
Lo stesso Word cerca di collegarsi a internet e non so poi perche'
!...
--
Walkie...@Libero.It (ICQ# 8143647)