докачка файла

[CoverStory]

Всем доброго!!!

вопрос следующего характера хочу сделать докачку файлов в следующем случае.
Есть модемное соединение двух компов после соединения монтируется удаленный диск. С него копируется файл на комп. Способом описаным в мануале:

Program Example6;
{ Программа демонстрирует работу функций BlockRead и BlockWrite. }
Var Fin, fout : File;
NumRead,NumWritten : Word;
Buf : Array[1..2048] of Byte;
Total : Longint;
begin
Assign (Fin, ParamStr(1));
Assign (Fout,ParamStr(2));
Reset (Fin,1);
Rewrite (Fout,1);
Total:=0;
Repeat
BlockRead (Fin,buf,Sizeof(buf),NumRead);
BlockWrite (Fout,Buf,NumRead,NumWritten);
inc(Total,NumWritten);
Until (NumRead=0) or (NumWritten<>NumRead);
Write ('Скопировали ',Total,' байт из файла ',ParamStr(1));
Writeln (' в файл ',ParamStr(2));
Close(fin);
Close(fout);
end.


При обрыве связи файл придется копировать заново, а он весит не много ни мало 15 метров.

Как сделать так чтобы файл докачивался а не копировался заново.

Спасибо.

[STAKANOV]

надо узнать длинну уже имеющегося файла, а новый читать не с нулевой позиции (не с начала), а перейти на позицию соответвующую длинне и начать читать от туда

см. <a href='http://freepascal.ru/wiki/index.php/Seek' target='_blank'>Seek</a>

[CoverStory]

Интересно а часть скачаного файла останется или сотрется?

[STAKANOV]

Интересно а часть скачаного файла останется или сотрется?

при желании останется ) надо просто добавлять

после окончания записи желательно проверить на целостность, например расчитав MD5

[SergKam]

Может проще всетаки использовать нормальный сетевой протокол типа ftp http
и wget (есть под все системы)?

[CoverStory]

wget вещица обалденная! Но она внешняя и ставить из-за этого ftp-сервак . хотя http сервак у меня стоит!

[SergKam]

ну прям так и СЕРВАК. есть куча мелких и легких(поддержиающих докачку).
А монтировать сетевой диск по твоему разумнее?

вместо wget можно использовать либу curl
мощьнейшая штука поддерживает кучу протоколов
докачку, прокси, ограничения скоросити, шифрование, тунели итп
<a href='http://curl.haxx.se' target='_blank'>http://curl.haxx.se</a>
или компонент из indy там помоему както тоже докачку можно указать
но неуверен

[CoverStory]

curl вещь интересная надо поюзать. А вот насчет indy, можно посмотреть, но хотелось бы доки с примерами, или без примеров, а язык желательно русский можно и английский. Был на сайте <a href='http://www.indyproject.org' target='_blank'>http://www.indyproject.org</a> но пока описания не нашел!!!

[CoverStory]

В indy есть докачка но помоему только с FTP. Curl поддерживает докачку и также его можно встроить во free pascal, но как скачать с общей папки с его помощью. Я чего-то не понял? может объяснит кто?

[SergKam]

С "общей папки" никак. Потому как протокол smb дифективный сам по себе, поэтому ftp и предлагается.