Обновление программы

[Roman-vb]

Подскажите, как реализовать обновление некоторых данных программы через Инет. Например, загрузить обновлённую бау данных, файл с даннными и заменить старый файл новым.

[alibek]

Поищи по фразе "обновление" за авторством "Andrey Fedorov", он помоему пример выкладывал.
Если вкратце, это будет отдельная программа, которая выгружает основную из памяти, скачивает обновления, обновляет основную программу и запускает ее.

[Бяка]

alibek
ага, png рисунок в архиве
может я нето сматрел?

[Roman-vb]

Я имел в виду обнвление не ЕХЕ-шника, а любых других файлов, поставляемых с программой : БД, ДБК(dll) и т. п. А для этого, по-моему, программу выгружать не надо.

[AlexBlack]

так хм.... храни файлы отдельно на серваке.
Помни их версии.

При апдейте, скачивай лист с линками, файлами и их версиями.
Если версии не совпадают скачивай ту версию которая на серваке.
Запомни новые версии.

УРА!

[Roman-vb]

Логику то я понял, а вот как приконнектится, скачать файл...?

[Sasha_karasov]

ну если через http то тогда:
Как загрузить файл из интернета?
Если Вам необходимо загрузить файл из интернета, то воспользуйтесь следующим кодом.

Код: Выделить всё

Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long

Private Sub Command1_Click()
DownLoadFile "http://demin.narod.ru/2001/wall/", "wall3.jpg"
End Sub

Public Sub DownLoadFile(sUrl As String, sFile As String)
Dim DL As Long
On Error GoTo errHandler
If sUrl$ = "" Then sUrl$ = strUrl$
If strUrl$ = "" Then strUrl$ = sUrl$
If Left(strUrl$, 4) <> "http" Then strUrl$ = "http://" & strUrl$
If Right$(strUrl$, 1) <> "/" Then strUrl$ = strUrl$ & "/"
If Left$(sFile$, 1) = "/" Then sFile = Mid$(sFile$, 2)
DL& = DoFileDownload(StrConv(strUrl$ & sFile$, vbUnicode))
Exit Sub
errHandler:
Debug.Print "Error Source:", Err.Source
Debug.Print "Error Description:", Err.Description
Debug.Print "Error Number:", Err.Number
MsgBox "An error has occured attempting to start download to " & sUrl & sFile$ & ".", vbApplicationModal + vbCritical + vbDefaultButton1, "Error"
End Sub



Сохранение файла из Интернета на жесткий диск?

Расположите на форме элемент CommandButton. После выполнения кода у вас на жестком диске появится новый файл - c:\1.gif

Код: Выделить всё

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://vbnet.ru/subscribe/images/question.gif", "c:\1.gif")
End Sub


[alibek]

http://bbs.vbstreets.ru/viewtopic.php?t=23592

[Roman-vb]

А как отобразить процесс в прогрес-баре?

[Antonariy]

Довольно сложно, лучше не мучайся с этим.

[Roman-vb]

А Вообще идеи есть?

[AlexBlack]

Один из вариантов -- это отношение количества обработанных файлофф, к количеству файлов для обновления ваабще.

[Roman-vb]

Один из вариантов -- это отношение количества обработанных файлофф, к количеству файлов для обновления ваабще.

А если файл всего один?