远程计算_使用Matlab计算引擎

0 环境

1 准备工作

PATH

D:\Program Files\MATLAB\R2013b\bin\win32

D:\Program Files\MATLAB\

D:\Program Files\MATLAB\R2013b\extern\include

D:\Program Files\MATLAB\R2013b\extern\lib\win32\microsoft

libeng.lib

#pragma comment(lib, "libeng.lib")

libeng.dll

engine.h

libeng.lib

#pragma comment

2 引擎函数介绍

engEvalString

engOutputBuffer(ep, NULL, 0)

Engine* engOpen(const char* startcmd)

NULL

int engClose(Engine* ep)

engClose

int engSetVisible(Engine* ep, bool newVal)

ep

newVal

true

false

int engOutputBuffer(Engine* ep, char* buffer, int buflen)

ep

buffer

buflen

int engEvalString(Engine* ep, const char* string)

ep

string

3 引擎使用

// 打开并设置Matlab引擎
int MatlabOpen(Engine** ep, const char* sPath, char* sBuffer, int nBufLen)
{
// 启动matlab引擎
if (!(*ep = engOpen(NULL))) // 启动引擎
{
return 1;   // 启动失败
}
// 设置
engSetVisible(*ep, false);      // 设置窗口不可视
engOutputBuffer(*ep, sBuffer, nBufLen); // 设置Matlab输出缓冲区
// 修改工作路径
char sWorkPath[MAX_PATH];
sprintf_s(sWorkPath, MAX_PATH, "cd '%s'", sPath);
engEvalString(*ep, sWorkPath);
return 0;
}

// 关闭Matlab引擎
int MatlabClose(Engine* ep)
{
return engClose(ep);
}

// 执行Matlab命令
// 返回图片个数
int MatlabExec(Engine* ep, const char* mCmd)
{
int nFig = 0;   // 图片个数
engOutputBuffer(ep, matbuf, MATBUFSIZE);    // 恢复输出缓冲区
engEvalString(ep, mCmd);    // 执行命令
engOutputBuffer(ep, matbuffig, MATBUFFIGSIZE);  // 临时缓冲区，保存检测是否有Figure的结果
// 判断是否有figure并处理
engEvalString(ep, "isempty(findall(0,'Type','Figure'))");
if (strlen(matbuffig) > 13 && '0' == matbuffig[13]) // 有Figure
{
char savefig[100] = {0};
char gettype[20] = {0};
int i = 1;
sprintf_s(gettype, 20, "get(1,'Type');");
engEvalString(ep, gettype);
while(matbuffig[0] == 0)    // 空
{
// 将Figure保存为图片
sprintf_s(savefig, 100, "set(%d,'color','white');f=getframe(%d);imwrite(f.cdata,'figure%d.png');", i, i, i);
engEvalString(ep, savefig);
nFig++;
// 下一个
sprintf_s(gettype, 20, "get(%d,'Type');", ++i);
engEvalString(ep, gettype);
}
engEvalString(ep, "close all"); // 关闭所有Figure
}
return nFig;    // 返回图片个数
}

4 示例

#include <stdio.h>
#include <tchar.h>
#include <windows.h>
#include "engine.h"

#pragma comment(lib, "libeng.lib")

#define WM_CALC WM_USER+200   // 请求计算消息

// 全局变量
#define MATBUFSIZE 10240
#define MATBUFFIGSIZE 256
char matbuf[MATBUFSIZE] = {0};          // Matlab输出缓冲区
char matbuffig[MATBUFFIGSIZE] = {0};    // 临时输出缓冲区
DWORD dwMainThreadId = 0;               // 主线程ID

// 函数声明
DWORD WINAPI ThreadTest(LPVOID lpParam);    // 测试线程
int MatlabOpen(Engine** ep, const char* sPath, char* sBuffer, int nBufLen);
int MatlabClose(Engine* ep);
int MatlabExec(Engine* ep, const char* mCmd);

int APIENTRY WinMain(HINSTANCE hInstance,
HINSTANCE hPrevInstance, LPTSTR lpCmdLine, int nCmdShow)
{
// 获取线程ID
dwMainThreadId = GetCurrentThreadId();

// 启动matlab引擎
Engine* ep = NULL;          // matlab引擎
char path[MAX_PATH];        // 当前路径
strcpy_s(path, MAX_PATH, __argv[0]);
(_tcsrchr(path, '\\'))[1] = 0;  // 只保留路径部分
if (MatlabOpen(&ep, path, matbuf, MATBUFSIZE))
{
return 0;
}

// 创建测试线程
CreateThread(NULL, 0, ThreadTest, 0, 0, NULL);

// 线程消息循环
MSG msg;
PeekMessage(&msg, NULL, 0, 0, PM_NOREMOVE);
while(GetMessage(&msg, NULL, 0, 0))
{
if (msg.message == WM_CALC) // 请求计算消息
{
MatlabExec(ep, (char*)msg.wParam);  // 执行matlab命令
}
}

// 关闭matlab引擎
MatlabClose(ep);

return (int) msg.wParam;
}

// 测试线程
DWORD WINAPI ThreadTest(LPVOID lpParam)
{
Sleep(1000);
PostThreadMessage(dwMainThreadId, WM_CALC, WPARAM("pi"), 0);    // 输出pi
Sleep(1000);
PostThreadMessage(dwMainThreadId, WM_CALC, WPARAM("plot(sin(0:0.1:10))"), 0);   // 画正弦曲线
Sleep(5000);
PostThreadMessage(dwMainThreadId, WM_QUIT, 0, 0);   // 退出程序
return 0;
}

// MatlabOpen、MatlabClose、MatlabExec三个函数的实现分别见3.1、3.2、3.3，此处不再列出
// ……

"ans =  3.1416"

figure1.png