Question

我想知道是否有人可以帮助我 - 我已经编程了VB.Net很长一段时间但很少在ASP.Net中做很多线程。

我正在尝试使用内存浏览器获取网站的“屏幕截图”。然后将这些映像记录在数据库中并写入本地文件系统。

当我在本地服务器上运行它时，一切正常。当我在共享托管环境中运行它时，一切都很好，直到我执行thread.join，此时目标线程立即终止或卡住（从任一线程都没有收到进一步的日志信息）。我已附上以下日志

关键代码也附有，但简而言之：

对于每个url，启动一个新线程并将thread.join添加到它。新线程将加载浏览器并开始导航。然后，在返回生成的位图图像（下一步）之前，浏览器加载完成之前，它将会跳过。

在浏览器加载完成时，会触发一个事件。处理程序从浏览器捕获位图图像并将其写入本地。

我已经完成了一些谷歌搜索并且找不到很多相关信息 - 我发现了常见的共享托管问题，并确保我已经覆盖了它们（例如允许部分信任的呼叫者，签署程序集等等。。）

如果有关于这个主题的知识的人能够指出我正确的方向，我将不胜感激。

非常感谢

注意：我知道目前它会非常慢，因为它按顺序处理图像 - 但是直到我可以让它在一个线程上工作，我没有机会让它在多个线程上工作。

这在很大程度上是从代码示例中混合而来的，我甚至还没有开始整理它/组织它更好，所以为稍微凌乱的代码道歉。

Public Function GetWebsiteImage(ByVal URL As String, Optional ByVal BrowserWidth As Integer = 1280, Optional ByVal BrowserHeight As Integer = 1024) As Bitmap
    LogIt(String.Format("Webshot {1}: {0}", "Getting Image", id))
    _URL = URL
    _BrowserHeight = BrowserHeight
    _BrowserWidth = BrowserWidth

    Dim T As Thread
    T = New Thread(New ThreadStart(AddressOf GenerateImage))

    T.SetApartmentState(ApartmentState.STA)
    'T.IsBackground = True
    LogIt(String.Format("Webshot {1}: {0}", "Starting Thread", id))
    T.Start()

    '*** THIS IS THE LAST LOG ENTRY I SEE ***
    LogIt(String.Format("Webshot {1}: {0}", "Joining Thread", id))
    T.Join()

    Return _Bitmap
End Function

Friend Sub GenerateImage()
    LogIt(String.Format("Webshot {1}: {0}", "Instantiating Web Browser", id))
    Dim _WebBrowser As New WebBrowser()
    _WebBrowser.ScrollBarsEnabled = False
    LogIt(String.Format("Webshot {1}: {0}", "Navigating", id))
    _WebBrowser.Navigate(_URL)
    AddHandler _WebBrowser.DocumentCompleted, AddressOf WebBrowser_DocumentCompleted
    'AddHandler _WebBrowser.
    While _WebBrowser.ReadyState <> WebBrowserReadyState.Complete
        Application.DoEvents()
    End While
    LogIt(String.Format("Webshot {1}: {0}", "Disposing", id))
    _WebBrowser.Dispose()
End Sub

Private Sub WebBrowser_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
    LogIt(String.Format("Webshot {1}: {0}", "Document load complete", id))
    Dim _WebBrowser As WebBrowser = DirectCast(sender, WebBrowser)
    _WebBrowser.ClientSize = New Size(Me._BrowserWidth, Me._BrowserHeight)
    _WebBrowser.ScrollBarsEnabled = False
    _Bitmap = New Bitmap(_WebBrowser.Bounds.Width, _WebBrowser.Bounds.Height)
    _WebBrowser.BringToFront()
    _WebBrowser.DrawToBitmap(_Bitmap, _WebBrowser.Bounds)
    _PageTitle = _WebBrowser.DocumentTitle
    LogIt(String.Format("Webshot {1}: {0}", "About to capture bitmap", id))
    _Bitmap = DirectCast(_Bitmap.GetThumbnailImage(_BrowserWidth, _BrowserHeight, Nothing, IntPtr.Zero), Bitmap)
    LogIt(String.Format("Webshot {1}: {0}", "Bitmap captured", id))
End Sub

和我看到的日志条目：

2010 01 19 02:21:01 > Starting Process
2010 01 19 02:21:01 > Capture 229 Processing: http://www.obfuscated.com/
2010 01 19 02:21:01 > Capture 229 Found capture db record
2010 01 19 02:21:01 > Webshot f7710f41-cac0-4ed1-93df-020620257c91: Instantiated
2010 01 19 02:21:01 > Capture 229 Requesting image
2010 01 19 02:21:01 > Webshot f7710f41-cac0-4ed1-93df-020620257c91: Getting Image
2010 01 19 02:21:01 > Webshot f7710f41-cac0-4ed1-93df-020620257c91: Starting Thread
2010 01 19 02:21:01 > Webshot f7710f41-cac0-4ed1-93df-020620257c91: Joining Thread

Answer 1

在本地服务器上运行时，是指ASP.NET个人Web服务器还是IIS的本地安装？前者甚至不能与IIS相媲美，因为它作为交互式Windows应用程序运行，而后者则作为服务运行，没有UI，线程的行为完全由IIS管理。

您可以尝试在Page指令上设置aspcompat =“true”，但更有可能的是，托管公司已经配置了IIS工作进程ping，这将终止在定义的时间段内无响应的线程。

最重要的是，WebBrowser控件（以及它包装的SHDocVw ActiveX控件）并非设计用于非交互式服务过程，并且您可能需要进行爬坡才能使其正常工作。不幸的是，我不知道任何更安全的替代品。

Thread.Join在共享托管环境中

1 个答案: