请大神将一小段C++代码修改成易语言代码

huayanzhen

请帮忙把以下C++代码修改为易语言代码

初始化句柄到字符串的转换函数，

void Init()

{

    char szFullPath[] = "c:\\mytdx\\tcalc.dll";

    HANDLE h = LoadLibrary(szFullPath);

    g_funGetVarName = GetProcAddress((HMODULE)h, "?GetCharFromPos@CMainCalcInterface@@QAEHPADJ@Z");

}



由句柄获取字符串函数

void TDX_GetStringValue(inti, char *pBuf)

{

    ((void (WINAPI*)(char*, int))g_funGetVarName)(pBuf, i);

}





void TDX_GetStringValue(inti, char *pBuf);

void TestPlugin1(intDataLen,float* pfOUT,float* pfINa,float* pfINb,float* pfINc)

{

float *pfStockCode = pfINa;



/*分配空间并获取字符串*/

    char szStockCode[500] = { 0 };

TDX_GetStringValue((DWORD)(pfStockCode[0] + 0.49), szStockCode);



         for(int i=0;i<DataLen;i++)

                  pfOUT=i;

}

阿贱

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 g_funGetVarName, 整数型 指针

.子程序 初始化
.局部变量 路径, 文本型

路径 ＝ “c:\mytdx\tcalc.dll”

' 加载DLL
.如果 (加载动态库(DLL_Name, 路径))
    g_funGetVarName ＝ 获取动态库函数地址(DLL_Name, "?GetCharFromPos@CMainCalcInterface@@QAEHPADJ@Z")
.否则
    .如果 (g_funGetVarName ＝ 0)
        输出("获取函数地址失败")
    .否则
        输出("初始化成功")
    .如果结束
    输出("加载DLL失败")
.如果结束




.子程序 TDX_GetStringValue, 整数型

' 调用DLL中的函数
调用动态库函数(g_funGetVarName, pBuf, i)

.子程序 TestPlugin1, 参数 DataLen 整数型, , 针
.局部变量 pfStockCode, 浮点型 指针
.局部变量 szStockCode, 文本型

pfStockCode ＝ pfINa

TDX_GetStringValue(取整数((取浮点值(pfStockCode[0]) + 0.49)), szStockCode)



i ＝ 0 到 DataLen - 1
pfOUT[i] ＝ i

huayanzhen

阿贱 发表于 2024-6-12 13:03
.版本 2

.程序集 窗口程序集_启动窗口

兄弟,你这个是AI生成的吧,完全用不了啊

hlhhcs

.版本 2
.支持库 spec

.子程序 init
.局部变量 模块, 整数型
.局部变量 path, 文本型


path ＝ “c:\mytdx\tcalc.dll”
模块 ＝ LoadLibraryA (path)
g_funGetVarName ＝ GetProcAddress (模块, “?GetCharFromPos@CMainCalcInterface@@QAEHPADJ@Z”)  ' 获取函数的入口



.子程序 TDX_GetStringValue
.参数 pBuf, 整数型
.参数 I, 整数型

调用子程序 (g_funGetVarName, , , pBuf, I)
------------------------前两个函数-------------------------------
最后调用那些参数看不明白

void TestPlugin1(intDataLen,float* pfOUT,float* pfINa,float* pfINb,float* pfINc)
{
float *pfStockCode = pfINa; --按名字理解应该是个字符串的指针？
/*分配空间并获取字符串*/
    char szStockCode[500] = { 0 };  --分配了个空间
TDX_GetStringValue((DWORD)(pfStockCode[0] + 0.49), szStockCode);  --指针偏移0.49  ？后边这个参数就是个新申请内存的地址？
--下边这两句和上边好像没半毛钱关系啊，pfout不就是datalen么
         for(int i=0;i<DataLen;i++)

                  pfOUT=i;

}