Текущий архив: 2012.02.12;
Скачать: CL | DM;
Вниз
IdHTTPProxyServer и tmStreaming Найти похожие ветки
← →
MindWork © (2009-04-08 10:44) [0]Есть программка - банальный прокси, написана на 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 режиме?
← →
Error202 (2009-08-18 23:16) [1]Вы нашди ответ?
Страницы: 1 вся ветка
Текущий архив: 2012.02.12;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.007 c
