Question

我需要在我的数据库文件设置结束时浏览或创建一个新目录。

我创建一个TInputDirWizardPage来选择目录，然后使用按钮启动数据库安装。

我的问题是没有创建新目录，数据库安装失败。

这是我的代码：

[Code]
var         
    Page0: TInputQueryWizardPage;
    Page1: TInputDirWizardPage;        

{ Launch DB CLIP installation }
procedure ButtonOnClick(Sender: TObject);
var
    Params: string;
    ScriptPath: string;
    ResultCode: Integer;
    DBPath: string;
    Server: String;
    Instance: String;
    SQL_User: String; 
    SQL_Password: String;

begin
    DBPath := Page1.Values[0];
    Server:= Page0.Values[0];
    Instance:= Page0.Values[1];
    SQL_User:= Page0.Values[2]; 
    SQL_Password:= Page0.Values[3];
    ScriptPath := ExpandConstant('"{app}\DB\Create Database 2.12.3.sql"');
    Params := '-v CLIPDATA="'+DBPath+'" CLIPINDEX="'+DBPath+'" CLIPLOG="'+DBPath+'" -S '+Server+'\'+Instance+' -U '+SQL_User+' -P '+SQL_Password+' -i '+ScriptPath ;

    if  MsgBox('' + Params + '', mbInformation, mb_YesNo) = idYes then
        Exec ('sqlcmd',Params, '', SW_SHOW, ewWaitUntilTerminated, ResultCode)
    Exit;
end;

procedure InitializeWizard();
var
    DBButton: TNewButton;        
begin
    Page0 := CreateInputQueryPage(wpInfoAfter,
        'SQL Informations', '',
        'Please specify Server and Instance name , then click Next.');

    Page0.Add('Server:', False);
    Page0.Add('Instance:', False);
    Page0.Add('SQL User:', False);
    Page0.Add('SQL Password:', True);
    Page0.Values[0] := ('localhost');
    Page0.Values[1] := ('CLIP');
    Page0.Values[2] := ('sa');
    Page0.Values[3] := ('clip');

    Page1 := CreateInputDirPage(Page0.ID,
        'Select CLIP Database files Location', '',
        'CLIP DB data files will be stored in the following folder.'#13#10#13#10 +
        'To continue, click Next. ' +
        'If you would like to select a different folder, click Browse.',
        False, 'New Folder');

    Page1.Add('Database Folder');
    Page1.Values[0] := ExpandConstant('{pf}\CLIP\CLIP_DATA\DB\');

    DBButton := TNewButton.Create(Page1);
    DBButton.Left := ScaleX(16);
    DBButton.Top := ScaleY(205);
    DBButton.Width := ScaleX(100);
    DBButton.Height := ScaleY(25);
    DBButton.Caption := 'Install DB CLIP';
    DBButton.OnClick := @ButtonOnClick;
    DBButton.Parent := Page1.Surface;
end;

Answer 1

CreateInputDirPage不会自行创建所选目录。

制作新文件夹按钮不会创建物理文件夹。它只在树中创建一个虚拟节点。

我意识到这与documentation有些矛盾，后者说：

将显示“创建新文件夹”按钮，该按钮将创建具有指定默认名称的新文件夹。

如果您想真正为所选路径创建物理文件夹，请在ButtonOnClick处理程序中使用CreateDir function。

if not DirExists(DBPath) then
begin
  CreateDir(DBPath);
end;

CreateInputDirPage / TInputDirWizardPage不会创建所选目录

1 个答案: