Ich habe die lösung :
Delphi-Quellcode:
p := relpfad + ARequestInfo.Document;
If ARequestInfo.Document ='
/'
Then Begin
AResponseInfo.ContentText :=
html;
End else begin
AResponseInfo.ContentStream := tfilestream.Create(p,fmopenread);
End;
Ich habe mich einfach im kreis gedreht und die welt nicht meht verstanden.
Aber am ende ist es simpler als ich dachte.
Trotz dem ich danke euch.
gruss
seba