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 !!!
 
@++

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

Merci !!!!!!!!!!!!!!

merci beaucoup, justement je me poser la meme question pas plus tard que hier...