|
Вопрос # 6 519/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
пишу программу для самообновления программы столкнулся с проблемкой, ex-e файлы почему то не скачивает, то есть якобы скачал но из 2мб получается 17кб. winrar-ские файлы скачивает
вот код:
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
Приложение: Переключить в обычный режим- function ExtractUrlFileName(url: string): string;
- var
- A: LongInt;
- begin
-
- result := '';
- A := LastDelimiter('/', url);
- if (A > 0) and (url[A] = '/') then
- result := Copy(url, A + 1, Length(url) - A);
- end;
-
- function GetInetFileSize(const FileUrl: string): integer;
- var
- IdHTTP: TIdHTTP;
- begin
-
- IdHTTP := TIdHTTP.Create(nil);
- try
-
-
-
- except
- IdHTTP.Free;
- end;
- end;
-
- procedure TDownload.Execute;
- const
- BufferSize = 1024;
- var
- stream: TMemoryStream;
- FName: String;
- http: TIdHTTP;
- begin
- FName := 'C:\' + ExtractUrlFileName(Form13.ed.Text);
- http := TIdHTTP.Create(nil);
- http.OnWork := OnWork;
- http.OnWorkBegin := OnWorkBegin;
- http.OnWorkEnd := OnWorkEnd;
- stream := TMemoryStream.Create;
-
- if size > 0 then
- try
-
-
-
-
-
- except
-
-
- end
- else
-
- end;
-
- procedure TDownload.OnWork(ASender: TObject; AWorkMode: TWorkMode;
- AWorkCount: Int64);
- begin
-
-
- (RoundTo(AWorkCount / (1024 * 1024), -2)) + ' MB.';
- end;
-
- procedure TDownload.OnWorkBegin(ASender: TObject; AWorkMode: TWorkMode;
- AWorkCountMax: Int64);
- begin
-
-
- end;
-
- procedure TDownload.OnWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
- begin
-
-
- end;
-
- procedure TForm13.btClick(Sender: TObject);
- begin
- TDownload.Create(false);
- end;
 |
Вопрос задал: casio (статус: Посетитель)
Вопрос отправлен: 9 марта 2014, 12:53
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 26; последнее сообщение — 9 марта 2014, 18:08; участников в обсуждении: 2.
Страницы: [1] [2] [Следующая »]
|
min@y™ (статус: Доктор наук), 9 марта 2014, 13:04 [#1]:
Ну, для начала, нужно полностью смоделировать ситуёвину. RAR-архив твой я скачал (браузером). download.rar ~739.5 кб (MD5 = 1E14A5713902005746055D49803F4FC6), внутри него exe-файл download.exe ~2.5 Мб (MD5 = 01D449355196078C2A1590FEF082CCC0).
Теперь выложи на файлопомойку чистый exe и дай ссылку.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
casio (статус: Посетитель), 9 марта 2014, 13:47 [#2]:
min@y™ всмысле чистый ехе?
|
|
|
min@y™ (статус: Доктор наук), 9 марта 2014, 13:56 [#4]:
Цитата (casio):
всмысле чистый ехе?
Незапакованный exe-файл download.exe ~2.5 Мб (MD5 = 01D449355196078C2A1590FEF082CCC0).
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
casio (статус: Посетитель), 9 марта 2014, 14:02 [#5]:
скинул
|
|
|
min@y™ (статус: Доктор наук), 9 марта 2014, 14:06 [#6]:
Цитата (casio):
скинул
Куда? Ссылка где, ёмаё?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 9 марта 2014, 14:24 [#8]:
Цитата (casio):
http://us.ua/1365705/
Ты издеваешься? Это ж исходник.
Я ж просил:
Цитата (min@y™):
Незапакованный exe-файл download.exe ~2.5 Мб (MD5 = 01D449355196078C2A1590FEF082CCC0).
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 9 марта 2014, 15:14 [#11]:
Скачал, посмотрел.
Ну, во-первых, файл в архиве и не запакованный exe отличаются по размеру.
Во-вторых, вот:
Это, блин, чо за порнография, я не понял? Для начала давай-ка вычисти весь триппер со своего компа, а потом посмотрим.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 9 марта 2014, 15:19 [#12]:
Цитата (casio):
все скачивает, интересно почему не скачивает с файлообенника,и еще интересно загрузил на сайт ucoz через файловый менеджер этот e-шник тоже самая ошибка, нет файла! когда копирую ссылку в браузер выдает сообщение
http://pixs.ru/showimage/ucjpg_6675048_11166049.jpg
rar-файл скачивает нормально
Это происки бандеровцев с Майдана! Инфа 146%!  Юлю и Клiчко - ГЕТЬ!!! И верни мне мой КРЫМ!!!!!!111111  Меняй гривни на рубли!!!111
Скачай нормальный антивирус (очень рекомендую тот, которым пользуюсь я - доволен им, как сытый кот) и проверь все свои носители. У тебя в компе триппер, 100 пудов.
Это Янукович, сцуко, виноват во всём!!! Всем срочно САЛА!!!!1111
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
casio (статус: Посетитель), 9 марта 2014, 15:23 [#13]:
min@y™: может заливать в rar или zip а потом распаковывать?
|
|
|
casio (статус: Посетитель), 9 марта 2014, 15:25 [#14]:
min@y™: у меня нет вирусов и никогда небыло!!! ОС Win8.1 антивирус Nod smart security 7
|
|
|
min@y™ (статус: Доктор наук), 9 марта 2014, 15:38 [#15]:
Цитата (casio):
может заливать в rar или zip а потом распаковывать?
А я, чо, против? Твоя прога-то. Да хоть 7z используй, он бесплатный и с исходниками.
Цитата (casio):
у меня нет вирусов и никогда небыло!!! ОС Win8.1 антивирус Nod smart security 7
Бесплатный совет: скачай, хотя бы, вот это, перезагрузись в защищённом режиме по F8 и проверь.
Цитата (casio):
антивирус Nod smart security 7
Ты за него денег заплатил? Он каждый день обновляется, я надеюсь?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
casio (статус: Посетитель), 9 марта 2014, 16:04 [#16]:
min@y™: проверяю раз месяц, в начале месяце если быть точнее, именно cureit-om но еще и онлайн проверку с офф.сайта нода! обновляется конечно, это хороший антивирус! я в нем уверен! ну как говорится доверяй но проверяй)
|
|
|
casio (статус: Посетитель), 9 марта 2014, 16:07 [#17]:
min@y™: спасибо за беседу) с распаковкой разобрался) а как теперь при обновлении программы основную закрыть заменить файл а потом открыть уже обновленную, а архив удалить
|
|
|
min@y™ (статус: Доктор наук), 9 марта 2014, 16:08 [#18]:
Цитата (casio):
проверяю раз месяц
А чо так часто?! Раз в год надо!
Цитата (casio):
это хороший антивирус
А мне не нравится. Мне вообще платные программы не нравятся.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
casio (статус: Посетитель), 9 марта 2014, 16:13 [#19]:
min@y™: не ну на вкус и цвет товарища нет ключик до 15 года надыбал и все четенько!
|
|
|
min@y™ (статус: Доктор наук), 9 марта 2014, 16:16 [#20]:
Цитата (casio):
а как теперь при обновлении программы основную закрыть заменить файл а потом открыть уже обновленную, а архив удалить
Вообще, я бы сделал для закачки обновлений отдельную программу-updater, запускал бы этот updater в фоне, а он:
- лезет в инет,
- проверяет текущую версию проги,
- если есть обновление - скачивает его В ПАМЯТЬ и проверяет по контрольной сумме или ещё как-нибудь,
- если скачалось без ошибок - закрывает основную прогу (отсылает ей команду/сообщение на закрытие),
- распаковывает из памяти свежие файлы поверх старых,
- запускает основную прогу и выгружается, если надо.
Как тебе такой алгоритм?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Страницы: [1] [2] [Следующая »]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
