如何为TcpListener编写我自己的异步包装？

Question

对于 TcpListener.BeginAcceptTcpClient()和EndAcceptTcpClient()都没有F＃异步包装（在PowerPack中）。

我该如何编写自己的包装，以便我可以使用let!和async关键字并行运行？

Answer 1

你检查了Async.BuildPrimitive函数吗？我认为你可以这样做：

type TcpListener with 
    member x.AsyncAcceptClient() = 
    Async.BuildPrimitive(x.BeginAcceptTcpClient, x.EndAcceptTcpClient) 

创建一个扩展方法返回适当的异步结果。