2013-10-29 16:51:16 +01:00
|
|
|
unit FileUploadControllerU;
|
|
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
|
|
uses
|
2019-02-01 20:10:51 +01:00
|
|
|
ReqMulti, // this unit is required to enable file uploading
|
2013-10-29 16:51:16 +01:00
|
|
|
MVCFramework,
|
2017-01-18 21:53:53 +01:00
|
|
|
MVCFramework.Commons,
|
2013-10-29 16:51:16 +01:00
|
|
|
MVCFramework.Logger;
|
|
|
|
|
|
|
|
|
|
type
|
|
|
|
|
|
2019-02-01 20:10:51 +01:00
|
|
|
[MVCPath]
|
2013-10-29 16:51:16 +01:00
|
|
|
TFileUploadController = class(TMVCController)
|
2016-03-23 10:13:33 +01:00
|
|
|
private const
|
|
|
|
|
UPLOAD_FOLDER = 'uploadedfiles';
|
2013-10-29 16:51:16 +01:00
|
|
|
public
|
2019-02-01 20:10:51 +01:00
|
|
|
[MVCPath('/')]
|
|
|
|
|
[MVCHTTPMethod([httpGET])]
|
|
|
|
|
procedure Index;
|
|
|
|
|
|
|
|
|
|
[MVCPath('/file/upload')]
|
2013-10-29 16:51:16 +01:00
|
|
|
[MVCHTTPMethod([httpPOST])]
|
|
|
|
|
procedure SaveFile(CTX: TWebContext);
|
2019-02-01 20:10:51 +01:00
|
|
|
|
|
|
|
|
[MVCPath('/file/list')]
|
2016-03-23 10:13:33 +01:00
|
|
|
[MVCProduces('text/html')]
|
|
|
|
|
[MVCHTTPMethod([httpGET])]
|
|
|
|
|
procedure FileList(CTX: TWebContext);
|
2013-10-29 16:51:16 +01:00
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
|
|
|
|
uses
|
|
|
|
|
system.ioutils,
|
|
|
|
|
system.Classes,
|
|
|
|
|
system.SysUtils,
|
2017-01-18 21:53:53 +01:00
|
|
|
system.Types;
|
2013-10-29 16:51:16 +01:00
|
|
|
|
|
|
|
|
{ TFileUploadController }
|
|
|
|
|
|
2016-03-23 10:13:33 +01:00
|
|
|
procedure TFileUploadController.FileList(CTX: TWebContext);
|
2013-10-29 16:51:16 +01:00
|
|
|
var
|
2019-02-01 20:10:51 +01:00
|
|
|
lUploadedFiles: TStringDynArray;
|
|
|
|
|
lFName: string;
|
2016-03-23 10:13:33 +01:00
|
|
|
begin
|
2019-02-01 20:10:51 +01:00
|
|
|
LoadView(['header']);
|
|
|
|
|
// ResponseStream.AppendLine('<!doctype html><html><body>');
|
2016-03-23 10:13:33 +01:00
|
|
|
ResponseStream.AppendLine('<h2>**Upload Folder Content**</h2>');
|
2019-02-01 20:10:51 +01:00
|
|
|
lUploadedFiles := TDirectory.GetFiles(UPLOAD_FOLDER);
|
2016-03-23 10:13:33 +01:00
|
|
|
ResponseStream.AppendLine('<ul>');
|
2019-02-01 20:10:51 +01:00
|
|
|
for lFName in lUploadedFiles do
|
2016-03-23 10:13:33 +01:00
|
|
|
begin
|
2019-02-01 20:10:51 +01:00
|
|
|
ResponseStream.AppendLine('<li>' + ExtractFileName(lFName) + '</li>');
|
2016-03-23 10:13:33 +01:00
|
|
|
end;
|
|
|
|
|
ResponseStream.AppendLine('</ul>')
|
2019-02-01 20:10:51 +01:00
|
|
|
.AppendLine('<p><a href="/"><< BACK TO HOME</a></p>');
|
|
|
|
|
LoadView(['footer']);
|
2017-03-30 21:22:54 +02:00
|
|
|
RenderResponseStream;
|
2016-03-23 10:13:33 +01:00
|
|
|
end;
|
|
|
|
|
|
2019-02-01 20:10:51 +01:00
|
|
|
procedure TFileUploadController.Index;
|
|
|
|
|
begin
|
|
|
|
|
LoadView(['header', 'fileupload', 'footer']);
|
|
|
|
|
RenderResponseStream();
|
|
|
|
|
end;
|
|
|
|
|
|
2016-03-23 10:13:33 +01:00
|
|
|
procedure TFileUploadController.SaveFile(CTX: TWebContext);
|
|
|
|
|
var
|
2019-02-01 20:10:51 +01:00
|
|
|
lFName: string;
|
2016-03-23 10:13:33 +01:00
|
|
|
I: Integer;
|
2019-02-01 20:10:51 +01:00
|
|
|
lFile: TFileStream;
|
2013-10-29 16:51:16 +01:00
|
|
|
begin
|
|
|
|
|
TDirectory.CreateDirectory(UPLOAD_FOLDER);
|
|
|
|
|
for I := 0 to CTX.Request.RawWebRequest.Files.Count - 1 do
|
|
|
|
|
begin
|
2019-02-01 20:10:51 +01:00
|
|
|
lFName := String(CTX.Request.Files[I].FileName);
|
|
|
|
|
lFName := TPath.GetFileName(lFName.Trim(['"']));
|
|
|
|
|
if not TPath.HasValidFileNameChars(lFName, false) then
|
2016-03-23 10:13:33 +01:00
|
|
|
raise EMVCException.Create
|
2019-02-01 20:10:51 +01:00
|
|
|
(lFName + ' is not a valid filename for the hosting OS');
|
|
|
|
|
Log('Uploading ' + lFName);
|
|
|
|
|
lFile := TFile.Create(TPath.Combine(UPLOAD_FOLDER, lFName));
|
2013-10-29 16:51:16 +01:00
|
|
|
try
|
2019-02-01 20:10:51 +01:00
|
|
|
lFile.CopyFrom(CTX.Request.Files[I].Stream, 0);
|
2013-10-29 16:51:16 +01:00
|
|
|
finally
|
2019-02-01 20:10:51 +01:00
|
|
|
lFile.free;
|
2013-10-29 16:51:16 +01:00
|
|
|
end;
|
|
|
|
|
end;
|
|
|
|
|
|
2016-03-23 10:13:33 +01:00
|
|
|
Redirect('/file/list');
|
2013-10-29 16:51:16 +01:00
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
end.
|
