剪辑版_取文本();剪辑版_取文件错误

wang梦境

错误所处位置: 模块:"精易模块"; 程序集:"集_剪辑板"; 子程序:"剪辑板_取文件"错误(10044): 不能将“文本型”数据转换到“整数型”数据。
版本号: "10.2"
剪辑板_取文件()调用了DLL命令DragQueryFileA
DragQueryFileA
第三个参数lpszFile应该是文本型，就能正常使用了

韶华9021

新手，看大神发言

wang梦境

嗯...我确实发了个寂寞，我没发现我版本旧了

Suky

V10.4.0  源码与  10.2.5源码是一样的  没做改动
两个版本的模块都测试了    没有问题
所以问题大概是使用的问题
猜测是多模块混用导致子命令冲突   或源码内含有  剪辑板_取文件（）引用到的命令的同名子程序或dll命令等

Suky

  

子程序名	返回值类型	公开	备 注
剪辑板_取文件	整数型		取已经复制到剪贴板的文件名，返回文件个数。
参数名	类 型	参考	可空	数组	备 注
文件数组	文本型				用于存放文件路径的数组,留空则只返回文件数量。
状态	逻辑型				返回=真,对文件执行了剪切操作；返回=假,对文件执行了复制操作

变量名	类 型	静态	数组	备 注
hDrop	整数型
sTmp	文本型
lngFormat	整数型
lngEffect	整数型
lcount	整数型
i	整数型

清除数组 (文件数组)
如果真 (IsClipboardFormatAvailable ( #CF_HDROP ) ＝ 0 或 OpenClipboard (0) ＝ 0)
返回 (0)
hDrop ＝ GetClipboardData ( #CF_HDROP )
lcount ＝ DragQueryFileA (hDrop, -1, #NULL, 0)
sTmp ＝ 取空白文本 (260)
计次循环首 (lcount, i)
DragQueryFileA (hDrop, i － 1, 取指针文本_ (sTmp), 260)
加入成员 (文件数组, sTmp)
计次循环尾 ()
如果真 (是否为空 (状态) ＝ 假)
lngFormat ＝ RegisterClipboardFormatA (“Preferred DropEffect”)
hDrop ＝ GetClipboardData (lngFormat)
如果真 (hDrop ≠ 0)
RtlMoveMemory_整数传址1 (lngEffect, hDrop, 4)
状态 ＝ lngEffect ＝ 2
GlobalFree (hDrop)
CloseClipboard ()
返回 (lcount)

.版本 2<br /> <br /> .子程序 剪辑板_取文件, 整数型, 公开, 取已经复制到剪贴板的文件名，返回文件个数。<br /> .参数 文件数组, 文本型, 可空 数组, 用于存放文件路径的数组,留空则只返回文件数量。<br /> .参数 状态, 逻辑型, 参考 可空, 返回=真,对文件执行了剪切操作；返回=假,对文件执行了复制操作<br /> .局部变量 hDrop, 整数型<br /> .局部变量 sTmp, 文本型<br /> .局部变量 lngFormat, 整数型<br /> .局部变量 lngEffect, 整数型<br /> .局部变量 lcount, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 清除数组 (文件数组)<br /> .如果真 (IsClipboardFormatAvailable (#CF_HDROP) ＝ 0 或 OpenClipboard (0) ＝ 0)<br />     返回 (0)<br /> .如果真结束<br /> hDrop ＝ GetClipboardData (#CF_HDROP)<br /> lcount ＝ DragQueryFileA (hDrop, -1, #NULL, 0)<br /> sTmp ＝ 取空白文本 (260)<br /> .计次循环首 (lcount, i)<br />     DragQueryFileA (hDrop, i － 1, 取指针文本_ (sTmp), 260)<br />     加入成员 (文件数组, sTmp)<br /> .计次循环尾 ()<br /> .如果真 (是否为空 (状态) ＝ 假)<br />     lngFormat ＝ RegisterClipboardFormatA (“Preferred DropEffect”)<br />     hDrop ＝ GetClipboardData (lngFormat)<br />     .如果真 (hDrop ≠ 0)<br />         RtlMoveMemory_整数传址1 (lngEffect, hDrop, 4)<br />     .如果真结束<br />     状态 ＝ lngEffect ＝ 2<br />     GlobalFree (hDrop)<br /> .如果真结束<br /> CloseClipboard ()<br /> 返回 (lcount)

如果混用了其他模块    建议先删除其他模块再测试一遍
有可能是其他模块内有被引用的同名子程序导致错误

大司命

旧版本是反馈个寂寞！！！你发帖前难道没看见首页有个4.0高亮字么~

Suky

10.4.0

碰到问题建议先换最新版本模块    最新版模块仍然存在同样问题才可能是bug