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

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

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

Код: 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
| Ответить | Цитировать | Написать  
27.02.2008, 22:54
    #35159377
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сохранение HTML страниц на харде
А зачем вы в SSIS используете старый VB и не пользуетесь .net ? Там же есть и WebRequest и WebResponse для этих целей.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сохранение HTML страниц на харде / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 354ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2162632]:
 0ms
get settings:
 7ms
get forum list:
 15ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 52ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 216ms
total:  354ms
x
x
Закрыть


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