精易模块代码调整先后顺序后失效额问题

曦月

精易模块中的命令  线程_启动多参_文本型，模块都有，就不上传了

因为参数比较多，想保留一个文本和一个整数，修改后，成这样，可以正常使用

  

子程序名	返回值类型	公开	备 注
线程_启动多参_文本型	整数型		成功返回线程句柄，失败返回0。
参数名	类 型	参考	可空	数组	备 注
子程序指针	子程序指针
整数1	整数型				线程传入参数1
文本1	文本型				线程传入参数2
线程ID	整数型				请提供一个整数型的变量，用于存放新创建的线程ID。

变量名	类 型	静态	数组	备 注
pdwSize	整数型
dwSize	整数型
pDataArray	整数型
hThread	整数型
i	整数型

pdwSize ＝ LocalAlloc ( #LMEM_ZEROINIT, 16)  ' sizeof(void*) * 4
如果真 (pdwSize ≠ #NULL )
__set (pdwSize, 0, 取文本长度 (文本1))
变量循环首 (0, 3, 1, i)
如果真 (__get (pdwSize, i × 4) ＞ 0)
dwSize ＝ dwSize ＋ 1
dwSize ＝ dwSize ＋ __get (pdwSize, i × 4)
变量循环尾 ()
pDataArray ＝ LocalAlloc ( #LMEM_ZEROINIT, 24 ＋ dwSize)  ' sizeof(void*) * 6 + dwSize
如果真 (pDataArray ≠ #NULL )
__set (pDataArray, 0, 到整数 (子程序指针))
__set (pDataArray, 4, 整数1)
dwSize ＝ 24  ' 偏移
memcpy (pDataArray ＋ dwSize, 取指针_文本型 (文本1), __get (pdwSize, 0))
__set (pDataArray, 8, pDataArray ＋ dwSize)
dwSize ＝ dwSize ＋ __get (pdwSize, 0) ＋ 1
hThread ＝ CreateThread ( #NULL, 0, 到整数 (&ThreadParamFunc), pDataArray, 0, 取指针整数_ (线程ID))
LocalFree (pdwSize)
返回 (hThread)

.版本 2<br /> <br /> .子程序 线程_启动多参_文本型, 整数型, 公开, 成功返回线程句柄，失败返回0。<br /> .参数 子程序指针, 子程序指针<br /> .参数 整数1, 整数型, 可空, 线程传入参数1<br /> .参数 文本1, 文本型, 可空, 线程传入参数2<br /> .参数 线程ID, 整数型, 参考 可空, 请提供一个整数型的变量，用于存放新创建的线程ID。<br /> .局部变量 pdwSize, 整数型<br /> .局部变量 dwSize, 整数型<br /> .局部变量 pDataArray, 整数型<br /> .局部变量 hThread, 整数型<br /> .局部变量 i, 整数型<br /> <br /> pdwSize ＝ LocalAlloc (#LMEM_ZEROINIT, 16)  ' sizeof(void*) * 4<br /> .如果真 (pdwSize ≠ #NULL)<br />     __set (pdwSize, 0, 取文本长度 (文本1))<br />     .变量循环首 (0, 3, 1, i)<br />         .如果真 (__get (pdwSize, i × 4) ＞ 0)<br />             dwSize ＝ dwSize ＋ 1<br />         .如果真结束<br />         dwSize ＝ dwSize ＋ __get (pdwSize, i × 4)<br />     .变量循环尾 ()<br />     pDataArray ＝ LocalAlloc (#LMEM_ZEROINIT, 24 ＋ dwSize)  ' sizeof(void*) * 6 + dwSize<br />     .如果真 (pDataArray ≠ #NULL)<br />         __set (pDataArray, 0, 到整数 (子程序指针))<br />         __set (pDataArray, 4, 整数1)<br />         dwSize ＝ 24  ' 偏移<br />         memcpy (pDataArray ＋ dwSize, 取指针_文本型 (文本1), __get (pdwSize, 0))<br />         __set (pDataArray, 8, pDataArray ＋ dwSize)<br />         dwSize ＝ dwSize ＋ __get (pdwSize, 0) ＋ 1<br />         hThread ＝ CreateThread (#NULL, 0, 到整数 (&ThreadParamFunc), pDataArray, 0, 取指针整数_ (线程ID))<br />     .如果真结束<br />     LocalFree (pdwSize)<br /> .如果真结束<br /> 返回 (hThread)

但是因为个人使用习惯，想修改成这样，就是调整一下参数位置，把文本放前面

  

子程序名	返回值类型	公开	备 注
线程_启动多参_文本型	整数型		成功返回线程句柄，失败返回0。
参数名	类 型	参考	可空	数组	备 注
子程序指针	子程序指针
文本1	文本型				线程传入参数1
整数1	整数型				线程传入参数2
线程ID	整数型				请提供一个整数型的变量，用于存放新创建的线程ID。

变量名	类 型	静态	数组	备 注
pdwSize	整数型
dwSize	整数型
pDataArray	整数型
hThread	整数型
i	整数型

pdwSize ＝ LocalAlloc ( #LMEM_ZEROINIT, 16)  ' sizeof(void*) * 4
如果真 (pdwSize ≠ #NULL )
__set (pdwSize, 0, 取文本长度 (文本1))
变量循环首 (0, 3, 1, i)
如果真 (__get (pdwSize, i × 4) ＞ 0)
dwSize ＝ dwSize ＋ 1
dwSize ＝ dwSize ＋ __get (pdwSize, i × 4)
变量循环尾 ()
pDataArray ＝ LocalAlloc ( #LMEM_ZEROINIT, 24 ＋ dwSize)  ' sizeof(void*) * 6 + dwSize
如果真 (pDataArray ≠ #NULL )
__set (pDataArray, 0, 到整数 (子程序指针))
__set (pDataArray, 4, 整数1)
dwSize ＝ 24  ' 偏移
memcpy (pDataArray ＋ dwSize, 取指针_文本型 (文本1), __get (pdwSize, 0))
__set (pDataArray, 8, pDataArray ＋ dwSize)
dwSize ＝ dwSize ＋ __get (pdwSize, 0) ＋ 1
hThread ＝ CreateThread ( #NULL, 0, 到整数 (&ThreadParamFunc), pDataArray, 0, 取指针整数_ (线程ID))
LocalFree (pdwSize)
返回 (hThread)

.版本 2<br /> <br /> .子程序 线程_启动多参_文本型, 整数型, 公开, 成功返回线程句柄，失败返回0。<br /> .参数 子程序指针, 子程序指针<br /> .参数 文本1, 文本型, 可空, 线程传入参数1<br /> .参数 整数1, 整数型, 可空, 线程传入参数2<br /> .参数 线程ID, 整数型, 参考 可空, 请提供一个整数型的变量，用于存放新创建的线程ID。<br /> .局部变量 pdwSize, 整数型<br /> .局部变量 dwSize, 整数型<br /> .局部变量 pDataArray, 整数型<br /> .局部变量 hThread, 整数型<br /> .局部变量 i, 整数型<br /> <br /> pdwSize ＝ LocalAlloc (#LMEM_ZEROINIT, 16)  ' sizeof(void*) * 4<br /> .如果真 (pdwSize ≠ #NULL)<br />     __set (pdwSize, 0, 取文本长度 (文本1))<br />     .变量循环首 (0, 3, 1, i)<br />         .如果真 (__get (pdwSize, i × 4) ＞ 0)<br />             dwSize ＝ dwSize ＋ 1<br />         .如果真结束<br />         dwSize ＝ dwSize ＋ __get (pdwSize, i × 4)<br />     .变量循环尾 ()<br />     pDataArray ＝ LocalAlloc (#LMEM_ZEROINIT, 24 ＋ dwSize)  ' sizeof(void*) * 6 + dwSize<br />     .如果真 (pDataArray ≠ #NULL)<br />         __set (pDataArray, 0, 到整数 (子程序指针))<br />         __set (pDataArray, 4, 整数1)<br />         dwSize ＝ 24  ' 偏移<br />         memcpy (pDataArray ＋ dwSize, 取指针_文本型 (文本1), __get (pdwSize, 0))<br />         __set (pDataArray, 8, pDataArray ＋ dwSize)<br />         dwSize ＝ dwSize ＋ __get (pdwSize, 0) ＋ 1<br />         hThread ＝ CreateThread (#NULL, 0, 到整数 (&ThreadParamFunc), pDataArray, 0, 取指针整数_ (线程ID))<br />     .如果真结束<br />     LocalFree (pdwSize)<br /> .如果真结束<br /> 返回 (hThread)

然后就用不了了。求各位大佬瞅瞅，应该怎么调整修改


补充内容 (2024-8-13 17:37):
对了，自行调整命令参后，然后启动的那个子程序，要第二个参数是文本型才可以接收数据，如果第一个参数为文本型接收数据，会为空，传递失败

洋Hay

关键代码.具体用法你看源码.

  

子程序名	返回值类型	公开	备 注
线程_启动多参_文本型	整数型		成功返回线程句柄，失败返回0。
参数名	类 型	参考	可空	数组	备 注
子程序指针	子程序指针
文本1	文本型				线程传入参数1
整数1	整数型				线程传入参数2
线程ID	整数型				请提供一个整数型的变量，用于存放新创建的线程ID。

变量名	类 型	静态	数组	备 注
dwSize	整数型
pDataArray	整数型
hThread	整数型
i	整数型

dwSize ＝ 取文本长度 (文本1)
如果真 (dwSize ＞ 0)
dwSize ＝ dwSize ＋ 1

pDataArray ＝ LocalAlloc ( #LMEM_ZEROINIT, 12 ＋ dwSize)  ' sizeof(void*) * 6 + dwSize
如果真 (pDataArray ≠ #NULL )
__set (pDataArray, 0, 到整数 (子程序指针))
__set (pDataArray, 4, 整数1)
dwSize ＝ 12  ' 偏移
如果真 (取文本长度 (文本1) ＞ 0)
memcpy (pDataArray ＋ dwSize, 取指针文本_ (文本1), 取文本长度 (文本1))
__set (pDataArray, 8, pDataArray ＋ dwSize)

hThread ＝ CreateThread ( #NULL, 0, 到整数 (&ThreadParamFunc), pDataArray, 0, 取指针整数_ (线程ID))

返回 (hThread)

子程序名	返回值类型	公开	备 注
ThreadParamFunc	整数型
参数名	类 型	参考	可空	数组	备 注
pDataArray	整数型

如果真 (pDataArray ≠ #NULL )
调用子程序_ (__get (pDataArray, 0), __get (pDataArray, 8), __get (pDataArray, 4), , , , , , , , , , , , , )
LocalFree (pDataArray)
返回 (0)

.版本 2<br /> <br /> .子程序 线程_启动多参_文本型, 整数型, 公开, 成功返回线程句柄，失败返回0。<br /> .参数 子程序指针, 子程序指针<br /> .参数 文本1, 文本型, 可空, 线程传入参数1<br /> .参数 整数1, 整数型, 可空, 线程传入参数2<br /> .参数 线程ID, 整数型, 参考 可空, 请提供一个整数型的变量，用于存放新创建的线程ID。<br /> .局部变量 dwSize, 整数型<br /> .局部变量 pDataArray, 整数型<br /> .局部变量 hThread, 整数型<br /> .局部变量 i, 整数型<br /> <br /> dwSize ＝ 取文本长度 (文本1)<br /> .如果真 (dwSize ＞ 0)<br />     dwSize ＝ dwSize ＋ 1<br /> .如果真结束<br /> <br /> pDataArray ＝ LocalAlloc (#LMEM_ZEROINIT, 12 ＋ dwSize)  ' sizeof(void*) * 6 + dwSize<br /> <br /> .如果真 (pDataArray ≠ #NULL)<br />     __set (pDataArray, 0, 到整数 (子程序指针))<br />     __set (pDataArray, 4, 整数1)<br />     dwSize ＝ 12  ' 偏移<br />     .如果真 (取文本长度 (文本1) ＞ 0)<br />         memcpy (pDataArray ＋ dwSize, 取指针文本_ (文本1), 取文本长度 (文本1))<br />         __set (pDataArray, 8, pDataArray ＋ dwSize)<br /> <br />     .如果真结束<br /> <br />     hThread ＝ CreateThread (#NULL, 0, 到整数 (&ThreadParamFunc), pDataArray, 0, 取指针整数_ (线程ID))<br /> .如果真结束<br /> <br /> 返回 (hThread)<br /> <br /> <br /> .子程序 ThreadParamFunc, 整数型<br /> .参数 pDataArray, 整数型<br /> <br /> .如果真 (pDataArray ≠ #NULL)<br />     调用子程序_ (__get (pDataArray, 0), __get (pDataArray, 8), __get (pDataArray, 4), , , , , , , , , , , , , )<br />     LocalFree (pDataArray)<br /> .如果真结束<br /> 返回 (0)

模仿多线程传文本.e (8.68 KB, 下载次数: 1)

2024-8-13 21:11 上传

点击文件名下载附件

雨落无声

模块和你声明的函数冲突覆盖了！自己改的这个函数改一下名字！

曦月

雨落无声 发表于 2024-8-13 16:26
模块和你声明的函数冲突覆盖了！自己改的这个函数改一下名字！

大佬说的是 线程_启动参数_文本型 这一个冲突了吗？但是命令是移植出去的，整个模块，只有这一个命令，另外一个相关的是 线程_启动，还是说，我理解错了，大佬说的冲突不是这一个？

另外就是，不改变排序，只是删减多余参数，可以正常使用，只不过因为使用习惯，所有理想调一下排序，然后调整后，就用不了了。

对应的调用子程序的参数也随着改动而变动，但是好像也是一样的不行

曦月

洋Hay 发表于 2024-8-13 21:11
关键代码.具体用法你看源码.
[e=0].版本 2

已经改回 线程_启动 命令了，只是需要把整数参数再次转换成文本参数，不过也选你了