3 interessante Fragen... Webserver & httpGET Port

[zero]

Hallöle

Ist es irgendwie möglich einen Webserver (also das Delphi-programm)
so einzustellen, dass es nur jene Dateien servet, welche in einer
Datei foo.dat festgelegt sind?

Falls nicht, könnte man den Webserver
auf nur eine Dateiart einschränken (bspw. sollen nur *.bat Dateien
verfügbar sein, auch wenn bspw. index.html, *.htm *.html etc.
vorhanden sind) ?

Bei den Programmier Tips wird ja gezeigt, wie man eine Datei
downloaden kann. Aber was, wenn der webserver nicht auf
Port 80 sondern auf port 9999 läuft? Kann man den Port
beim downloaden irgendwie festlegen? (evtl. indy komponente
benutzen? )

Vielen vielen Dank im voraus, Zero.

[helen]

Hi!!!

Zur ersten Frage: Nur dateien zurückliefern, die in der Datei xy stehen?

Das folgende Beispiel bezieht sich auf die aktuellste HTTPServer Komponente von Indy und steht in den Ereignissen unter OnCommandGet:

Code:

procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;

  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);

begin

  If Memo1.Lines.IndexOf(ARequestInfo.Document) > 0 then

     IdHTTPServer1.ServeFile(ARequestInfo.Document)

end;

Jetzt werden alle Dateien zurückgesandt, die im Memofeld stehen.

ACHTUNG: ArequestInfo.Document enthält den kompletten Pfad zur Datei.


Das Einschränken auf eine Dateiart kannst Du, wie oben realisieren:

Beispielsweise kann Memo1.Lines.IndexOf(ARequestInfo.Document) ] 0 durch Pos('.bat', ArequestInfo.Document) ] 0 ersetzen, und der Server liefert nur noch *.bat Dateien zurück.


Zur letzten Frage...

Wenn Du den Code aus den Tipps nimmst, allerdings bei der URL den Port mit angibst (Beispiel: [a href="http://xyz:66/dateipfadzurdatei)" target="_blank"]http://xyz:66/dateipfadzurdatei)[/a] wird die verbindung zu einem anderen Port als dem Standard HTTP Port aufgebaut...

Ich hoffe, ich konnte Dir helfen...
Gruß helen

[zero]

Hallo nochmal!

Vielen Dank für die Antwort, helen!!!!

Leider hab ich ein Problem mit

ARequestInfo.document

Ich bekomme nämlich immer folgende Fehlermeldung:

[Error] Unit1.pas(145): Incompatible types: 'TIdPeerThread' and 'String'

Was mache ich falsch??

Danke im voraus, zero