Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Автоматическое обновление программы

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки

Открыть новую тему     Написать ответ в эту тему

yrkrus



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Всем доброго времени суток!
Может кто сталкивался с проблемкой, у меня есть программка к ней недавно приписал процедуру автообновления, но но почемуто при скачивании новых файлов размер 0 . delphi  
 

Код:
 
procedure GetDownloadNewVersion;
const
   CountDownload=3;
   DownloadFiles: array [1..CountDownload] of string=('hd.exe',
                                                      'history.txt',
                                                      'help.chm');
var
 i: Integer;
 
begin
 
 if GetLocalGlobalConnect then DM.IdFTP1.host:='172.19.128.5'
 else DM.IdFTP1.host:='xxx';
 
  //  скачивание
   with DM.IdFTP1 do begin
     Port:=21;
     Username:='user';
     Password:='pwd';
 
      Connect(True);
     if Connected=False then
       begin
        //ShowMessage('Невозможно соединиться с сервером обновления');
        Disconnect;
        Exit;
        end
     else
      begin
       // скачиваем новую версию
       ChangeDir('new_version_hd');
        for i:=1 to CountDownload do begin
 
          if DownloadFiles[i]='hd.exe' then Get(DownloadFiles[i],ExtractFilePath(Application.ExeName)+'\hd_new',True)
          else Get(DownloadFiles[i],ExtractFilePath(Application.ExeName)+'\'+DownloadFiles[i],True);
          Application.ProcessMessages;
 
        end;
       Disconnect;
       Exit;
       end;
   end;  
 end;
 

Всего записей: 379 | Зарегистр. 30-11-2010 | Отправлено: 14:33 31-01-2016
KDPoid



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
На первый взгляд, очень похожий код у меня работает.
А если взять какой-нибудь ftp-клиент, залезть на ту же ftp под тем же логином, оно позволит скачать файл ?
Ну просто, чтобы убедиться, что pwd - правильный пароль, у user есть права на файлы и с этой ftp можно работать не только в пассивном режиме.

Всего записей: 404 | Зарегистр. 08-08-2006 | Отправлено: 17:40 31-01-2016
yrkrus



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Всем спасибо..
Проблема оказалась проста, фтп был переведен в пассивный режим, а приложение не знало это добавил строку idFtpd.Passive=True  и файлы начали скачиваться как надо =) Вот как то так...

Всего записей: 379 | Зарегистр. 30-11-2010 | Отправлено: 00:34 01-02-2016
Открыть новую тему     Написать ответ в эту тему

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Автоматическое обновление программы


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru