Discussion :

[Sixpounder]

Bonjour amis développeurs,

Voici mon problème depuis un certains temps je n'arrive plus à faire fonctionner correctement la fonction GetLocalIP() issue de la FAQ. Le problème vient du dernier if que je n'arrive pas à passer :

Le code source complet :

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
46
 
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
AnsiString TForm1::getLocalIP()
{
	WORD wVersionRequested;
	WSADATA wsaData;
	char name[255];
	AnsiString ip = "Aucune ip trouvée.";
	PHOSTENT hostinfo;
	wVersionRequested = MAKEWORD( 2, 0 );
	if ( WSAStartup( wVersionRequested, &wsaData ) == 0 )
	{
		if ( gethostname ( name, sizeof(name)) == 0) // nom de l'ordinateur
		{
			if((hostinfo = gethostbyname(name)) != NULL)
			{
				// récupération de l'ip
				ip = inet_ntoa (*(in_addr *)*hostinfo->h_addr_list);
			}
		}
		WSACleanup( );
	  }
	return ip;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString ip1 = getLocalIP();
  ShowMessage(ip1);
}
//---------------------------------------------------------------------------

La partie qui me pose problème :

Code :

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

1
2
3
4
5
6
 
if((hostinfo = gethostbyname(name)) != NULL)
{
     // récupération de l'ip
     ip = inet_ntoa (*(in_addr *)*hostinfo->h_addr_list);
}

Dans mon Unit.h :

Code :

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

1
2
3
4
5
6
7
8
9
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <winsock2.h>

Merci d'avance.


[EDIT :] Testé sur un OS virtuel, l'application marche correctement... Quelqu'un aurait-il une idée maintenant que je sais que mon programme n'est pas fautif ?

[ShaiLeTroll]

Version C++ Builder ?
Version OS Virtuel ? XP ?
Version OS "Fautif" ? Vista ? Seven ? 64 Bits ?

[Sixpounder]

- Embarcadero® C++Builder® 2010
- XP pro SP3 32 Bits pour les deux OS.

[ShaiLeTroll]

Normalement, il n'y a pas de version UniCode pour gethostname et gethostbyname, n'hésite à l'afficher par un ShowMessage si le débuggueur se montre capricieux !

Pour la Version de WinSock, perso, j'ai le même code en Delphi, qui fonctionne sous XP SP3 (ma version détecte les IP multiples), et j'utilise la version 1.1 et non 2.0

Code :

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

MAKEWORD(1, 1)

[totoche76]

Hello,

inet_ntoa renvoie NULL ? Que dit GetLastError() dans ce cas ??

Que vaut hostinfo->h_addrtype ?

Et question subsidiaire, que vaut AnsiString( (char*)(hostinfo->h_addr_list[0]) ) ?

Regardes la description de la structure hostent. h_addr_list contient une liste d'adresses. Si tu as plusieurs interfaces réseaux, il faut parcourir la liste, pas juste prendre la 1ère entrée.

PS: Ça fait un peu bizarre de répondre à une question par d'autres questions, mais bon...

[Sixpounder]

gethostname => renvoit 0.

inet_ntoa renvoie NULL ? Oui.

GetLastError() => 1101. => WSAHOST_NOT_FOUND, No such host is known.

hostinfo->h_addrtype => 416.

Donc un problème d'hôtes méconnu.

[ShaiLeTroll]

gethostname => renvoit 0.

heureusement, puis que c'est le test suivant qui ne fonctionne pas !
Que contient name ?

Dans la MSDN gethostname

If no local host name has been configured, gethostname must succeed and return a token host name that gethostbyname or WSAAsyncGetHostByName can resolve.

Tu est peut-être dans ce cas ! Même si je n'arrive pas bien à comprendre comment le nom local pourrait ne pas être renseigner pour un ordinateur en réseau ! Car je suppose que tu as un réseau local dont ton poste fait parti, LAN partagé par la machine virtuelle