当前位置: 首页>>代码示例>>VB.NET>>正文


VB.NET DiscoveryClientProtocol.WriteAll方法代码示例

本文整理汇总了VB.NET中System.Web.Services.Discovery.DiscoveryClientProtocol.WriteAll方法的典型用法代码示例。如果您正苦于以下问题:VB.NET DiscoveryClientProtocol.WriteAll方法的具体用法?VB.NET DiscoveryClientProtocol.WriteAll怎么用?VB.NET DiscoveryClientProtocol.WriteAll使用的例子?那么恭喜您, 这里精选的方法代码示例或许可以为您提供帮助。


在下文中一共展示了DiscoveryClientProtocol.WriteAll方法的1个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。

示例1: DiscoveryClientProtocol

Public Sub Discover_Click(Source As Object, e as EventArgs )
   ' Specify the URL to discover.
   Dim sourceUrl as String = DiscoURL.Text
   ' Specify the URL to save discovery results to or read from.
   Dim outputDirectory As String = DiscoDir.Text

   Dim client as DiscoveryClientProtocol = new DiscoveryClientProtocol()
   ' Use default credentials to access the URL being discovered.
   client.Credentials = CredentialCache.DefaultCredentials
   Try 
     Dim doc As DiscoveryDocument
     ' Discover the URL for any discoverable documents. 
     doc = client.DiscoverAny(sourceUrl)

 ' Resolve all possible references from the supplied URL.
     client.ResolveAll()
           
    Catch e2 As Exception
       DiscoveryResultsGrid.Columns.Clear()
       Status.Text = e2.Message
    End Try

    ' Save the discovery results to disk.	    
    Dim results As DiscoveryClientResultCollection 
    results = client.WriteAll(outputDirectory, "results.discomap")
    Status.Text = "The following file holds the links to each of the discovery results: <b>" + _ 
                                  Path.Combine(outputDirectory,"results.discomap") + "</b>"
   End Sub
开发者ID:VB.NET开发者,项目名称:System.Web.Services.Discovery,代码行数:28,代码来源:DiscoveryClientProtocol.WriteAll


注:本文中的System.Web.Services.Discovery.DiscoveryClientProtocol.WriteAll方法示例由纯净天空整理自Github/MSDocs等开源代码及文档管理平台,相关代码片段筛选自各路编程大神贡献的开源项目,源码版权归原作者所有,传播和使用请参考对应项目的License;未经允许,请勿转载。