Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 15-35 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.04.2009, 08:22   #1
MindWork
Пользователь
 
Регистрация: 08.04.2009
Сообщений: 11
По умолчанию Обновлённый компонент IdHTTPProxyServer

Есть программка - банальный прокси, написана на IdHTTPProxyServer.
У этого компонента был один недостаток: если через прокси проходил большой файл, то он сначала скачивался компонентом целиком, а затем отдавался дальше.
В новой версии компонента, этот недостаток исправили, теперь можно выбирать tmFullDocument(качать целиком) и tmStreaming(качать и отдавать кусками) в DefaultTransferMode.

Суть программы заключалась в том, что пропуская через себя информацию, некоторые файлы(скажем картинки > 300кб) сохранялись на диск.
Делалось это так:
Код:
procedure TForm1.IdHTTPProxyServer1HTTPDocument(AContext: TIdHTTPProxyServerContext;
  var VStream: TStream);
var
     FS   :    TFileStream;
begin
     if VStream.Size > 300000 then
     Begin
          FS := TFileStream.Create('C:\img.jpg', fmCreate);
          FS.CopyFrom(VStream, VStream.Size);
          FS.Free;
     End;
end;
Так вот, если выбрано tmFullDocument, то всё прекрасно работает, однако, когда я ставлю tmStreaming, то данное событие (IdHTTPProxyServer1HTTPDocument) не вызывается вовсе!

Вопрос:
Как сделать данную операцию(сохранение файла), в tmStreaming режиме?
MindWork вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Компонент Ky3Heu, Общие вопросы Delphi 7 02.04.2009 10:59
Компонент TDraw3D devi409 Компоненты Delphi 4 20.12.2008 16:48
Компонент TChart Arassir Помощь студентам 3 25.11.2008 22:42
Компонент Terran Компоненты Delphi 2 16.12.2007 17:42
Компонент HTTPGet Stanislav Компоненты Delphi 0 19.11.2007 16:55

Реклама для незарегистрированных, регистрация на форуме