Update

Разговоры на любые темы: вы можете обсудить здесь какой-либо сайт, найти единомышленников или просто пообщаться...
ANDLL
Великий гастроном
Великий гастроном
Аватара пользователя
 
Сообщения: 3450
Зарегистрирован: 29.06.2003 (Вс) 18:55

Update

Сообщение ANDLL » 27.01.2004 (Вт) 20:07

ВОПРОС: по какому принципу сожно сделать Update. Ну такая программа, что бы скачивала putc'и на дрйгую программу с моего web-узла.

Мне интересен даже не исходник, а сама идея.

______________________
Подскажите, кто знает
:?:

Amed
Алфизик
Алфизик
 
Сообщения: 5346
Зарегистрирован: 09.03.2003 (Вс) 9:26

Сообщение Amed » 27.01.2004 (Вт) 20:35

Как я понимаю, нужна программа update.exe, которая скачивает новую версию программы, если она вышла. Так?

А это очень просто:
а) делаем на сайте файлик versions.txt
б) вписываем в него последнюю версию проги (скажем, 1.3.55)
в) update.exe лезет на сайт, смотрит этот файлик
г) лезет в нашу аппликуху и смотрит её версию
д) если они неодинаковы, то закачивает новую версию

ANDLL
Великий гастроном
Великий гастроном
Аватара пользователя
 
Сообщения: 3450
Зарегистрирован: 29.06.2003 (Вс) 18:55

Сообщение ANDLL » 28.01.2004 (Ср) 18:25

Все ништяк, я бы и сам сообразил...
Вопрос в том как программа залезет на сайт откроет файл, просмотрит его и скачает новую версию проги?
Напиши пожалуйста.

Urvin
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 518
Зарегистрирован: 04.06.2003 (Ср) 10:47
Откуда: с Марса

Сообщение Urvin » 28.01.2004 (Ср) 18:32

А это уже ищется по форуму и по сайтам как "Как загрузить файл из инета"
Не так страшен русский танк, как его пьяный экипаж

Unstat
Реальный басяк
Реальный басяк
Аватара пользователя
 
Сообщения: 285
Зарегистрирован: 07.01.2004 (Ср) 22:19
Откуда: Нижний Новгород

Сообщение Unstat » 08.02.2004 (Вс) 18:37

Вот несколько примеров запуска Web узла
1) Добавь на форму 1 label
Код: Выделить всё
Private Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)
Private Sub Form_Load()
Label1.Caption = "http://www.vbstreets.ru"
End Sub
Private Sub Label1_Click()
Call ShellExecute(0, "Open", Label1.Caption, "", "c:\", 1)
End Sub

2)
Код: Выделить всё
Call Shell("Start.exe " & "http://www.ya.ru", 0)

[/code]


Вернуться в Народный треп

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 66

    TopList