Как правильно настроить взаимодействие Delphi с SAP GUI Scripting для автоматизации операций с материалами в Delphi 12.2: решение проблем с созданием объектов и выполнением команд.

Delphi , Технологии , COM и DCOM

Интеграция Delphi с SAP GUI Scripting — мощный инструмент для автоматизации рутинных задач, таких как обработка транзакций, заполнение полей или извлечение отчетов. Однако при работе с SAP через COM-объекты разработчики часто сталкиваются с ошибками вроде Object required или ActiveX component can't create object. В этой статье разберем, как корректно настроить взаимодействие Delphi 12.2 с SAP GUI Scripting, используя примеры кода на Object Pascal.

1. Проверка настроек SAP GUI

Перед началом работы убедитесь, что: 1. В SAP GUI включена поддержка скриптинга:
SAP GUI → Settings → Scripting → Enable Scripting.
2. На сервере SAP разрешено выполнение скриптов (настройки безопасности).

2. Основные ошибки и их причины

Ошибка "Object required" или "ActiveX component can't create object"

Эта ошибка возникает, когда Delphi не может получить доступ к COM-объекту SAP GUI. Возможные причины: - Неправильное обращение к коллекциям (например, Children(0) вместо Children[0]). - Отсутствие инициализации COM-объектов. - SAP GUI не запущен, или скрипт пытается создать новый экземпляр вместо подключения к существующему.

3. Корректное подключение к SAP GUI в Delphi

Шаг 1: Получение объекта SAP GUI

Используйте GetActiveOleObject для подключения к уже запущенному экземпляру SAP GUI. Если его нет, создайте новый через CreateOleObject:

uses
  ComObj, Variants;

procedure TForm1.ConnectToSAP;
var
  SAPGuiAuto, Application, Connection, Session: OleVariant;
begin
  try
    // Попытка подключиться к активному SAP GUI
    SAPGuiAuto := GetActiveOleObject('SAPGUI.ScriptingCtrl.1');
  except
    // Если SAP GUI не запущен, создаем новый экземпляр
    SAPGuiAuto := CreateOleObject('SAPGUI.ScriptingCtrl.1');
  end;

  Application := SAPGuiAuto.GetScriptingEngine;
  Connection := Application.Children[0]; // Используйте квадратные скобки!
  Session := Connection.Children[0];
  Session.StartTransaction('MMBE');
end;

Важно: - В Delphi для доступа к элементам коллекции используйте Children[0], а не Children(0), как в VBA. - Если SAP GUI запущен с правами администратора, а ваше приложение — нет, возникнет ошибка. Убедитесь, что права совпадают.

Шаг 2: Обработка ошибок и проверка объектов

Добавьте проверки на каждом этапе подключения:

if not VarIsEmpty(Application) then
begin
  Connection := Application.Children[0];
  if not VarIsEmpty(Connection) then
  begin
    Session := Connection.Children[0];
    if not VarIsEmpty(Session) then
      Session.StartTransaction('MMBE')
    else
      ShowMessage('Не удалось получить сессию SAP');
  end;
end;

4. Почему код работает в VBA, но не в Delphi?

• Синтаксис коллекций: В VBA используется Children(0), в Delphi — Children[0].
• Инициализация COM: В VBA она выполняется автоматически, в Delphi для не-VCL приложений требуется вызывать CoInitialize и CoUninitialize.
• Типы данных: Delphi строже относится к преобразованию типов. Убедитесь, что все параметры передаются как OleVariant.

5. Альтернативные решения

Вариант 1: Использование SAP .NET Connector

Если проблемы с COM-объектами не удается решить, подключитесь к SAP через .NET Connector, используя Delphi Prism или библиотеки для работы с .NET.

Вариант 2: Запуск скриптов через внешние файлы

Запускайте VBS-скрипты из Delphi, чтобы избежать прямого взаимодействия с COM-объектами:

procedure TForm1.RunVBSScript;
begin
  ShellExecute(0, 'open', 'c:\script.vbs', nil, nil, SW_SHOW);
end;

6. Пример: Автоматизация заполнения полей

Допустим, нужно ввести материал в транзакции MM02:

procedure TForm1.EnterMaterialData;
var
  Session: OleVariant;
  MaterialID: string;
begin
  MaterialID := '10001';
  Session := GetActiveSession; // Ваша функция для получения сессии

  Session.findById('wnd[0]/usr/ctxtMATNR').Text := MaterialID;
  Session.findById('wnd[0]').sendVKey(0); // Нажатие Enter
  Session.findById('wnd[1]/usr/sub:SAPLMGMM:2000/ctxtMG03STEUER-TAXKM').Text := '1';
  Session.findById('wnd[0]').sendVKey(11); // Сохранить
end;

Заключение

Ключевые моменты для успешной интеграции: 1. Используйте Children[0] вместо Children(0). 2. Проверяйте каждый этап подключения к SAP GUI. 3. Обрабатывайте исключения при работе с COM-объектами. 4. Убедитесь, что права доступа приложения и SAP GUI совпадают.

Если стандартные методы не работают, рассмотрите альтернативы вроде .NET Connector или внешних скриптов. Примеры кода и дополнительные материалы можно найти на официальном форуме SAP и в документации Delphi.

Создано по материалам из источника по ссылке.

Context описывает процесс интеграции Delphi с SAP GUI Scripting и решения возможных ошибок при этом.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: COM и DCOM ::