Всем доброго!!!
вопрос следующего характера хочу сделать докачку файлов в следующем случае.
Есть модемное соединение двух компов после соединения монтируется удаленный диск. С него копируется файл на комп. Способом описаным в мануале:
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 метров.
Как сделать так чтобы файл докачивался а не копировался заново.
Спасибо.
и ставить из-за этого ftp-сервак