je voudrais implémenté sous Delphi8 la fonction ci-dessous:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Function LocalIP : String;
Var Acces_Sock : TCustomIpClient;
Begin
Acces_Sock := TCustomIpClient.Create(Nil);
Try
Result := Acces_Sock.LocalHostAddr
Finally
Acces_Sock.Free;
End;
End;
initialement prévue pour une version anciènne de Delphi (version 7). c'est pour avoir un petit exe qui m'affiche mon adresse IP locale à l'écran. J'ai utilisé :
uses Sockets ou uses Socket;
avant d'utiliser la fonctioni LocalIP mais au build du projet j'obtiens ces erreurs:
[fatal error] uIp.pas(6): File not found: 'Sockets.dcuil'
[error] uIp.pas(55): Undeclared identifier: 'TCustomIpClient'
[error] uIp.pas(57): Undeclared identifier: 'Acces_Sock'
merci beaucoup de m'aider s'il vous plait à bien adapter cette fonction dans l'environnement de Delphi 8 applications vcl.net
Sincère