Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];

Вниз

докачка файлов   Найти похожие ветки 

 
anton773 ©   (2006-06-27 22:00) [0]

Здравствуйте!Помогите разобраться есть код(широко известный) для докачивания файлов в случае разрыва связи.Закачка идет нормально,а вот с докачкой возникли проблемы: сама докачка начинается нормально,байты информации поступают на компьютер но в файл не дописываются.(как бы уходят вникуда),если закачивать тот же самый файл с начала то проблем не возникает.Докачка файла сервером поддерживается(проверял) файл другой программой не открывался. Помогите ПЛЗ.Все вроде элементарно,но почему то не работает. Хотя бы подскажите в какую сторону копать.                                                                            var
Resumepos,Bufferlen,Sumsize :dword;
hSession,hUrl:Hinternet;
Buffer: array[1..1024] of byte;
err: boolean;
begin
Sumsize:=0; Resumepos:= 0;
AssignFile(F,Form2.Edit2.Text);
if FileExists(Form2.Edit2.Text) then
   begin
Reset(f,1);
Resumepos:= FileSize(f);
Seek(f,filesize(f));

end  else Rewrite(f,1);
NADO := true;
hSession:= InternetOpen("andowload",PRE_CONFIG_INTERNET_ACCESS,nil,nil,0);
hUrl:= InternetOpenUrl(hSession,pchar(Form2.Edit1.Text),nil,0,0,0);
InternetQueryDataAvailable(hUrl,Sumsize,0,0);

 if Resumepos > 0 then

   begin
InternetSetFilePointer(hUrl,Resumepos,nil,0,0);
end;
repeat
err:= InternetReadFile(hUrl,@buffer,SizeOf(Buffer),Bufferlen);
BlockWrite(f,Buffer,Bufferlen);
Application.ProcessMessages;
until (Bufferlen= 0) or (NADO= false);
ShowMessage("успешно загружено");


 
anton773 ©   (2006-06-30 21:27) [1]

Спецы ау-уууууууу!



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.035 c
15-1161687914
Slava812
2006-10-24 15:05
2006.11.19
Загадка по криптографии


15-1161393307
Gero
2006-10-21 05:15
2006.11.19
Новая версия DMClient, клиента для этого форума


15-1160908904
ANTPro
2006-10-15 14:41
2006.11.19
ReactOS


5-1143226107
Volf_555
2006-03-24 21:48
2006.11.19
Проблема с присвоением имени новому компоненту


15-1162375283
Карелин Артем
2006-11-01 13:01
2006.11.19
Зарплаты/жилье в Подольске. Что почем?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский