如何创建 F# WCF 客户端？我不断收到 app.config 错误

Question

我一直致力于在 F# 中创建一个自托管的应用程序服务器。我已经启动并运行了应用服务器，并且可以使用 C# 客户端进行连接，但我想做的一些事情最好使用 F#。问题是我似乎无法让 F# 客户端正常工作。我找到了一些例子，但我似乎无法让它们中的任何一个工作。最有希望的是here。按照那个例子，我想出了以下代码：

let address= new EndpointAddress("net.tcp://192.168.101.100:2009/PrevisionService/tcp")
let factory = new ChannelFactory<IPrevisionAppServer>("NetTcpBinding_IPrevisionAppServer", address)
let channel = factory.CreateChannel()//address)
let GetDataObject (sql) = channel.GetDataObject(sql)
factory.Close()

但我收到以下错误：

在 ServiceModel 客户端配置部分中找不到名为“NetTcpBinding_IPrevisionAppServer”和合同“PrevisionAppServer.Main+IPrevisionAppServer”的端点元素。这可能是因为找不到您的应用程序的配置文件，或者因为在客户端元素中找不到与此名称匹配的端点元素。

我确实有一个 app.config 文件，它在 C# 中运行良好：

<?xml version="1.0" encoding="utf-8"?>
<!--Client Config-->
<configuration>
  <system.serviceModel>
    <bindings>
      <netTcpBinding>
        <binding name="NetTcpBinding_IPrevisionAppServer" closeTimeout="00:01:00"
          openTimeout="00:20:00" receiveTimeout="01:00:00" sendTimeout="01:00:00"
          hostNameComparisonMode="StrongWildcard"
          maxBufferSize="2147483647"
          maxBufferPoolSize="2147483647"
          maxReceivedMessageSize="2147483647">
          <readerQuotas maxDepth="2147483647"
            maxStringContentLength="2147483647"
            maxArrayLength="2147483647"
            maxBytesPerRead="2147483647"
            maxNameTableCharCount="2147483647" />
        </binding>
      </netTcpBinding>
    </bindings>
    <client>
      <endpoint address="net.tcp://192.168.101.100:2009/PrevisionService/tcp" behaviorConfiguration="ServiceViewEventBehavior"
          binding="netTcpBinding" bindingConfiguration="NetTcpBinding_IPrevisionAppServer"
          contract="*" name="NetTcpBinding_IPrevisionAppServer">
      </endpoint>
    </client>
    <behaviors>
      <endpointBehaviors>
        <behavior name="ServiceViewEventBehavior">
          <dataContractSerializer maxItemsInObjectGraph="2147483647"/>
        </behavior>
      </endpointBehaviors>
    </behaviors>
  </system.serviceModel>
</configuration>`

无论出于何种原因，它似乎都忽略了 app.config 文件。有任何想法吗？有更好的代码来让它工作吗？任何将不胜感激！

更新：好吧，我觉得自己很愚蠢，但我没有注意到我在一个测试客户端中运行它，该客户端也有一个 C# UI 作为启动，因此 app.config 位于C# 项目。所以，现在问题变成了，如何将 C# app.config 应用到 F# 项目（我需要这种方式）？意思是，我真的不想将应用程序设置中的所有属性获取和设置都编码为代码。想法？

Answer 1

我不知道contract="*" 是什么东西（可能是 WCF 的一些新功能）。无论如何

'PrevisionAppServer.Main+IPrevisionAppServer' 

诊断中的位，这种类型在哪里定义？ （F# 代码、C# 代码、引用 DLL，什么？）它看起来像一个嵌套类型，我想知道这是否也影响了一些事情......我只是在钓鱼。

（app.config 和 diagnostics 从来都不是 WCF 的最强属性，唉。）

Answer 2

不幸的是，让 F# 和 App.config 一起工作非常棘手。有关该主题的一些帮助，请参阅this question。

考虑到配置 F# 可能会很麻烦，我建议您在代码中手动构建整个代理，或者使用代码内文字手动设置所有绑定属性，或者加载和解析单独的配置文件并设置绑定/该文件中值的行为属性。

我建议在 C# 程序集中使用简单的静态工厂方法执行此操作，您的 F# 代码可以引用并调用该方法以获取代理。

编辑
好吧，忽略上面的建议，除非你在解释器中运行。 @kvb 有权这样做。

也就是说...查看您的配置文件...我认为<endpoint contract="*"> 不会起作用；我很确定您必须明确指定客户端端点的合同。

试试这个：

  <endpoint address="net.tcp://192.168.101.100:2009/PrevisionService/tcp" behaviorConfiguration="ServiceViewEventBehavior"
      binding="netTcpBinding" bindingConfiguration="NetTcpBinding_IPrevisionAppServer"
      contract="Correct.Namespace.IPrevisionAppServer" name="NetTcpBinding_IPrevisionAppServer">
  </endpoint>