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; |
|