nastya_e
Occasional Contributor
Joined 11 years ago
User Profile
User Widgets
Contributions
Unable to load library
Здравствуйте. Test Complete версии 9.31.3889.7 В тестах используем библиотеку dll, написанную на Delphi pathDll := PrimApp.Path + 'Tests.dll'; defEnvironment := DLL.DefineEnvironmentByDLL(pathDLL); defDLL := defEnvironment.DefineDLL('Tests'); lib := defEnvironment.Load(pathDLL); На строке загрузки библиотеки ошибка: Unable to load Tests.dll library Ошибка проявляется только на одном компьютере, на остальных работает. Просьба помочь в решении данной проблемыSolved1.5KViews0likes5CommentsRe: Get the default printer
Спасибо за ответ. Но у меня после выполнения теста в лог ничего не падает, тест просто проходит как успешный. результат у запроса Select * from Win32_Printer Where Default = True есть, т.к. если в коде прописать if WbemObject.Count>0 then Log.Message('Установлен принтер по умолчанию'), то в лог попадает сообщение.2.1KViews0likes0CommentsGet the default printer
Добрый день. Как определить принтер, который в настоящий момент используется по умолчанию. Написание тестов на delphiscript Locator: = Sys.OleObject ('WbemScripting.SWbemLocator'); WmiService: = Locator.ConnectServer ('.', 'root\cimv2', '', ''); если затем использовать objPrinter := WMIService.Get('Win32_Printer.Default=True'), то выдает ошибку SWbemServicesEx если выводить с помощью запроса WbemObject := WmiService.ExecQuery('Select * from Win32_Printer Where Default = True'); то затем не знаю как получить результат запросаSolved3.4KViews0likes6Comments