unit FileBroadcastServerMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer, uROClasses;

type
  TFileBroadcastServerMainForm = class(TForm)
    RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton;
    Label1: TLabel;
    eFolder: TEdit;
    bSelectFolder: TButton;
    Memo1: TMemo;
    procedure bSelectFolderClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FileBroadcastServerMainForm: TFileBroadcastServerMainForm;

implementation
{$WARN UNIT_PLATFORM OFF}
uses
  FileCtrl,
  FileBroadcastServerData;
{$WARN UNIT_PLATFORM ON}


{$R *.dfm}

procedure TFileBroadcastServerMainForm.bSelectFolderClick(
  Sender: TObject);
begin
  SelectDirectory(FileBroadcastServerData.uploadFolder, [sdAllowCreate, sdPerformCreate, sdPrompt], 0);
  FileBroadcastServerData.uploadFolder := IncludeTrailingPathDelimiter(FileBroadcastServerData.uploadFolder);
  eFolder.Text := FileBroadcastServerData.uploadFolder;
  ForceDirectories(eFolder.Text);
end;

procedure TFileBroadcastServerMainForm.FormCreate(Sender: TObject);
begin
  eFolder.Text := ExtractFilePath(ParamStr(0)) + 'ServerFiles\';
  ForceDirectories(eFolder.Text);
  FileBroadcastServerData.uploadFolder := eFolder.Text;
end;

end.