ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сохранение HTML страниц на харде
6 сообщений из 6, страница 1 из 1
Сохранение HTML страниц на харде
    #34971054
Mazai-XZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mazai-XZ
Гость
Доброго дня! Подскажите, пожалуйста как можно сохранить страничку, которая отображается в элементе WebBrowser на жёсткий диск. На подобии как в эксплорере - Сохранить как... или просто сохранить.
...
Рейтинг: 0 / 0
28.11.2007, 11:23
| Ответить | Цитировать | Написать  
Сохранение HTML страниц на харде
    #34971336
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
document.documentElement.outerHTML - полный текст страницы. Как сохранить строку, надеюсь объяснять не надо?
...
Рейтинг: 0 / 0
28.11.2007, 12:30
| Ответить | Цитировать | Написать  
Сохранение HTML страниц на харде
    #34971396
Belkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Belkin
Участник
Попробуй так.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Option Explicit

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
Public Event ErrorDownload(FromPathName As String, ToPathName As String)
Public Event DownloadComplete(FromPathName As String, ToPathName As String)
  
Public Function DownloadFile(FromPathName As String, ToPathName As String)
If URLDownloadToFile( 0 , FromPathName, ToPathName,  0 ,  0 ) =  0  Then
DownloadFile = True
RaiseEvent DownloadComplete(FromPathName, ToPathName)
Else
DownloadFile = False
RaiseEvent ErrorDownload(FromPathName, ToPathName)
End If
End Function
  
Private Sub Command1_Click()
Call DownloadFile("http://www.sql.ru/forum/actualforum.aspx", "c:\index.html")
End Sub

-----------
Андрей.
...
Рейтинг: 0 / 0
28.11.2007, 12:44
| Ответить | Цитировать | Написать  
Сохранение HTML страниц на харде
    #34974388
Mazai-XZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mazai-XZ
Гость
Огромнейшее спасибо! Вы в очередной раз мне помогли!! Всё работает отлично! Спасибо!!!! =)))
...
Рейтинг: 0 / 0
29.11.2007, 12:15
| Ответить | Цитировать | Написать  
Сохранение HTML страниц на харде
    #35155040
Фотография Katy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Katy
Участник
не уверенна что в правильный подфорум пишу
проблемма в следующем

вот такой код в макросе ексель работает нормально

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
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
Public Event ErrorDownload(FromPathName As String, ToPathName As String)
Public Event DownloadComplete(FromPathName As String, ToPathName As String)

Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long

If URLDownloadToFile( 0 , URL, LocalFilename,  0 ,  0 ) =  0  Then
DownloadFile = True
RaiseEvent DownloadComplete(URL, LocalFilename)
Else
DownloadFile = False
RaiseEvent ErrorDownload(URL, LocalFilename)
End If

End Function

Private Sub Main()
        Dim path_from As String
        Dim path_to As String

        path_from = "http://www.ozon.ru/multimedia/books_covers/small/1000389773.gif"
        path_to = "c:\temp\" & Format(Now, "hhmmss") & ".gif"

        DownloadFile path_from, path_to
        
End Sub

а вот такой код в пакете SSIS (Script Task)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Runtime

Public Class ScriptMain
    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
    Public Event ErrorDownload(ByVal FromPathName As String, ByVal ToPathName As String)
    Public Event DownloadComplete(ByVal FromPathName As String, ByVal ToPathName As String)

    Public Function DownloadFile(ByVal URL As String, ByVal LocalFilename As String) As Boolean
        If URLDownloadToFile( 0 , URL, LocalFilename,  0 ,  0 ) =  0  Then
            DownloadFile = True
            MsgBox("ok")
            RaiseEvent DownloadComplete(URL, LocalFilename)
        Else
            DownloadFile = False
            MsgBox("error")
            RaiseEvent ErrorDownload(URL, LocalFilename)
        End If

    End Function

	Public Sub Main()
        Dim path_from As String
        Dim path_to As String

        path_from = "http://www.ozon.ru/multimedia/books_covers/small/1000389773.gif"
        path_to = "c:\temp\" & Format(Now, "hhmmss") & ".gif"

        DownloadFile(path_from, path_to)

        Dts.TaskResult = Dts.Results.Success
	End Sub

End Class
при выполнении говорит "error"
совершенно непонятно в какую сторону копать
...
Рейтинг: 0 / 0
26.02.2008, 12:42
| Ответить | Цитировать | Написать  
Сохранение HTML страниц на харде
    #35159377
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
А зачем вы в SSIS используете старый VB и не пользуетесь .net ? Там же есть и WebRequest и WebResponse для этих целей.
...
Рейтинг: 0 / 0
27.02.2008, 22:54
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сохранение HTML страниц на харде
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34974388&tid=2162632]:
 0ms
get settings:
 8ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 46ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 208ms
total:  315ms
созд. / загр.: 315ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]