Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »

Вопрос # 361

Раздел: Delphi » Работа с сетями и протоколами
/ вопрос открыт /

Всем Привет!

Помогите сделать докачку?
Ну никак не получается у меня

Приложение:
  1. s := ExtractUrlFileName(Memo1.Lines.Strings[0]);
  2. Edit1.Text:= (Memo1.Lines.Strings[0]);
  3. if FileExists(dirName+''+s)
  4. then
  5. lStream := TFileStream.Create(dirName+''+s, fmOpenReadWrite)
  6. else
  7. lStream := TFileStream.Create(dirName+''+s, fmCreate);
  8. if bResume then
  9. begin
  10.  
  11. IdHTTP1.Head(Edit1.Text);
  12. IdHTTP1.Request.ContentRangeEnd := IdHTTP1.Response.ContentLength;
  13. IdHTTP1.Request.ContentRangeStart := lStream .Size - 1;
  14. lStream .Position := lStream .Size - 1;
  15.  
  16. end else
  17. begin
  18.  
  19. IdHTTP1.Request.ContentRangeStart := 0;
  20. end;
  21. try
  22. Application.ProcessMessages;
  23. IdHTTP1. Get(Edit1.Text, lStream);
  24. finally
  25. lStream.Free;
  26. IdHTTP1.Disconnect;
  27. Memo1.Lines.Delete(0);


Vit2 Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Vit2 (статус: Посетитель)
Вопрос отправлен: 27 февраля 2007, 18:42
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2025
Текущее время: 22 февраля 2025, 11:25
Выполнено за 0.01 сек.