IP locale en fonction du Hostname

Version imprimable

Bonjour,

Après plusieurs recherches sur le web, je finis par poster ici, mon problème étant que je n'arrive pas à trouver l'ip locale d'un ordinateur sur mon réseau local à partir du Hostname, voici donc mon code (qui ne marche pas) :
Code:

1 2 3 4 5 6 7 8 if ListBox1.ItemIndex > 1 then Begin // On mets le message a envoyé sous cette forme : Hostnameenfonctiondel'ip + a dit : + Le message entré dans le Memo2. messend := (Gstack.HostByAddress(Gstack.LocalAddress) + ' dit : ' + Memo2.Text); // On envoie à la personne sélectionnée dans la ListBox. ip := Gstack.LocalAddress(ListBox1.Items[ListBox1.ItemIndex]); // Ligne à problème. IdUDPCLient1.Send(ip, 3000, messend); End;
Je recherche donc un équivalent à Gstack.LocalAddress() pour les hostnames vus que mes items dans ma ListBox comportent des Hostnames.

Je suis donc en attente de votre réponse.

Cordialement,

20/01/2010, 10h28
ShaiLeTroll

as-tu essayé les basiques GetHostByAddr et GetHostByName de WinSock.pas ?
20/01/2010, 10h57
Sh0ck

Alors, voici ce que l'IDE me dit à la compilation :

Pour : GetHostByAddr(ListBox1.Items[ListBox1.ItemIndex]);

- Incompatible types : 'Pointer' and 'String'.

Et pour : GetHostByName(ListBox1.Items[ListBox1.ItemIndex]);

- Incompatible 'string' and 'PAnsiChar'.

Après la seconde erreur, j'ai essayé ceci :

GetHostByName(PAnsiChar(ListBox1.Items[ListBox1.ItemIndex]));

Et j'ai eus cette erreur :

- Incompatible 'string' and 'PHostEnt'.

Tu as regardé l'aide du SDK de l'API Windows et de WinSock2 ?
Tu utilisais des Fonctions Wrappers encapsulant les API Windows qui utilisent des paramètres du C
tu connais la touche :F1: ?
Un peu d'effort !

J'ai déjà utilisé ces fonctions, voici du vieux codes que j'avais trouvé à l'époque, je suis de bonne humeur, je te la donne !

pour Appeler, le code suivant suffit

Code:

GetStringListLocalIP(Memo1.Lines);

Code:

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
 
function GetStringListLocalIP(IPList : TStrings): Integer;
type
    TArrayInAddr = array [0..15] of PInAddr;
    PArrayInAddr = ^TArrayInAddr; // Pointeur sur un Tableau de type TArrayInAddr
var
    lpHostEntry : PHostEnt; // Pointeur sur un THostEnt
    lpaInAddr : PArrayInAddr; // Pointeur
    Buffer : array [0..63] of char;
    i : Integer;
    lpWSAData : TWSADATA;
begin
    Result := 0;
    if not Assigned(IPList) then begin
       Exit;
    end;
 
    // Version 1,1
    // lpWSAData est un paramètre en sortie que je n'utilise pas
    WSAStartup(MAKEWORD( 1, 1 ), lpWSAData);
    // Récupération du nom de l'Hôte dans buffer
    GetHostName(Buffer, SizeOf(Buffer));
    // Récupération du pointeur sur le la Struture THostEnt corrsespondant à l'Hôte
    lpHostEntry :=GetHostByName(buffer);
    if lpHostEntry = nil then Exit;
    // Transtypage de la liste d'adresse IP format numérique en Tableau de type TArrayInAddr
    // h_addr_list de PHostEnt est une liste d'adresse IP
    // PArrayInAddr(...) effectue le transtypage
    lpaInAddr := PArrayInAddr(lpHostEntry^.h_addr_list);
    i := 0;
    // pptr est un pointeur donc pptr^ est le contenu
    while lpaInAddr^[i] <> nil do begin
    //Conversion en chaine Pascal de l'adresse IP en Format '.' à partir du format numérique
    // lpaInAddr^[i] est un pointeur donc lpaInAddr^[i]^ est le contenu
        IPList.Add( StrPas(inet_ntoa(lpaInAddr^[i]^)) );
        Result:= Result + 1 ;
        Inc(i);
    end;
    // C'est la dernière la bonne
    // Libération du Socket
    WSACleanup;
end;

Tu peux transformer cette fonction GetStringListLocalIP en GetStringListIP(HostName, IPList), suffit de mettre la paramètre HostName dans Buffer et de ne plus appeler GetHostName

20/01/2010, 11h59
Sh0ck

La fonction ne marche pas dans mon cas vus qu'à la base, les hostnames dans les items de ma ListBox sont considérées comme 'Strings'.

Bref je mets quand même résolu, je ne suis pas du genre à demander de l'aide, apparament quand on en demande, cela dérange, du moins c'est cette impression que j'ai.

Bonne continuation.

Non, c'est surtout que tu ne lis même pas l'aide lorsque l'on t'indique deux nouvelles fonctions que tu ne connais pas, tu déballes des erreurs de compilateur qui sont évidentes puisque ces fonctions utilisent des paramètres différents !
Tu n'as pas les reflexes minimales !

Ensuite, je t'ai indiqué comment transformer la fonction en ceci, ou l'on passe le HostName en paramètre, tu avais 2 lignes de code à modifier mais tu n'en fait même pas l'effort !

Tient du code prêt à l'emploi !

Code:

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
function GetStringListIP(const HostName: string; IPList : TStrings): Integer;
type
    TArrayInAddr = array [0..15] of PInAddr;
    PArrayInAddr = ^TArrayInAddr; // Pointeur sur un Tableau de type TArrayInAddr
var
    lpHostEntry : PHostEnt; // Pointeur sur un THostEnt
    lpaInAddr : PArrayInAddr; // Pointeur
 
    i : Integer;
    lpWSAData : TWSADATA;
begin
    Result := 0;
    if not Assigned(IPList) then begin
       Exit;
    end;
 
    // Version 1,1
    // lpWSAData est un paramètre en sortie que je n'utilise pas
    WSAStartup(MAKEWORD( 1, 1 ), lpWSAData);
 
    // Récupération du pointeur sur le la Struture THostEnt corrsespondant à l'Hôte
    lpHostEntry :=GetHostByName(PChar(HostName));
    if lpHostEntry = nil then Exit;
    // Transtypage de la liste d'adresse IP format numérique en Tableau de type TArrayInAddr
    // h_addr_list de PHostEnt est une liste d'adresse IP
    // PArrayInAddr(...) effectue le transtypage
    lpaInAddr := PArrayInAddr(lpHostEntry^.h_addr_list);
    i := 0;
    // pptr est un pointeur donc pptr^ est le contenu
    while lpaInAddr^[i] <> nil do begin
    //Conversion en chaine Pascal de l'adresse IP en Format '.' à partir du format numérique
    // lpaInAddr^[i] est un pointeur donc lpaInAddr^[i]^ est le contenu
        IPList.Add( StrPas(inet_ntoa(lpaInAddr^[i]^)) );
        Result:= Result + 1 ;
        Inc(i);
    end;
    // C'est la dernière la bonne
    // Libération du Socket
    WSACleanup;
end;

Sinon, euh Gstack.LocalAddress c'est une propriété et non une fonction, ton code à la base, il ne compile même pas ?

As tu regardé la fonction WSGetHostByName du GStack !
Idem, en 2 clics sur l'aide Indy, j'ai trouvé la réponse !