请大神将一小段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;

}

你的猫

  

DLL命令名	返回值类型	公开	备 注
LoadLibraryA	整数型
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
LoadLibraryA
参数名	类 型	传址	数组	备 注
lpLibFileName	文本型

DLL命令名	返回值类型	公开	备 注
GetProcAddress	整数型
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
GetProcAddress
参数名	类 型	传址	数组	备 注
hModule	整数型
lpProcName	文本型

DLL命令名	返回值类型	公开	备 注
CallFunction	整数型
DLL库文件名:
在DLL库中对应命令名:
g_funGetVarName
参数名	类 型	传址	数组	备 注
pBuf	文本型
i	整数型

全局变量名	类 型	数组	公开	备 注
hModule	整数型
g_funGetVarName	整数型

' #初始化模块

子程序名	返回值类型	公开	备 注
Init

hModule ＝ LoadLibraryA ("c:\mytdx\tcalc.dll")  ' 加载DLL文件
g_funGetVarName ＝ GetProcAddress (hModule, "?GetCharFromPos@CMainCalcInterface@@QAEHPADJ@Z")  ' 获取函数地址
' #字符串获取函数

子程序名	返回值类型	公开	备 注
TDX_GetStringValue

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
i	整数型
pBuf	文本型

CallFunction (pBuf, i)  ' 调用DLL中的函数
' #测试插件函数

子程序名	返回值类型	公开	备 注
TestPlugin1

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
DataLen	整数型
pfOUT	小数型
pfINa	小数型
pfINb	小数型
pfINc	小数型

.局部变量 szStockCode, 文本型
.局部变量 i, 整数型

szStockCode ＝ 取空白文本 (500)  ' 创建500字节缓冲区
TDX_GetStringValue (取整 (pfINa[1] ＋ 0.49), szStockCode)  ' 浮点转整数索引

计次循环首 (DataLen, i)
pfOUT[i] ＝ i - 1  ' 易语言数组从1开始，保持输出索引一致
计次循环尾

.版本 2<br /> .DLL命令 LoadLibraryA, 整数型, "kernel32.dll", "LoadLibraryA"<br />     .参数 lpLibFileName, 文本型<br /> <br /> .DLL命令 GetProcAddress, 整数型, "kernel32.dll", "GetProcAddress"<br />     .参数 hModule, 整数型<br />     .参数 lpProcName, 文本型<br /> <br /> .DLL命令 CallFunction, 整数型, , "g_funGetVarName"<br />     .参数 pBuf, 文本型<br />     .参数 i, 整数型<br /> <br /> .全局变量 hModule, 整数型<br /> .全局变量 g_funGetVarName, 整数型<br /> <br /> '#初始化模块<br /> .子程序 Init<br />     hModule ＝ LoadLibraryA("c:\mytdx\tcalc.dll")  ' 加载DLL文件<br />     g_funGetVarName ＝ GetProcAddress(hModule, "?GetCharFromPos@CMainCalcInterface@@QAEHPADJ@Z")  ' 获取函数地址<br /> <br /> '#字符串获取函数<br /> .子程序 TDX_GetStringValue<br />     .参数 i, 整数型<br />     .参数 pBuf, 文本型<br />     CallFunction(pBuf, i)  ' 调用DLL中的函数<br /> <br /> '#测试插件函数<br /> .子程序 TestPlugin1<br />     .参数 DataLen, 整数型<br />     .参数 pfOUT, 小数型, 数组<br />     .参数 pfINa, 小数型, 数组<br />     .参数 pfINb, 小数型, 数组<br />     .参数 pfINc, 小数型, 数组<br />     <br />     .局部变量 szStockCode, 文本型<br />     .局部变量 i, 整数型<br />     <br />     szStockCode ＝ 取空白文本(500)  ' 创建500字节缓冲区<br />     TDX_GetStringValue(取整(pfINa[1] ＋ 0.49), szStockCode)  ' 浮点转整数索引<br />     <br />     .计次循环首(DataLen, i)<br />         pfOUT<i> ＝ i - 1  ' 易语言数组从1开始，保持输出索引一致<br />     .计次循环尾