type
  TConnectErrorCallbackFunc = function (AErrorMessage : PChar) : integer; 
  TScriptErrorCallbackFunc = function (AStmtText, AErrMessage : PChar) : integer; 
  TScriptBeforeExecStatementFunc = function (AStmtText, AText : PChar) : integer; 
  TScriptAfterExecStatementFunc = function (AStmtText : PChar; Success : integer) : integer; 
  TScriptIBEBlockProgressFunc = function (AProgressMessage : PChar) : integer; 
  TExecuteScriptProc = procedure (AScriptFile : PAnsiChar;
                                  AErrorCallbackFunc : TScriptErrorCallbackFunc;
                                  ABeforeCallbackFunc : TScriptBeforeExecStatementFunc;
                                  AAfterCallbackFunc : TScriptAfterExecStatementFunc); 
  TConnectDBProc = function (AConnectParams : PAnsiChar;
                             AConnectErrorCallbacFunc : TConnectErrorCallbackFunc) : integer; 
var
  DBPage: TInputQueryWizardPage;
  DBServer, DBName: String;
function HandleError(AStmtText, AErrMessage : PAnsiChar) : integer; 
begin
  Result := 0;
end;

function BeforeExec(AStmtText, AText : PAnsiChar) : integer; 
begin
  Result := 0;
end;

function AfterExec(AStmtText : PAnsiChar; Success : integer) : integer; 
begin
  Result := 0;
end;

function BlockProgress(AProgress : PAnsiChar) : integer; 
begin
  Result := 0;
end;

function CEH(AErrorMessage : PAnsiChar) : integer;  
begin
  MsgBox('DB connect error ' + AErrorMessage, mbInformation, MB_OK);
  Result := 0;
end;
function ConnectDB(AConnectParams : PAnsiChar; 
          AConnectErrorCallbacFunc : TConnectErrorCallbackFunc) : integer;
external 'Connect@files:IBEScript.dll stdcall';

procedure TExecuteScriptProc2(AScriptFile : PChar;
                              AErrorCallbackFunc : TScriptErrorCallbackFunc;
                              ABeforeCallbackFunc : TScriptBeforeExecStatementFunc;
                              AAfterCallbackFunc : TScriptAfterExecStatementFunc;
                              AIBEBlockProgressFunc : TScriptIBEBlockProgressFunc);
external 'ExecScriptFile@files:IBEScript.dll stdcall';

procedure InitializeWizard;
begin
  DBPage := CreateInputQueryPage(wpReady,
    'DB server params', 'Input DB server params',
    'Please, specify db server params');
  DBPage.Add('Server address:', False);
  DBPage.Add('DB alias:', False);
  DBPage.Values[0] := '127.0.0.1';
  DBPage.Values[1] := 'myalias';
end;

function NextButtonClick(CurPageID: Integer): Boolean;
var hWnd: Integer;
begin
  Result := True;
  if CurPageID = DBPage.ID then begin
    DBServer := DBPage.Values[0];
    DBName := DBPage.Values[1];
    MsgBox('Registering DB ' + DBServer + ':' + DBName + '.', mbInformation, MB_OK);
    ConnectDB(PAnsiChar(AnsiString(
                     'db_name=''' + DBServer + ':' + DBName + '''' +
                     '; user_name=sysdba' +
                     '; password=masterkey' +
                     '; lc_ctype=win1251; sql_dialect=3; clientlib="fbclient.dll"')), @CEH);

  end;
end;