易语言API读写内存源码,先输入要写进内存的输入点击写内存,然后就可以从内存中读出数据了,纯API函数编写。
.版本 2
.支持库 spec
.程序集 窗口程序集1
.程序集变量 申请大小, 整数型
.程序集变量 写入长度, 整数型
.程序集变量 已用内存, 整数型
.程序集变量 内存首地址, 整数型
.程序集变量 内存指针, 整数型
.程序集变量 新文本, 字节集
.程序集变量 文本, 文本型
.子程序 __启动窗口_创建完毕
申请大小 = 100
内存首地址 = 申请内存 (申请大小, 真) ' 申请内存
内存指针 = GlobalLock (内存首地址) ' 锁定内存
文本 = 编辑框1.内容
.子程序 _编辑框1_内容被改变
文本 = 编辑框1.内容
.子程序 _按钮1_被单击
.如果 (申请大小 - 已用内存 > 0)
写到内存 (到字节集 (文本), 内存指针, 内存指针) ' 把数据写到内存,超出长度自动截掉
写入长度 = 取文本长度 (文本)
内存指针 = 内存指针 + 写入长度
已用内存 = 已用内存 + 写入长度
标签3.标题 = “申请内存剩余:” + 到文本 (申请大小 - 已用内存)
.否则
信息框 (“内存已满!不能继续写入”, 0, )
.如果结束
.子程序 _按钮2_被单击
新文本 = 取空白字节集 (申请大小)
CopyMemory (新文本, 内存首地址, 申请大小) ' 复制内存里面的数据
编辑框2.内容 = 到文本 (新文本)
.子程序 __启动窗口_将被销毁
' 以下两行代码为了防止内存泄露
GlobalUnlock (内存首地址) ' 解锁内存
GlobalFree (内存首地址) ' 释放内存
.子程序 _按钮3_被单击
已用内存 = 0
内存指针 = GlobalLock (内存首地址) ' 锁定内存
写到内存 (取空白字节集 (申请大小), 内存指针, 内存指针)
文本 = 编辑框1.内容
易语言申请内存源码
易语言++申请内存
易语言api
易语言写内存api
读写内存整数api
写内存字节集api
读内存api
关于内存的api
写内存整数API
易语言申请内存地址
api读写
api读写源码
易语言api读写
r3内存读写易语言
易语言寫到內存數據