unit ExtendedFileTransferServerMain;

interface

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

type
  TExtendedFileTransferServerMainForm = 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
  ExtendedFileTransferServerMainForm: TExtendedFileTransferServerMainForm;

implementation
uses
  FileCtrl,
  ExtendedFileTransferServerData;
{$R *.dfm}

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

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

end.