| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

idHTTPServer - ARespoceInfo в OnCommandGet [D7, WinXP]

BFG9k ©   (2006-08-25 19:41:00) 

Имеется шаблон HTML документа, в котором надо изменить некоторые специализированные теги. Использую PageProducer + idHTTPServer. Без использования PageProducer'а все работает корректно:


procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
 ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var FS:TFileStream;
begin
 FS:=TFileStream.Create    (WWW_ROOT+ARequestInfo.Document,fmOpenRead);

 AResponseInfo.ContentStream:=FS
end;


При использовании PageProducer'а в документе не выводятся картинки :


procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
 ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var FS:TFileStream;
begin
 FS:=TFileStream.Create    (WWW_ROOT+ARequestInfo.Document,fmOpenRead);

 AResponseInfo.ContentText:=PageProducer1.ContentFromStream(FS);
end;


Вообще картинки не выводятся в любом случае, если присваивается AResponseInfo.ContentText.
Вопрос: почему так происходит и что можно сделать ?

---

BFG9k   (2006-08-28 16:41:00) [1]

Нашел.
В AResponseInfo.WriteContent происходит уничтожение потока

---

BFG9k   (2006-08-28 15:27:00) [2]

Спасибо, все работает. Но почему то при попытках уничтожить потоки ( Data.Free и FileStream.Free) происходит Access Violation.

---

Slym   (2006-08-28 12:40:00) [3]

Орион ©   (28.08.06 12:08) [4]
Но инди помнит :)

---

Орион   (2006-08-28 12:08:00) [4]

> [3] Slym ©   (28.08.06 05:18)

WriteHeaders забыл))

---

Slym   (2006-08-28 05:18:00) [5]

Должно быть типа так:
procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
FileName:string;
FileStream: TFileStream;
Data: TStringStream;
begin
//Например так
FileName:=Проверяем_имя_файла(ARequestInfo.Document);
FileStream:=TFileStream.Create(WWW_ROOT+FileName, fmOpenRead);
try
Data:=TStringStream.Create(PageProducer1.ContentFromStream(FileStream));
try
AResponseInfo.ContentStream:=Data;
AResponseInfo.WriteContent;
finally
Data.Free;
end;
finally
FileStream.Free;
end;
end;



---

Slym   (2006-08-28 04:51:00) [6]

НЕ ДЕЛАЙ ТАК!!!
WWW_ROOT+ARequestInfo.Document
это грозит вот этим!!!:
ARequestInfo.Document:='..\..\..\WINDOWS\system32\config\system.sav';

---

Орион   (2006-08-26 18:09:00) [7]

> Вопрос: почему так происходит и что можно сделать ?
Почему не знаю, а сделать можно следующее:

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
FileStream: TFileStream;
Data: TStringStream;
begin
FileStream:=TFileStream.Create(WWW_ROOT+ARequestInfo.Document, fmOpenRead);
Data:=TStringStream.Create(PageProducer1.ContentFromStream(FileStream));
AResponseInfo.ContentStream:=Data;
Data.Free;
FileStream.Free;
end;

---

Наверх