Hello,
 
Voilà, je veux créer un bind() sous delphui après avoir fait mon socket() mais le truc c'est que je dois passer en paramètres :
 
int bind (
    SOCKET s,  
    const struct sockaddr FAR*  name,  
    int namelen  
   );
 
Le socket c'est bon il est créé mais pour le reste... je dois mettre quoi ??? help ! j'en peux plus !
 
a++
 
Darx

function Bind_Port(Socket: TSocket; LocalPort: Integer): Integer;
var
  SockNamelen : Integer;
  LocalSockName: TSockAddrIn;
  Ip, n: String;
begin
  GetHostInfo(n, Ip);
 
  FillChar(LocalSockName, Sizeof(LocalSockName), 0);
  SockNamelen := sizeof(LocalSockName);
  LocalSockName.sin_family := AF_INET;
  LocalSockName.sin_port := WSocket_htons(LocalPort);//Port Local
  LocalSockName.sin_addr.s_addr := WSocketResolveHost(Ip).s_addr;
  result := Bind(Socket, LocalSockName, SockNamelen);
end;
 
procedure GetHostInfo(var Name, Address: string);
var
  WSAData: TWSAData;
  HostEnt: PHostEnt;
begin
  { no error checking...}
  WSAStartup(2, WSAData);
  SetLength(Name, 255);
  Gethostname(PChar(Name), 255);
  SetLength(Name, StrLen(PChar(Name)));
  HostEnt := gethostbyname(PChar(Name));
  with HostEnt^  do
    Address := Format('%d.%d.%d.%d',[
      Byte(h_addr^[0]),
      Byte(h_addr^[1]),
      Byte(h_addr^[2]),
      Byte(h_addr^[3])]);
  WSACleanup;
end;