Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 30.04.2007, 19:25
Аватар для X-rem
X-rem X-rem вне форума
Начинающий
 
Регистрация: 06.04.2007
Адрес: Питер
Сообщения: 119
Репутация: 10
Вопрос Обновнение

Короче хочу написать обновнение к программе
На форме есть 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
  • Indy 10.5.5
  • AbfEffects & Controls
  • LockBox
  • AlphaControls
  • Eagle CDK

ICQ: 570224849 / JID: x-rem@jabber.ru|no / Skype: ukc-rem / VK: ukc_rem.vk.com (ID: 27703738)
Ответить с цитированием
  #2  
Старый 01.05.2007, 07:12
TitiS TitiS вне форума
Новичок
 
Регистрация: 29.12.2006
Сообщения: 62
Репутация: 10
По умолчанию

X-rem, смотри у меня на сайте:
http://www.denasoft.net/inet.txt
http://www.denasoft.net/down.txt

Там не много доработать правда надо, но думаю ты сможешь.

Через неделю удалю эти файлы!
Ответить с цитированием
  #3  
Старый 01.05.2007, 15:02
ilang ilang вне форума
Новичок
 
Регистрация: 11.12.2006
Сообщения: 68
Репутация: 10
По умолчанию

Если нужно просто качнуть файл с инета, лучше всего использовать стандартное действие 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  
Старый 06.05.2007, 12:46
Gin Gin вне форума
Прохожий
 
Регистрация: 03.05.2007
Сообщения: 2
Репутация: 10
Хорошо DelphiWorld

Зайди на DelphiWorld.narod ru - скачай статьи, там всё это есть.
Ответить с цитированием
  #5  
Старый 28.07.2007, 12:51
Fear Fear вне форума
Прохожий
 
Регистрация: 08.06.2007
Сообщения: 2
Репутация: 10
По умолчанию

Цитата:
Сообщение от X-rem
хочу написать обновнение к программе
может быть может быть..теперь это так называется... тогда хочу спросить у всех отвечающих в этой теме а что такое это "обновнение"?
Ответить с цитированием
  #6  
Старый 28.07.2007, 14:39
Аватар для 4kusNick
4kusNick 4kusNick вне форума
Местный
 
Регистрация: 06.09.2006
Адрес: Россия, Санкт-Петербург
Сообщения: 444
Репутация: 550
По умолчанию

как узнать, есть ли инет:
Код:
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  
Старый 28.07.2007, 22:58
Fear Fear вне форума
Прохожий
 
Регистрация: 08.06.2007
Сообщения: 2
Репутация: 10
По умолчанию

4kusNick это то мне было понятно..просто думал может новое слово "обновнение"...
русский язык в массы)
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 20:08.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter