Решение проблемы передачи строковых параметров в MATLAB из Delphi XE через OLE

Delphi , Технологии , OLE

Решение проблемы передачи строковых параметров в MATLAB из Delphi XE через OLE

Вопрос пользователя заключается в том, что при вызове функции MATLAB из среды Delphi XE с использованием OLE-объекта, передача строковых параметров не происходит. Несмотря на успешное выполнение кода MATLAB в самой среде MATLAB (2008a), в Delphi XE параметры передаются некорректно. Рассмотрим, как можно решить данную проблему.

Описание проблемы

Пользователь столкнулся с трудностями при передаче строковых параметров в функцию MATLAB из приложения на Delphi XE. Несмотря на наличие различных попыток, включая установку переменных в рабочем пространстве MATLAB, передача параметров не удается.

Пример кода, вызывающего функцию MATLAB

function Matlab_DoIt(const aInput, aOutput: string): string;
var
    vMatlab: Variant;
begin
    vMatlab := CreateOleObject('matlab.application');
    vMatlab.visible := False; // Для удобства отключаем видимость MATLAB
    // Другие попытки передачи параметров, которые не увенчались успехом
    // ...
    // Вызов функции без передачи параметров
    vMatlab.Execute('LSCT_tool_run');
end;

MATLAB код функции с двумя строковыми параметрами

function LSCT_tool_run(input_path, output_path)
    diary ([c:\localdata\LSCT\Matlab\MyFile.txt]);
    diary on;
    fprintf(input_path);
    fprintf(output_path);
    diary off;
end

Подход к решению проблемы

После консультации с MathWorks, выяснилось, что в текущей версии MATLAB (2008a) передача параметров напрямую в функцию через OLE не поддерживается. Однако, начиная с версии Release 2012, такая возможность будет доступна.

Альтернативный ответ (рекомендация)

Поскольку в используемой версии MATLAB (2008a) передача параметров напрямую через OLE невозможна, можно рассмотреть два варианта решения:

1. Обновление версии MATLAB до Release 2012 и выше, где проблема решается на уровне самой среды MATLAB.
2. Использование альтернативного метода, например, сохранения параметров в файл и последующего чтения их функцией MATLAB.

Пример альтернативного кода

function SaveParamsAndRunMatlab(const inputPath, outputPath: string);
var
    vMatlab: Variant;
begin
    // Сохраняем параметры в файл
    SaveToFile(inputPath, outputPath, 'C:\localdata\LSCT\Matlab\params.txt');
    // Запускаем MATLAB без передачи параметров, предполагая, что она будет считывать их из файла
    vMatlab := CreateOleObject('matlab.application');
    vMatlab.visible := False;
    vMatlab.Execute('LSCT_tool_run');
end;

function SaveToFile(inputPath, outputPath, fileName: string);
var
    file: TextFileOfString;
begin
    AssignFile(file, fileName);
    Rewrite(file);
    try
        WriteLn(file, inputPath);
        WriteLn(file, outputPath);
    finally
        CloseFile(file);
    end;
end;

function LSCT_tool_run
    fileID = fopen('C:\localdata\LSCT\Matlab\params.txt', 'r');
    input_path = fgetl(fileID);
    output_path = fgetl(fileID);
    fclose(fileID);
    diary ([c:\localdata\LSCT\Matlab\MyFile.txt]);
    diary on;
    fprintf(input_path);
    fprintf(output_path);
    diary off;
end

В этом примере параметры сохраняются в файл, который затем читается функцией MATLAB.

Заключение

Проблема передачи строковых параметров в MATLAB из Delphi XE через OLE решается с помощью обновления версии MATLAB или использования альтернативного метода, основанного на сохранении параметров в файл. Это позволяет корректно передать данные между средами разработки.

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

Проблема заключается в некорректной передаче строковых параметров из Delphi XE в MATLAB через OLE, что требует либо обновления версии MATLAB, либо использования альтернативного метода с сохранением параметров в файл.

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

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

:: Главная :: OLE ::