unit ExtendedFileTransferServerData;

interface

uses
  SysUtils, Classes, uROClient, uROServer, uROIndyTCPServer,
  uROPoweredByRemObjectsButton, uROClientIntf, uROClasses,
  uROBinMessage, uROIndyHTTPServer, uROSessions, uROEventRepository;

type
  TExtendedFileTransferServerDataForm = class(TDataModule)
    ROMessage: TROBinMessage;
    ROServer: TROIndyHTTPServer;
    ROInMemoryEventRepository: TROInMemoryEventRepository;
    ROInMemorySessionManager: TROInMemorySessionManager;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ExtendedFileTransferServerDataForm: TExtendedFileTransferServerDataForm;
  uploadFolder: string;

implementation

{$R *.dfm}

procedure TExtendedFileTransferServerDataForm.DataModuleCreate(Sender: TObject);
begin
  ROServer.Active := TRUE;
end;

end.