Ocaml错误lwt

以下

let new_socket () = Lwt_unix.socket Unix.PF_INET Unix.SOCK_STREAM 0 in  
let socket_address = Network.make_address "127.0.0.1" 7777 in  
let listening_socket = new_socket () in  
Lwt_unix.setsockopt listening_socket Unix.SO_REUSEADDR true;  
Lwt_unix.bind listening_socket socket_address; 

导致此错误的原因：

错误：正确性：2:远程客户端：0:设置

Unix.Unix_error(Unix.EADDRINUSE, "bind", "")
Raised at file "src/core/lwt.ml", line 782, characters 22-23
Called from file "src/unix/lwt_main.ml", line 34, characters 8-18
Called from file "src/oUnit.ml", line 597, characters 6-10`

---

最后一行无法授予绑定，原因，如何传递？

错误已明确说明：您尝试绑定到的地址已在使用中，端口7777上已绑定套接字

---

要理解函数引发的

Unix\u错误的代码，请查看相应的C Unix函数手册。如果是这样的话。
我需要这个端口，我该怎么办？如果需要端口，请尝试找出哪个进程正在使用它，然后停止它。如果需要运行该进程，可以尝试更改其设置以使用其他端口，从而释放该端口供自己使用。如果您无法执行上述操作，请尝试寻找其他计算机来运行您的程序。