E’ possibile ottenere l’ip (ip address) del proprio computer utilizzando la classe Indy “idIpWatch” , ad esempio per inserire l’ip nella caption del ns form è sufficiente:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
implementation uses IdIPWatch; ... procedure TfrmMain.FormCreate(Sender: TObject); var ids: TidIpWatch; begin ids := TidIpWatch.Create; Caption := Caption + '(' + ids.LocalIP + ':8888)'; ids.Free; end; |
Se invece ci si volesse complicare un pochino la vita si potrebbe interrogare direttamente il winSock in modo da non dover includere una classe indy nel progetto…
Leggi tutto
