indyHTTPServer - root-Verzeichnis festlegen

[SirThornberry]

hier ein Beispiel

Delphi-Quellcode:

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var LStream: TFileStream;
    LStr: String;
begin
  if ARequestInfo.Document = '/bilder/test.gif' then
  begin
    LStream := TFileStream.Create('e:\bild.gif', fmOpenRead);
    SetLength(LStr, LStream.Size);
    LStream.Read(LStr[1], LStream.Size);
    AResponseInfo.ContentText:= LStr;
    LStream.Free;
  end else begin
    AResponseInfo.Location := '';
    AResponseInfo.ContentText:= '[img]/bilder/test.gif[/img]';
  end;
end;