Das System kann den Pfad nicht finden

[Delbor]

Hi zusammen

@rapante:
Wäre wohl zu testen. Andrerseits enthält request.pathinfo nur einzelne Slashes (noch nicht mal Backslashes). Und mein kluges Buch weiss auch nichts davon...
@ p80286:
'In etwa': Ich habe das Wörtchen 'angegebenen' ausgelassen.
a) Ja, der Pfad ist vorhanden
b) Wenig wahrscheinlich, aber wäre zu prüfen
c) Da bliebe wohl nur ein neustart...

Gruss
Delbor

[Sir Rufo]

Es ist anscheinend sehr schwer

Delphi-Quellcode:

procedure TWebModule1.WebModule1WebActBackgroundItem2Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
    var fs : tFileStream; sFile, BGdPath : String;
begin
  if Request.PathInfo = '/Images/background/bgblue.jpg' then
  begin
    try
// E:\DelphiXE8 Corner\DelphiXE8VclCorner\DelborWebserverXE8\DelborDataSnapServer\Images\background
      sFile := Format('E:\DelphiXE8 Corner\DelphiXE8VclCorner\DelborWebserverXE8\DelborDataSnapServer\Images\background\%s', [Request.QueryFields.Values['background']]);

      /// !!! AUFMERKSAMKEIT !!!!
      /// Was steht JETZT in der Variablen sfile?
      /// !!! AUFMERKSAMKEIT !!!!

      fs := tFileStream.Create(sFile,fmOpenRead);
...

So besser zu verstehen?

[MrSpock]

Kann es an dem Leerzeichen im Pfadnamen liegen?

[Sir Rufo]

Zitat von MrSpock:

Kann es an dem Leerzeichen im Pfadnamen liegen?

Das wäre nur dann zu beachten, wenn man den Pfad als Kommandozeilen-Parameter übergibt ... sonst ist es wurscht ... bzw. genau richtig so, wenn der Pfad auch exakt so lautet

PS: Ich vermute mal, dass in sfile folgender Inhalt zu finden ist

Zitat:

E:\DelphiXE8 Corner\DelphiXE8VclCorner\DelborWebserverXE8\Delbo rDataSnapServer\Images\background\

[Delbor]

Hi Sir Rufo

Nachdem ich deinen Beitrag (#4) gelesen hatte, holte ich das mal nach - da steht der Pfad so drin, wie ich ihn aus dem Explorer kopiert habe.
(Den auskommentierten). Also ohne Dateiangabe. Und wenn ich das richtig verstanden habe, sollte in [Request.QueryFields.Values['background'] folgendes stehen.
'background=bgblue.jpg' , respektive eine Liste mit Namen/Werte-Paaren, wenn da mehr als eine Datei vorhanden ist.

Gruss
Delbor
PS:

Zitat:

PS: Ich vermute mal, dass in sfile folgender Inhalt zu finden ist

So ist es...

[Sir Rufo]

Zitat von Delbor:

PS:

Zitat:

PS: Ich vermute mal, dass in sfile folgender Inhalt zu finden ist

So ist es...

Na, dann hast du den Fehler doch schon gefunden ... dann kannst du ja weiter machen

[nahpets]

Im Request steht nicht background=bgblue.jpg .
Sondern über die Abfrage von [Request.QueryFields.Values['background'] sollte man bgblue.jpg erhalten.

Mit Values fragt man den Wert vor einem Gleichheitszeichen in der URL ab, um den Wert hinter dem Gleichheitszeichen zu bekommen.

Also erhält man mit sFile := Format('E:\DelphiXE8 Corner\DelphiXE8VclCorner\DelborWebserverXE8\DelborDataSnapServer\Images\background\%s', [Request.QueryFields.Values['background']]); hier in sFile E:\DelphiXE8 Corner\DelphiXE8VclCorner\DelborWebserverXE8\DelborDataSnapServer\Images\background\bgblue.jpg Das sollte man mal überprüfen und ebenfalls sollte man prüfen, ob es exakt diese Datei auch gibt.

[Sir Rufo]

Also, der Sachverhalt stellt sich mir wie folgt dar:

Es erfolgt ein Request vom Browser mit dieser URL

Code:

http://localhost:8080/Images/background/bgblue.jpg

Somit stellt sich folgende Denksportaufgabe:

Zitat:

Nenne alle QueryFields in diesem Request mit den dazugehörigen Werten!

[Delbor]

Hi Sir Rufo

Das hat dann doch noch etwas gedauert - der Pfad zeigte auf einen Ordner 'Images' in der selben Ebene wie 'html'. Das hab ich nun geändert. Vorerst mit dem selben Erfolg. Dann ist mir folgendes aufgefallen:
...\background\%s', [Request.QueryFields.Values['background']]); In den eckigen Klammern müsste der Dateiname stehen...

sFile := Format('E:\DelphiXE8 Corner\DelphiXE8VclCorner\DelborWebserverXE8\DelborDataSnapServer\html\Images\Logo\%s', [Request.QueryFields.Values['Delbor_9_5.jpg']]); Das scheint Delphi egal zu sein. In sFile steht der Pfad immer noch ohne Dateiname...

Gruss
Delbor

[Sir Rufo]

@Delbor

Löse die Denksportaufgabe in http://www.delphipraxis.net/1341997-post12.html und du bist einen Schritt weiter