class function TfmDBUpdate.DLLConnect(hLib: THandle): Boolean;
var pConn: TConnectDBProc;
    b: TStringBuilder;
begin
     Result := false;
     pConn := GetProcAddress(hLib, 'Connect');
     if Assigned(pConn) then
     begin
       b := TStringBuilder.Create;
       try
         b.Append('db_name="').Append(dmData.dbMain.DBName).Append('"').Append(';')
          .Append('user_name=').Append(dmData.dbMain.ConnectParams.UserName).Append(';')
          .Append('password=').Append(dmData.dbMain.ConnectParams.Password).Append(';')
          .Append('clientlib="').Append(dmData.dbMain.LibraryName).Append('"').Append(';')
          .Append('lc_ctype=').Append(dmData.dbMain.ConnectParams.CharSet).Append(';')
          .Append('sql_dialect=3');
         if pConn(PChar(b.ToString), nil) > 0 then
          Result := true;
       finally
         b.Free;
       end;
     end;
end;

function HandleError(AStmtText, AErrMessage : PChar) : integer; stdcall;
begin
     Result := 0;
     Inc(ErrCount);
     ShowAppMessage(AErrMessage, AStmtText, mtError);
end;

class function TfmDBUpdate.ExecScriptFile(const AFilename: string): Boolean;
var Hndl : THandle;
    ESP : TExecuteScriptProc;
begin
  Result := false;
  ErrCount := 0;
  StmtCount := 0;
  Hndl := LoadLibrary(PChar('IBEScript.dll'));
  try
    if (Hndl > HINSTANCE_ERROR) then
    begin
      if not DLLConnect(Hndl) then
       exit;
      ESP := GetProcAddress(Hndl, 'ExecScriptFile');
      if @ESP <> nil then
      begin
       ESP(PChar(AFilename), @HandleError, @BeforeExec, @AfterExec);
       if ErrCount = 0 then
        Result := true;
      end;
    end;
  finally
    DLLDisconnect(Hndl);
    if Hndl > HINSTANCE_ERROR then
      FreeLibrary(Hndl);
  end;

SET NAMES UTF8;

insert into SYS$LOG (OBJECT_TYPE_ID, ACTION_ID, OBJECT_ID, INFO)
values (1, 1, 1, 'Загрузка скрипта UTF');
commit;