There's not enough details in your email about the server, but if I 
assume that it merely echos your message back to the client, then the 
message would need to contain a new line at the end in order for the 
input_line function to be able to fetch the response line:

     while true do
         output_string outChannel "(message)\n";   (* !!! *)
         flush outChannel;
         let r=input_line inChannel in
         Printf.printf "%s\n" r;
     done

Serge

Frederico Valente wrote:
> Serge Aleynikov wrote:
>> Frederico,
>>
>> I believe the problem is that you are opening a server socket on a 
>> local address "127.0.0.1" rather than on a publicly-known address 
>> (stored in DNS) or any ("0.0.0.0"), and therefore only a client on the 
>> same host will be able to reach the server.
>>
>> Regards,
>>
>> Serge
> 
> Well, the server is on my machine, as well as the client. That's why 
> I've used that address. I've killed the firewall so that I could rule 
> out that source of problems as well. So I guess the problem lies in my 
> code... :S
> 
> _______________________________________________
> Caml-list mailing list. Subscription management:
> http://yquem.inria.fr/cgi-bin/mailman/listinfo/caml-list
> Archives: http://caml.inria.fr
> Beginner's list: http://groups.yahoo.com/group/ocaml_beginners
> Bug reports: http://caml.inria.fr/bin/caml-bugs
> 

-- 
Serge Aleynikov
Routing R&D, IDT Telecom
Tel: +1 (973) 438-3436
Fax: +1 (973) 438-1464