-
Использую NMFTP для закачки файлов на сервер. Если файл больше 2 ГБ, то наблюдается глюк индикации: процент больше 250 и идет вниз :) Код, в обработчкике отправки очередного пакета (и расчета прогресса в процентах такой):
procedure TFMain.FTPPacketSent(Sender: TObject);
var
sent_kb,total_kb: int64;
r: Extended;
pr: byte;
begin
sent_kb:=Trunc(FTP.BytesSent/1024);
total_kb:=Trunc(FTP.BytesTotal/1024);
r:=(sent_kb*100)/total_kb;
pr:=Trunc(r);
Application.Title:='Upload - '+IntToStr(pr)+'%';
FProcess.Progress.Position:=pr;
end;
Не могу понять, с чем связан глюк. На файлах меньше 2ГБ - все ок. Может быть компонент не расчитан на такие объемные файлы (или внутренный числовой тип ограничен) и отсюда ошибки? Кто сталкивался с таким?
-
где-то есть intеger. В нем и косяк.
-
проверь тип BytesTotal и BytesSent
-
Гм... а у меня нету исходника nmftp.pas Само свойство в подсказке отображается как Integer (Delphi 6, а предельный размер на файл такой смешной :) Народ, у кого есть исходник модуля, закиньте плиз. Или может у кого есть DCU обновленной версии или вообще какой-нить продвинутый FTP-компонент по мотивам NMFTP (Indy не хотелось бы, софтина в активном использовании, новое тестирование начинать не хотелось бы, глюк только визуальный, сам upload от этого не страдает)
-
Так ведь и без исходников уже ясно, что там integer.
-
Делай подпорку сбоку.
Если свойство имеет отрицательное значение, приводи его к беззнаковому.
-
> Так ведь и без исходников уже ясно, что там integer.
Исходник нужен для перекомпиляции с int64
-
глюк только визуальный, сам upload от этого не страдает)
var
i : integer; pc : pcardinal;
begin
i := 3000000000;
pc := @i;
ShowMessage(IntToStr(i) + ' ' + IntToStr(pc^));
-
> Исходник нужен для перекомпиляции с int64
У Борланда спроси.
-
в Indy 10 (а может уже и в 9) есть поддержка 64-битных размеров
-
> в Indy 10 (а может уже и в 9) есть поддержка 64-битных размеров
Не хочется на Indy... Ну наверное придется. А как узнать версию? В Delphi 6 какая версия Indy никто не в курсе?
-
> var
> i : integer; pc : pcardinal;
> begin
> i := 3000000000;
> pc := @i;
> ShowMessage(IntToStr(i) + ' ' + IntToStr(pc^));
Гм, интересная мысль, надо затестить! А почему предлагаешь именно cardinal? int64 ведь круче будет? (а то завтра террабайтовые размеры пойдут еще вдруг :)
-
ShowMessage(IntToStr(SizeOf(Integer)) + ' ' + IntToStr(SizeOf(Cardinal)) + IntToStr(SizeOf(int64)) )
ку?
-
> В Delphi 6 какая версия Indy никто не в курсе?
а в принципе не важно. Можно качнуть с индейского сайта, да обновить
в Д7 вроде 9
-
Reindeer Moss Eater
Спасибо за совет! Работает!!!
Есть новые 
Нет новых [134431 +15][b:0][p:0.001]