open
Unix
;;
(** Ouverture et connexion d'une socket *)
let
open_connection
address
port
=
let
socket
=
socket
PF_INET
SOCK_STREAM
0
in
(* bind socket (ADDR_INET (inet_addr_any, 0));*)
connect
socket
(
ADDR_INET
(
address
,
port
));
socket
;;