|
#1
|
||||
|
||||
Обновнение
Короче хочу написать обновнение к программе
На форме есть ProgressBar1 Button1 Label1 По нажатию на button1 качается новая версия В ProgressBar'е отображается статус В Label'e состояние Задача проги: 1.Скачать файл и сохранить в C:\temp\ : http://site.xost.ru/files/version.txt 2.Прочитать файл записать данные в переменну "ver" (В НЁМ НОМЕР СВЕЖЕЙ ВЕРСИИ) 3.Проверить соотвествует ли версия если да то ShowMessage('У вас свежая прога') Иначе Скачать и установить прогу Чё мне надо: 1.Как проверить есть ли инет 2.Как скачивать с инета файлы и сохранять [ Ты не сможешь никому помочь до тех пор, пока не поможешь себе ] Delphi 7 user
ICQ: 570224849 / JID: x-rem@jabber.ru|no / Skype: ukc-rem / VK: ukc_rem.vk.com (ID: 27703738) |
#2
|
|||
|
|||
X-rem, смотри у меня на сайте:
http://www.denasoft.net/inet.txt http://www.denasoft.net/down.txt Там не много доработать правда надо, но думаю ты сможешь. Через неделю удалю эти файлы! |
#3
|
|||
|
|||
Если нужно просто качнуть файл с инета, лучше всего использовать стандартное действие TDownLoadURL. Очень просто и без проблем.
Кидаешь на форму компонент TActionList, щелкаешь на нем 2 раза и в появившемся эдиторе, щелкнув правой конпкой мыши, делаешь New Standart Action... Ищешь там категорию Internet и выбираешь TDownLoadURL. Теперь в эдиторе действий у тебя имеется категория Internet (слева), а в ней одно стандартное действие - DownLoadURL1 (справа). У этого действия 2 главных свойства: URL - адрес, откуда производится загрузка FileName - имя, под которым файл сохраняется на локальной машине Код:
with DownLoadURL1 do begin URL := 'http:\\ссылка'; FileName := 'C:\Имя файла'; Execute end; Во время загрузки переодически возникает событие OnDownLoadProgress. С параметрами разберешься сам ) |
#4
|
|||
|
|||
DelphiWorld
Зайди на DelphiWorld.narod ru - скачай статьи, там всё это есть.
|
#5
|
|||
|
|||
Цитата:
|
#6
|
||||
|
||||
как узнать, есть ли инет:
Код:
uses ...WinInet... ... function InternetConnection: Boolean; var dwConnectionTypes: DWORD; begin dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY; Result := InternetGetConnectedState(@dwConnectionTypes,0); end; Fear, обновление - это процесс проверки существования на сервере более новой версии программы и, в случае необходимости, скачивание ее и установка поверх текущей версии. Кстати, X-Rem, лучше не скачивать файл для проверки версии, а проверять версию через POST на серваке, т.к. если прога большая, юзеры тебя заплюют, что им нужно татить траффик и время, чтобы узнать, что у них последняя версия! THE CRACKER IS OUT THERE Последний раз редактировалось 4kusNick, 28.07.2007 в 14:42. |
#7
|
|||
|
|||
4kusNick это то мне было понятно..просто думал может новое слово "обновнение"...
русский язык в массы) |