Hallo

Ich versuche gerade mit indyHTTPServer eine Webapplikation zu erstellen.

Wie kann ich bei der Indy Komponente ein Verzeichnis festlegen, in der z. B. meine Bilder liegen. Damit ich folgendes realisieren kann:

markieren

Delphi-Quellcode:

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  ResponseInfo.ContentText:= '...[img]bilder/test.gif[/img]...'
end;

Die "..." deuten HTML-Code davor und dahinter an.

Wie kann ich also "bilder/" als root-Verzeichnis festlegen, damit test.gif angezeigt wird?

Vielen Dank!

es gibt von der Sache her kein Root-Verzeichnis. Du musst einfach darauf eingehen was in ARequestInfo angefordert wird. Dort ist unter anderem die URL enthalten welche abgefragt werden soll.

Könntest du mir für ARequestInfo, für mein Beispiel, ein kurzes Code-Beispiel angeben, wie ich das lösen kann?

hier ein Beispiel

zusammenfalten · markieren

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;

Hallo maddin,

wenn du einen relativen URL "bilder/test.gif" verwendest, dann bezieht sich der auf den gerade aktuellen URL, aber wenn du einen absoluten Pfad "/bilder/test.gif" verwendest, dann kannst du, wie jeder andere HTTP-Server auch, mit virtuellen Verzeichnissen arbeiten. Dazu kannst du eine Steuerdatei einlesen:

markieren

Code:

[Mappings]
bilder=c:/inetpub/bilder
filme=d:/media/filme

Wenn du dann jeden Request zuerst untersuchst und die erste Stufe im absoluten Pfad anhand deiner Mappings ersetzt, dann hast du deine festgelegten Verzeichnisse.

Grüße vom marabu

Vielen Dank euch beiden!