| Вопрос: Не знаю как сохранить страницу открытую в WebBr... | Добавлено: 19.10.02 17:56 |
Автор вопроса:  Zloy_keks
|
|
Как сохранить страницу открытую в компоненте WebBrouser'е? и как быть с картинками... |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  mzx ICQ: 259560026 Вопросов: 21 Ответов: 143 |
Профиль | | #1 | Добавлено: 20.10.02 19:24 |
|
Сохранить страничку можно так: WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT Не понял вопрос на счет картинок, картинки тоже сохраняются. Можно конечно получить URL картинки и отдельно ее скачать: 'Объявляем функцию Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long 'Скачиваем картинку 'URL - адрес файла 'LocalFilename - куда сохранять на диске Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean Dim lngRetVal As Long lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0) End Function mzx |
||
Страница: 1 |