易语言API读写内存源码

易语言API读写内存源码,先输入要写进内存的输入点击写内存,然后就可以从内存中读出数据了,纯API函数编写。

.版本 2
.支持库 spec

.程序集 窗口程序集1
.程序集变量 申请大小, 整数型
.程序集变量 写入长度, 整数型
.程序集变量 已用内存, 整数型
.程序集变量 内存首地址, 整数型
.程序集变量 内存指针, 整数型
.程序集变量 新文本, 字节集
.程序集变量 文本, 文本型

.子程序 __启动窗口_创建完毕

申请大小 ＝ 100
内存首地址 ＝ 申请内存 (申请大小, 真)  ' 申请内存
内存指针 ＝ GlobalLock (内存首地址)  ' 锁定内存
文本 ＝ 编辑框1.内容

.子程序 _编辑框1_内容被改变

文本 ＝ 编辑框1.内容

.子程序 _按钮1_被单击

.如果 (申请大小 － 已用内存 ＞ 0)
    写到内存 (到字节集 (文本), 内存指针, 内存指针)  ' 把数据写到内存，超出长度自动截掉
    写入长度 ＝ 取文本长度 (文本)
    内存指针 ＝ 内存指针 ＋ 写入长度
    已用内存 ＝ 已用内存 ＋ 写入长度
    标签3.标题 ＝ “申请内存剩余：” ＋ 到文本 (申请大小 － 已用内存)
.否则
    信息框 (“内存已满！不能继续写入”, 0, )
.如果结束


.子程序 _按钮2_被单击

新文本 ＝ 取空白字节集 (申请大小)
CopyMemory (新文本, 内存首地址, 申请大小)  ' 复制内存里面的数据
编辑框2.内容 ＝ 到文本 (新文本)

.子程序 __启动窗口_将被销毁

' 以下两行代码为了防止内存泄露
GlobalUnlock (内存首地址)  ' 解锁内存
GlobalFree (内存首地址)  ' 释放内存

.子程序 _按钮3_被单击

已用内存 ＝ 0
内存指针 ＝ GlobalLock (内存首地址)  ' 锁定内存
写到内存 (取空白字节集 (申请大小), 内存指针, 内存指针)
文本 ＝ 编辑框1.内容

@yechunlin