Discussion :

[SergioMaster]

Bonjour,

J'ai eu besoin de retrouver mon adresse locale, comme il s'agissait d'un programme VCL je me suis tout d'abord fié à la FAQ
Mais, depuis Delphi Seattle (du moins je crois) les composants internet ne sont pas installés par défaut (il est bien entendu possible de les installer http://docwiki.embarcadero.com/RADSt...posants_socket)

Donc, à moins d'installer des composants (et encore n'y trouve-t-on point TCustomIpClient) le mieux est encore de passer par Indy (installé, lui)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    uses IdStack;
 
    function GetIP : String;
    begin
      TIdStack.IncUsage;
      try
        Result := GStack.LocalAddress;
      finally
        TIdStack.DecUsage;
      end;
    end;

D'autres manières (sans installer de composants) ?

[Cirec]

Bonjour,

deux autres versions:
la première est tirée de la FAQ

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
uses winsock, system.net.Socket;
 
function LocalIP : String;
type
  TArrayPInAddr = array [0..10] of PInAddr;
  PArrayPInAddr = ^TArrayPInAddr;
var
  phe      : PHostEnt;
  pptr     : PArrayPInAddr;
  Buffer   : array [0..63] of ansichar;
  i        : integer;
  GInitData: TWSADATA;
begin
  WSAStartup($101, GInitData);
  result := '';
  GetHostName(Buffer, sizeof(Buffer));
  phe := GetHostByName(Buffer);
  if phe=nil
    then exit;
  pptr := PArrayPInAddr(phe^.h_addr_list);
  i := 0;
  while pptr^[i]<>nil do
  begin
    result := StrPas(inet_ntoa(pptr^[i]^));
    Inc(i);
  end;
  WSACleanup;
end;
 
procedure TForm10.Button1Click(Sender: TObject);
begin
  // 1
  Label1.Caption := LocalIP;
 
  // 2
  with TSocket.Create(TSocketType.TCP, nil) do
  try
    Caption := LocalIP;
  finally
    Free;
  end;
end;

Cordialement,

@+

[Paul TOTH]

attention, le PC peux très bien avoir plusieurs adresses IP

extrait de mon code qui utilise sa propre définition de l'API Winsock, tu peux donc avoir quelques problèmes de types, il peut manquer des @ ou des transtypages...mais le principe est là

pour ByteString tu peux prendre AnsiString

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
type
  TAddrList = TArray<Integer>;
 
function GetLocalAddrList: TAddrList;
  var
    name : ByteString;
    host : PHostEnt;
    addr : PAddr;
    count: Integer;
  begin
    Result := nil;
 
    SetLength(name.Bytes, 50);
    if gethostname(name, 50) = SOCKET_ERROR then
      Exit;
 
    host := gethostbyname(name);
    if host = nil then
      Exit;
 
    addr := host.h_addr_list;
    count := 0;
    while addr^ <> nil do
    begin
      Inc(count);
      Inc(addr);
    end;
    if Count = 0 then
      Exit;
 
    SetLength(Result, count);
    addr := host.h_addr_list;
    count := 0;
    repeat
      Result[count] := addr^^;
      Inc(count);
      Inc(addr);
    until addr^ = nil;
  end;
end;

[SergioMaster]

je vois mon erreur j'ai voulu utiliser uniquement le premier code de la FAQ, l'avertissement

Ce code ne fonctionne que pour Delphi 6 et supérieur.

m'a mis dedans
Je pense qu'il va falloir le changer en

Ce code ne fonctionne que pour les versions de Delphi 6 à Delphi 10

Merci à vous 2

attention, le PC peux très bien avoir plusieurs adresses IP

je me contentai du postulat "une seule carte branchée par PC" mais c'est vrai, faut se méfier avec les utilisateurs ...
J'ai peut-être intérêt à pousser un peu plus mon truc

[Paul TOTH]

un cas d'adresses multiples courant chez les développeurs se produit avec les machines virtuelles, il y a un adaptateur virtuel en plus

[SergioMaster]

Effectivement c'est le cas chez moi

Carte Ethernet Ethernet :

Statut du média. . . . . . . . . . . . : Média déconnecté
Suffixe DNS propre à la connexion. . . : home

Carte Ethernet VirtualBox Host-Only Network :

Suffixe DNS propre à la connexion. . . :
Adresse IPv6 de liaison locale. . . . .: fe80::4897:312d:e715:6b7a%16
Adresse IPv4. . . . . . . . . . . . . .: 192.168.56.1
Masque de sous-réseau. . . .*. . . . . : 255.255.255.0
Passerelle par défaut. . . .*. . . . . :

Carte réseau sans fil Connexion au réseau local* 1*:

Statut du média. . . . . . . . . . . . : Média déconnecté
Suffixe DNS propre à la connexion. . . :

Carte réseau sans fil Connexion au réseau local* 12*:

Statut du média. . . . . . . . . . . . : Média déconnecté
Suffixe DNS propre à la connexion. . . :

Carte réseau sans fil Wi-Fi*:

Suffixe DNS propre à la connexion. . . : home
Adresse IPv6 de liaison locale. . . . .: fe80::e99e:64c:f277:d8%20
Adresse IPv4. . . . . . . . . . . . . .: 192.168.1.30
Masque de sous-réseau. . . .*. . . . . : 255.255.255.0
Passerelle par défaut. . . .*. . . . . : 192.168.1.1

Du coup je me retrouve avec 192.168.56.1 Il va me falloir procéder à des ajustements

[aimer_Delphi]

Bonjour ,
j'allais poser la même question,(merci Sergio) .
j'ai trouvé ce post sur notre forum :
obtenir adresse ip local

avez trouvez une mise a jour pour la solution proposée sur la faq?

[aimer_Delphi]

la solution proposé par Cirec marche très bien .

[Cirec]

attention, le PC peux très bien avoir plusieurs adresses IP

extrait de mon code qui utilise sa propre définition de l'API Winsock, tu peux donc avoir quelques problèmes de types, il peut manquer des @ ou des transtypages...mais le principe est là

pour ByteString tu peux prendre AnsiString

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
type
  TAddrList = TArray<Integer>;
 
function GetLocalAddrList: TAddrList;
  var
    name : ByteString;
    host : PHostEnt;
    addr : PAddr;
    count: Integer;
  begin
    Result := nil;
 
    SetLength(name.Bytes, 50);
    if gethostname(name, 50) = SOCKET_ERROR then
      Exit;
 
    host := gethostbyname(name);
    if host = nil then
      Exit;
 
    addr := host.h_addr_list;
    count := 0;
    while addr^ <> nil do
    begin
      Inc(count);
      Inc(addr);
    end;
    if Count = 0 then
      Exit;
 
    SetLength(Result, count);
    addr := host.h_addr_list;
    count := 0;
    repeat
      Result[count] := addr^^;
      Inc(count);
      Inc(addr);
    until addr^ = nil;
  end;
end;

comme je n'arrivais pas à afficher une IP correcte avec ton code (j'obtenais que 192)
j'ai réécris ton code à ma sauce et là j'obtiens bien toutes les IP:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
function GetLocalAddrList: TArray<string>;
var
  Name: AnsiString;
  Host: PHostEnt;
  Addr: PMarshaledAString;
  Count, i: integer;
begin
  Result := nil;
 
  SetLength(Name, 50);
  if GetHostName(PAnsiChar(Name), 50) = SOCKET_ERROR then
    exit;
 
  Host := GetHostByName(PAnsiChar(Name));
  if Host = nil then
    Exit;
 
  Addr := Host^.h_addr ;
  Count := 0;
  while Addr^ <> nil do
  begin
    Inc(Count);
    Inc(Addr);
  end;
  if Count = 0 then
    Exit;
 
  SetLength(Result, Count);
  for i := 0 to Count - 1 do
  begin
    Result[i] := AnsiString(Format('%d.%d.%d.%d', [ord(Host^.h_addr^[0]),
      ord(Host^.h_addr^[1]), ord(Host^.h_addr^[2]), ord(Host^.h_addr^[3])]));
    Inc(Host^.h_addr);
  end;
end;
 
procedure TForm10.Button2Click(Sender: TObject);
var
  SArr: TArray<string>; 
  S: string;
begin
  SArr := GetLocalAddrList;
  for S in SArr do
    Memo1.Lines.Add(S);
end;

la question est pourquoi ça n'a pas fonctionné avec ton code ?
je ne sais pas où j'ai "merdé"

Cordialement,

@+

[Paul TOTH]

la question est pourquoi ça n'a pas fonctionné avec ton code ?
je ne sais pas où j'ai "merdé"

tu n'as pas merdé, c'est juste que dans mon unité je déclare directement l'API Winsock avec des types adaptés à l'usage que j'en fais

Code :

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

1
2
3
4
5
6
7
8
9
10
 
  PAddr = ^PInteger;
  THostEnt = record
    h_name     : PAnsiChar;          // official name of host
    h_aliases  : ^PAnsiChar;         // alias list
    h_addrtype : Smallint;           // host address type
    h_length   : Smallint;             // length of address
    h_addr_list: PAddr;
  end;
  PHostEnt = ^THostEnt;