Das Ausliefern eines Bildes über eine Webapplikation könnte grob so aussehen:
Delphi-Quellcode:
// PathInfo: /Images
procedure TWebModule1.ImagesAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse;
var Handled: Boolean);
Var
fs : tFileStream;
sFile :
String;
begin
Try
// Die Pfadangabe sollte natürlich konfigurierbar sein.
// Relative Pfade könnten auch möglich sein.
// Dann gilt aber: Relativ ausgehend von der Webserver.Exe.
sFile := Format('
E:\DelphiXE8%20Corner\DelphiXE8VclCorner\DelborWebserverXE8\DelborDataSnapServer\Images\%s', [Request.QueryFields.Values['
Image']]);
fs := tFileStream.Create(sFile,fmOpenRead);
Try
Response.ContentType := '
image/jpeg';
Response.SendStream(fs);
Response.SendResponse;
Except
On e :
Exception Do Response.Content := '
<HTML><BODY>' + e.
Message + '
</BODY></HTML>';
End;
Finally
fs.Free;
End;
Handled := True;
end;
Die passende
Url dazu würde dann ungefähr so aussehen:
http://localhost:8080/NameDeinerWebanwendung/Images?Image=Delbor_8.jpg
Ausgehend von dem oben im Quelltext "festverdrahteten" Pfad, wäre aber auch sowas möglich:
http://localhost:8080/NameDeinerWebanwendung/Images?Image=Logo/Delbor_8.jpg