Discussion :

[konitchua]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
let server_addr = Unix.inet_addr_of_string "193.252.122.103" in
let port_number = 80 in
let prise = Unix.ADDR_INET(server_addr, port_number) in
let path = "/Inc/infos_legales_vis.html#" in
let host = "Host:www.orange.fr" in
try
          let fd_in, fd_out = Unix.open_connection prise  in
          let request = Printf.sprintf "GET %s HTTP/1.0%c%c%s%c%c%c" path 
                             '\r' '\n' host '\r' '\n' '\r' in
          let descr_out = descr_of_out_channel fd_out 
          in
          match select  [] [descr_out;] [] 3. with
                    ([],[],[]) -> print_endline "pas de connexion" ;
                    | (_ ,descr_out,_) -> print_endline "connexion";
          output_string fd_out request; flush fd_out;Unix.shutdown_connection 
          fd_in;
with _ -> print_endline "pas de connexion" ;

merci encore pour votre aide

[InOCamlWeTrust]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
let request = Printf.sprintf "GET %s HTTP/1.0%c%c%s%c%c%c" path 
                             '\r' '\n' host '\r' '\n' '\r' in

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
let request = Printf.sprintf "GET %s HTTP/1.0\r\n%s\r\n\r" path host in