unit fServerForm;

{$WARN SYMBOL_PLATFORM OFF}
{$WARN UNIT_PLATFORM OFF}

interface

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

type
  TServerForm = class(TForm)
    RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton;
    ROMessage: TROBinMessage;
    ROServer: TROIndyHTTPServer;
    Label1: TLabel;
    edSharedFolder: TEdit;
    btBrowse: TButton;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure btBrowseClick(Sender: TObject);
  private
    { Private declarations }
    function GetSharedFolder: string;
  public
    { Public declarations }
    property SharedFolder: string read GetSharedFolder;
  end;

var
  ServerForm: TServerForm;

implementation

uses FileCtrl;

{$R *.dfm}

procedure TServerForm.btBrowseClick(Sender: TObject);
var
  newDir: string;
begin
  if DirectoryExists(edSharedFolder.Text)
  then newDir := edSharedFolder.Text
  else newDir := ExtractFilePath(ParamStr(0));

  if SelectDirectory(newDir, [sdAllowCreate], 0)
  then edSharedFolder.Text := newDir;
end;

procedure TServerForm.FormCreate(Sender: TObject);
begin
  ROServer.Active := true;
  edSharedFolder.Text := ExtractFilePath(ParamStr(0)) + 'SharedFolder';
end;

function TServerForm.GetSharedFolder: string;
begin
  if DirectoryExists(edSharedFolder.Text)
  then Result := edSharedFolder.Text
  else Result := ExtractFilePath(ParamStr(0));
end;

end.