Ну собственно решил создать новую тему из этой:
Вызов стандартного окна загрузки IE
т.к. постановка вопроса изменилась.
Сразу объясню почему меня не устраивает раннее связывание в .Net.
При добавлении ссылки на COM .Net создает обертку. Эта обертка под конкретную версию COM, версию .Net (в этом духе).
Стоит поменять .Net -версию проекта, изменить битность кода (x86/x64), перенести exe на другую машину/OS где другая версия COM dll, и все развалится с ошибкой типа:
Невозможно загрузить файл или сборку "Interop.SHDocVw, Version=1.1.0.0, Culture=neutral, PublicKeyToken=null" или один из зависимых от них компонентов. Сборка создана в более поздней версии среды выполнения чем текущая, и не может быть загружена.
В то же время позднее связывание (CreateObject) этим дефектом не страдает.
Т.е. есть код через раннее связывание:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Imports SHDocVw 'Microsoft Internet Controls
Public Class Form1
Dim WithEvents TheBrowser As InternetExplorer
Private Sub ButtonDownload_Click(sender As Object, e As EventArgs) Handles ButtonDownload.Click
TheBrowser = New InternetExplorer
TheBrowser.Visible = True 'В реальном коде .Visible = False
TheBrowser.Navigate("http://www.myproga.com/newversion.zip")
End Sub
Private Sub TheBrowser_FileDownload(ActiveDocument As Boolean, ByRef Cancel As Boolean) Handles TheBrowser.FileDownload
'ActiveDocument = True -если загружается страница типа http://err.provider.com/vh/404.html, а не окно сохранения файла
'ActiveDocument = False -если выводится IE-окно сохранения требуемого файла
If ActiveDocument = True Then TheBrowser.Quit()
TheBrowser = Nothing
End Sub
Private Sub TheBrowser_NavigateError(pDisp As Object, ByRef URL As Object, ByRef Frame As Object, ByRef StatusCode As Object, ByRef Cancel As Boolean) Handles TheBrowser.NavigateError
'напр. ошибка "Не удается отобразить эту страницу"
TheBrowser.Quit()
TheBrowser = Nothing
End Sub
End Class
Переписываем его через позднее связывание:
1.
2.
3.
4.
5.
6.
Private Sub ButtonDownloadLastBing_Click(sender As Object, e As EventArgs) Handles ButtonDownloadLastBing.Click
Dim TheBrowserLB As Object
TheBrowserLB = CreateObject("InternetExplorer.Application")
TheBrowserLB.Visible = True 'В реальном коде .Visible = False
TheBrowserLB.Navigate("http://www.myproga.com/newversion.zip")
End Sub
Пара комментов.
1. Для указанного частного случая с COM-объектом InternetExplorer.Application есть типа .Net-замена -
WebBrowser - класс . Но я уже его исследовал и пришел к выводу, что он не делает то что мне нужно и так как нужно.
2. Для этого примера с InternetExplorer.Application с обработкой событий можно и забить. Но мне в дальнейшем при миграции моего проекта понадобится к примеру другой системный COM: Microsoft Fax Service Extended COM Type Library (fxscomex.dll). И вот там без событий никак.
Т.е. мне нужно какое-то общее решение для COM + Позднее связывание + События.
