Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
Delphi 10 Seattle Enterprise
|
AW: Das System kann den Pfad nicht finden
5. Jul 2016, 12:44
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?
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
|