Discussion :

[sincère]

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

[Laurent Dardenne]

Salut,
pas sûr que ce code compile sous D8. Vérifie dans le framework .NET 1.1 s'il existe une classe dédiée aux sockets.

[ALWEBER]

Solution possible pour répondre directement à ta demande :
Créer une DLL en Delphi 7 et l'appeler depuis Delphi 8.Net

Autre solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
// uses  System.NET ;
var
  v1 : IPHostEntry ;
  V2 : ipaddress ;
begin
 
  v1 := dns.GetHostByName(dns.GetHostName) ;
  v2 := v1.AddressList[0] ;
  Label1.Text := v2.ToString ;

[sincère]

Merci beaucoup Alweber et Laurent Dardenne pour vos conseils, sympa! Je remercie aussi Francois Piette qui m'avait déjà une solution alternative que j'ai suivi d'ailleurs, je désinstalle D8 pour bientôt passer en D2007. Il n'y avait pas d'urgence dans ce que je veux faire avec cette petite fonction mais vraiment merci à vous trois pour y avoir laissé de vos temps si précieux. Que vive developpez.net et ses adeptes...
Sincèrement
sincère

[Laurent Dardenne]

Voir aussi :
http://nicolasperdu.free.fr/CSHARP/socket.pdf

[sincère]

Merci beaucoup Laurent Dardenne pour la doc, je l'ai récupérée pour consulter, ça va m'aider à bien comprendre les sockets en Delphi. Merci également aux auteurs
Bonne Soirée... A bientôt
Sincère