VPF::IdFtp Upload с докачкой - Форум программистов

gonzales

Дата 28.6.2011, 13:00 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 241
Регистрация: 13.3.2006

Репутация: нет
Всего: 2

Приветствую, уважаемые форумчане!
Собственно САБЖ.

Может кто сталкивался с реализацией докачки при заливке файла на фтп. Делаю следующим образом

Код


IdFTP1.Put(form2.block_filename, 'block.pdf',resume);   //параметр resume отвечает как раз за докачку

если посмотреть код команды put

Код


procedure TIdFTP.Put(const ASource: TStream; const ADestFile: string = '';
 const AAppend: boolean = false);
begin
  if length(ADestFile) = 0 then begin
    InternalPut('STOU ' + ADestFile, ASource);  {Do not localize}
  end else if AAppend then begin
    InternalPut('APPE ' + ADestFile, ASource);  {Do not localize}
  end else begin
    InternalPut('STOR ' + ADestFile, ASource);  {Do not localize}
  end;
end;

то видно что команда APPE проходит, но я не вижу команды 'REST ' для установки позиции на последний бит файла.

Если же дописать ее руками

Код


    Quote('REST' +inttostr(Size(ADestFile));
    InternalPut('APPE ' + ADestFile, ASource);  {Do not localize}

то происходит следующее, файл целиком дописывается в конец недокаченного файла, а не дописывает недокаченный кусок.

Если кто сталкивался с подобным, подскажите, как быть

--------------------

- мастер, мастер, запорол..., все четыре запорол!!!- я ж тебе только три давал!!!???- да я и образец запорол!!!!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »