剪辑版内存释放疑惑

大漠小鸟

看了精易模块11.1.0的剪辑版_置文本()源码,遇到了一个疑惑
就是GlobalAlloc ()申请了一块内存，将要放入剪辑版的文本，通过RtlMoveMemory()拷贝过去了
然后打开剪辑版、清除剪辑版、设置剪辑版数据、关闭剪辑版
没看到何时对剪辑版中的内存数据进行释放呀
我新建了一个例子，申请了1mb的文本，然后:剪辑板_置文本(),发现内存确实增加了1mb，没有被释放，继续重复置文本，内存也一直保持不变，内存没有一直增加上去，这是为啥呀，没看到有GlobalFree(hGlobalMemory) 释放内存的代码呀

  

子程序名	返回值类型	公开	备 注
剪辑板_置文本			设置指定文本到系统剪辑板
参数名	类 型	参考	可空	数组	备 注
要置的文本	文本型

变量名	类 型	静态	数组	备 注
dwLength	整数型
hGlobalMemory	整数型
GHND	整数型
lpGlobalMemory	整数型
hWnd	整数型
i	整数型

dwLength ＝ 取文本长度 (要置的文本)
GHND ＝ 2
hGlobalMemory ＝ GlobalAlloc (GHND, dwLength ＋ 1)
lpGlobalMemory ＝ GlobalLock (hGlobalMemory)
RtlMoveMemory_文本型 (lpGlobalMemory, 要置的文本, dwLength)
GlobalUnlock (hGlobalMemory)
hWnd ＝ 窗口_取顶端窗口句柄 ()
OpenClipboard (hWnd)
EmptyClipboard ()
SetClipboardData (1, hGlobalMemory)  ' #CF_TEXT=1
CloseClipboard ()

.版本 2<br /> <br /> .子程序 剪辑板_置文本, , 公开, 设置指定文本到系统剪辑板<br /> .参数 要置的文本, 文本型<br /> .局部变量 dwLength, 整数型<br /> .局部变量 hGlobalMemory, 整数型<br /> .局部变量 GHND, 整数型<br /> .局部变量 lpGlobalMemory, 整数型<br /> .局部变量 hWnd, 整数型<br /> .局部变量 i, 整数型<br /> <br /> dwLength ＝ 取文本长度 (要置的文本)<br /> GHND ＝ 2<br /> hGlobalMemory ＝ GlobalAlloc (GHND, dwLength ＋ 1)<br /> lpGlobalMemory ＝ GlobalLock (hGlobalMemory)<br /> RtlMoveMemory_文本型 (lpGlobalMemory, 要置的文本, dwLength)<br /> GlobalUnlock (hGlobalMemory)<br /> hWnd ＝ 窗口_取顶端窗口句柄 ()<br /> OpenClipboard (hWnd)<br /> EmptyClipboard ()<br /> SetClipboardData (1, hGlobalMemory)  ' #CF_TEXT=1<br /> CloseClipboard ()

大漠小鸟

大漠小鸟 发表于 2024-4-15 15:41
了解了

另外问下RtlMoveMemory()前为什么要先GlobalLock()，GlobalAlloc（）申请的全局堆内存不是已经返 ...

了解了，GlobalAlloc（）返回的是一个内存句柄，通过这个句柄来获取指针地址

大漠小鸟

福仔 发表于 2024-4-15 13:42
调用 SetClipboardData 后hMem的所有权归系统管理, 如果调用后你又自己释放, 那剪辑版不会有数据
剪辑版是 ...

了解了

另外问下RtlMoveMemory()前为什么要先GlobalLock()，GlobalAlloc（）申请的全局堆内存不是已经返回了指针地址了吗？直接复制不可以吗？
lpGlobalMemory ＝ GlobalLock (hGlobalMemory)
RtlMoveMemory_文本型 (lpGlobalMemory, 要置的文本, dwLength)
GlobalUnlock (hGlobalMemory)

福仔

调用 SetClipboardData 后hMem的所有权归系统管理, 如果调用后你又自己释放, 那剪辑版不会有数据
剪辑版是整个系统所有进程公用的内存, 并且只存放一份数据, 系统会在设置的时候自己处理旧的内存

qwe7777777

SetClipBoardData 函数调用后内存地址归系统了。估计系统会释放的