Докачка файла по сети!

← →
Chak © (2003-01-01 16:51) [0]

Собственно интересует вопрос добавления в конец файла недостающей его части. Использую TFileStream.
У меня в итоге размер файла получается идентичным с исходным его размером, а при попытке его открытыя(ну допустим Врдовского документа) выдается ошыбка что путь к файлу неверен.
вот пример того что я использую:

... s:= Socket.ReceiveText; ... If FileExists("c:\tmp\test.doc") Then fs:= TFileStream.Create("c:\tmp\test.doc", fmOpenWrite); try fs.Seek(0,soFromEnd); fs.WriteBuffer(s[1], Length(s)); finally fs.Free;

← →
Cobalt © (2003-01-01 18:04) [1]

Попробуй делать "откат" на сколько-то КБ (смотри в TFileStream, какими порциями он читает)

← →
Chak © (2003-01-01 20:47) [2]

==> Cobalt © (01.01.03 18:04)

непонятно както,
ведь в результате размер получается идентичным, а просматриваю (ну допустим текстовый документ) блокнотом - весь текст в норме, и открыветтся без проблем, а вот вордовский нет!

И если файл копируется с первого раза(без обрыва) то никаких проблем нету!

← →
Андрей Ульченко (2003-01-04 14:35) [3]

Собственно чтобы проверить полноценно докачивается файл или нет,
можно следующим :
1) команда fc /b <file_name_1> <file_name_2> (для бинарных файлов)
fc /L <file_name_1> <file_name_2> (для текстовых файлов)
2) запаковать архиватором и после докачки прогнать
архиватором на целосность
3) md5.exe

Лучше разбираться на кекстовом, только надо пример подходящий выбрать. и построчно сравнивать, где разойдется смотреть почему!

Удачи.

← →
Reindeer Moss Eater (2003-01-04 14:44) [4]

Все равно будет скачан ВЕСЬ файл

← →
Reindeer Moss Eater (2003-01-04 15:15) [5]

Сори, не разглядел. Не весь файл.

> s:= Socket.Receive Text;
доки бинарные....

Может попробовать
.....
fs.Seek(0,soFromEnd, +1);
....

Запятая лишняя, sorry :)

Может попробовать
.....
fs.Seek(0,soFromEnd +1);
....

Докачка файла по сети! Найти похожие ветки