Wenn ich versuche eine Seite mit Bildern aufzurufen zeigt er mir keine Bilder an oder nur die hälfte eines Bildes ! Mime Type ist auch richtig ! Warum will er nicht ?
Habe folgenden Programm Code benutzt bez. geschrieben.
Code:
procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
Var
Stream: TFilestream;
begin
if ARequestInfo.Document = '/' then begin
IF fileexists(DocumentRoot + 'index.html') = true then ARequestInfo.Document := 'index.html';
IF fileexists(DocumentRoot + 'index.htm') = true then ARequestInfo.Document := 'index.htm';
IF fileexists(DocumentRoot + 'index.php') = true then ARequestInfo.Document := 'index.php';
end;
Stream := TfileStream.Create(DocumentRoot + ARequestInfo.Document, fmOpenRead or fmShareDenyWrite );
AResponseInfo.ContentStream := Stream;
end;