merci beaucoup, justement je me poser la meme question pas plus tard que hier... :)
juju_le_barbare
Merci !!!!!!!!!!!!!! :hello:
[SDF]Poire
procedure GetIPList(ToList : TStrings);
type
TaPInAddr = array [0..255] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
pptr: PaPInAddr;
I: Integer;
HostEnt: PHostEnt;
Name: String;
WSAData: TWSAData;
begin
WSAStartup(2, WSAData);
SetLength(Name, 255);
Gethostname(PChar(Name), 255);
SetLength(Name, StrLen(PChar(Name)));
HostEnt := gethostbyname(PChar(Name));
if HostEnt <> nil then
begin
pptr := PaPInAddr(HostEnt^.h_addr_list);
I := 0;
while pptr^[I] <> nil do begin
ToList.Add(StrPas(inet_ntoa(pptr^[I]^)));
Inc(I);
end;
end;
WSACleanup;
end;
récupére la liste de toute les ip du poste
juju_le_barbare
Bonjour,
J'ai créé un chat en Delphi, mais pour parler il faut connaitre l'IP du destinataire. J'aimerais donc inclure une fonction qui donne son IP, comme ça on se l'échange et on peut ensuite parler.
Je pourrais faire 'ipconfig', mais bon ça serait mieux sous Delphi !!!
