分类
易语言例程

易语言多线程下载文件到内存源码

多线程下载文件到内存,貌似在论坛中比较少,分享一下调用了精易模块

易语言多线程下载文件到内存源码

分类
易语言例程

基于消息循环的多线程例程源码

想法来自 网易的nbase库 不过网易的nbase库是自写了消息循环  我是直接用了 winapi

每条线程都有属于自己的消息循环, 通过 PostThreadMessage API 让指定线程 执行指定的消息

当没有消息时候, 会阻塞线程直到 获取到消息

目前唯一的缺点: 没有办法接管主线程的消息循环 无法实现 子线程通知主线程调用某个函数

下面是说明(模块也有带说明):

OnInit 挂接一个函数 为本类管理线程的初始化函数 (当线程被创建后, 会第一时间调用挂接的函数)

参数1: 子程序指针

OnClose 挂接一个函数 为本类管理线程的关闭函数 (当线程即将被关闭前, 会调用挂接的函数)

参数1: 子程序指针

Create 创建线程 (创建出来的线程由本类管理生命周期)

PostTask_0 投递任务 (向本类管理的线程投递一个任务)

参数1: 子程序指针 (为你想让线程执行的某个子程序, 子程序不能带有参数)

PostTask_1 投递任务 (向本类管理的线程投递一个任务)

参数1: 子程序指针 (为你想让线程执行的某个子程序, 子程序可以带有参数但是只能是一个)

PostRepeatedTask 投递定时任务 (向本类管理的线程投递一个定时任务) 定时任务为循环任务 线程会不停调用 所投递过来的子程序

参数1: 子程序指针 (为你想让线程执行的某个子程序, 子程序不能带有参数)

参数2: 执行的时间 (假设1000, 那么就是每隔1s执行一次)

UnPostRepeatedTask 取消投递的定时任务

参数1: 参数1: 子程序指针 (为之前投递定时任务的子程序指针)

Close 关闭当前线程 并通知释放线程资源

关于源码中的 MessageLoop 这个函数 其实是可以放在类外的 但是还是要执行转换  把当前类的指针传到 MessageLoop  函数里面 执行转换 这样才能调用类中的函数

最后感觉写出来没有什么用 因为没有办法动态的创建类 无法控制创建出来的数量 就当玩具了 有一说一 易语言的类真迷惑

基于消息循环的多线程例程源码

分类
易语言例程

易语言多线程例子源码

.版本 2 .支持库 edroptarget .支持库 iext .支持库 EThread .支持库 spec .程序集 窗口程序集_启动窗口 .程序集变量 句柄集, 整数型, , "0" .子程序 __启动窗口_创建完毕 拖放对象1.注册拖放控件 (超级列表框1.取窗口句柄 ()) .子程序 _拖放对象1_得到文件 .参数 接收到的文件路径, 文本型 .局部变量 账号文本, 文本型 .局部变量 分割总账号文本, 文本型, , "0" .局部变量 单个账号分割, 文本型, , "0" .局部变量 索引, 整数型 .局部变量 i, 整数型 超级列表框1.全部删除 () 账号文本 = 到文本 (读入文件 (接收到的文件路径)) 分割总账号文本 = 分割文本 (账号文本, #换行符, ) .计次循环首 (取数组成员数 (分割总账号文本), i) 单个账号分割 = 分割文本 (分割总账号文本 [i], “----”, ) .如果 (取数组成员数 (单个账号分割) ≥ 3) 索引 = 超级列表框1.插入表项 (, , , , , ) 超级列表框1.置标题 (索引, 0, 到文本 (i)) 超级列表框1.置标题 (索引, 1, 单个账号分割 [1]) 超级列表框1.置标题 (索引, 2, 单个账号分割 [2]) 超级列表框1.置标题 (索引, 3, 单个账号分割 [3]) .否则 .如果结束 .计次循环尾 () .子程序 _按钮_启动_被单击 .局部变量 i, 整数型 重定义数组 (乐玩多线程操作, 假, 超级列表框1.取表项数 ()) 全局_多开数量 = 到整数 (编辑框_多开数量.内容) .计次循环首 (超级列表框1.取表项数 (), i) 超级列表框1.现行选中项 = i - 1 超级列表框1.获取焦点 () .如果 (启动线程 (&窗口线程, i, 乐玩多线程操作 [i].线程句柄) = 真) 全局_线程数量 = 全局_线程数量 + 1 .否则 调试输出 (“线程:” + 到文本 (i) + “启动失败”) .如果结束 .判断循环首 (真) .如果真 (全局_线程数量 < 全局_多开数量) 跳出循环 () .如果真结束 超级延时 (1000) .判断循环尾 () 超级延时 (1000) .计次循环尾 () 信息框 (“全部完成!”, 0, , ) .子程序 窗口线程 .参数 i, 整数型 .局部变量 子窗口句柄, 整数型 ' 线程初始化COM库 () ' 线程创建许可证 () ' 乐玩多线程操作 [i].lw.基本_取全局路径 () ' 乐玩多线程操作 [i].lw.文字_置字库 (0, “多线程字库.txt”) 调试输出 (i) 乐玩多线程操作 [i].进程ID = 进程_创建 (“C:\Windows\System32\notepad.exe”, , , , , , , ) .如果真 (乐玩多线程操作 [i].进程ID > 0) 乐玩多线程操作 [i].窗口句柄 = 进程_ID取窗口句柄 (乐玩多线程操作 [i].进程ID, “无标题 - 记事本”, “Notepad”, ) 调试输出 (乐玩多线程操作 [i].窗口句柄) .如果真 (乐玩多线程操作 [i].窗口句柄 > 0) 子窗口句柄 = 乐玩多线程操作 [i].lwck.取子窗口 (乐玩多线程操作 [i].窗口句柄, 1) 调试输出 (子窗口句柄) 超级列表框1.置标题 (i - 1, 4, 到文本 (子窗口句柄)) .如果真 (子窗口句柄 > 0) .如果真 (乐玩多线程操作 [i].lw.后台_绑定 (子窗口句柄, 3, 2, 2, , 0)) .计次循环首 (1, ) 乐玩多线程操作 [i].lwck.发送文本2 (子窗口句柄, “输入账号:” + 超级列表框1.取标题 (i - 1, 1) + #换行符) 超级列表框1.置标题 (i - 1, 5, “账号输入”) 超级延时 (1000) 乐玩多线程操作 [i].lwck.发送文本2 (子窗口句柄, “输入密码:” + 超级列表框1.取标题 (i - 1, 2) + #换行符) 超级列表框1.置标题 (i - 1, 5, “密码输入”) 超级延时 (1000) 乐玩多线程操作 [i].lwck.发送文本2 (子窗口句柄, “大区选择:” + 超级列表框1.取标题 (i - 1, 3) + #换行符) 超级列表框1.置标题 (i - 1, 5, “大区选择”) 超级延时 (1000) 超级列表框1.置标题 (i - 1, 5, “完成”) 超级延时 (1000) .计次循环尾 () .如果真结束 .如果真结束 .如果真结束 进程_结束 (乐玩多线程操作 [i].进程ID) 全局_线程数量 = 全局_线程数量 - 1 .如果真结束 .子程序 __启动窗口_可否被关闭, 逻辑型 结束 ()
分类
易语言例程

易语言多线程例子源码

多线程例子,有线程等待,线程恢复结束,暂停。

易语言多线程例子源码

分类
易语言例程

易语言简单的多线程例子源码

.版本 2 .支持库 EThread .支持库 iext .子程序 __启动窗口_将被销毁 强制结束线程 (母线程_句柄) ' 在窗口结束前 最好是销毁掉,别占用到系统的内存空间 删除进入许可证 (全局_线程操作许可证) .子程序 _按钮_开始操作_被单击 超级列表框.全部删除 () Amount = 到整数 (编辑框_总数.内容) Thred_amount = 到整数 (编辑框_线程个数.内容) .如果真 (Thred_amount > Amount) ' 判断单次 启动子线程是否大于 总数量 信息框 (“线程数量不能大于总数量!”, #警告图标, “提示”, ) 返回 () .如果真结束 连续赋值 (真, 编辑框_总数.禁止, 编辑框_线程个数.禁止, 按钮_开始操作.禁止) 连续赋值 (假, 按钮_暂停.禁止, 按钮_停止.禁止) 全局_线程动作 = -1 全局_子线程完成个数 = 0 启动线程 (&母线程, , 母线程_句柄) .子程序 母线程, , , 控制子线程 启动、暂停、继续、停止、等 .局部变量 i, 整数型 .局部变量 临时句柄, 整数型 清除数组 (记录_句柄) ' 清楚记录的 子线程 句柄 .计次循环首 (Amount, i) 进入许可区 (全局_线程操作许可证) 超级列表框.插入表项 (, 到文本 (i), , , , ) 退出许可区 (全局_线程操作许可证) .计次循环尾 () i = 0 ' 置0 .判断循环首 (i < Amount) ' 判断i值是否小于母线程的总数量 ' 能进入近来就是代表i还是小于的 ' 继续执行 子线程的启动操作 进入许可区 (全局_线程操作许可证) 超级列表框.保证显示 (i) 超级列表框.现行选中项 = i 退出许可区 (全局_线程操作许可证) i = i + 1 启动线程 (&子线程, i, 临时句柄) ' 传入操作索引 加入成员 (记录_句柄, 临时句柄) ' 把启动的 子线程 句柄加入到数组里面 !!在子线程操作结束完后可以通过数组里的下标销毁启动的子线程 延时 (10) ' 线程 里建议用延时 .如果真 (i % Thred_amount = 0) ' 判断 单次启动 子线程 操作数量 是否达到,比如 5 个线程操作 ' 达到 单次启动 子线程 操作数量 .判断循环首 (全局_子线程是否继续 = 假) ' 判断 启动的 子线程 是否操作结束 ' 等待启动的 子线程走完 延时 (10) ' 线程 里建议用延时 .判断循环尾 () ' 单次启动 子线程 操作数量 操作完成 全局_子线程是否继续 = 假 全局_子线程完成个数 = 0 处理事件 () .如果真结束 ' 判断用户有没有选择 中断操作 .如果真 (全局_线程动作 = 0) ' 0是暂停 ' 进入暂停 ' 暂停成功 进入许可区 (全局_线程操作许可证) 按钮_暂停.标题 = “暂 停” 按钮_继续.禁止 = 假 退出许可区 (全局_线程操作许可证) .循环判断首 () 延时 (100) ' 线程 里建议用延时 .如果真 (全局_线程动作 = 2) ' 2是停止 跳出循环 () .如果真结束 .循环判断尾 (全局_线程动作 = 0) ' 等待用户点击继续 .如果真 (全局_线程动作 = 2) ' 2是停止 跳出循环 () .如果真结束 ' 用户选择了继续 进入许可区 (全局_线程操作许可证) 按钮_暂停.禁止 = 假 退出许可区 (全局_线程操作许可证) 全局_线程动作 = -1 .如果真结束 .如果真 (全局_线程动作 = 2) ' 2是停止 跳出循环 () .如果真结束 .判断循环尾 () 进入许可区 (全局_线程操作许可证) 连续赋值 (假, 编辑框_总数.禁止, 编辑框_线程个数.禁止, 按钮_开始操作.禁止) 连续赋值 (真, 按钮_暂停.禁止, 按钮_继续.禁止, 按钮_停止.禁止) 按钮_停止.标题 = “停 止” 退出许可区 (全局_线程操作许可证) .如果 (i = Amount) 标签2.调用反馈事件 (0, , ) ' 设置的操作数量完成提示 .否则 标签2.调用反馈事件 (i, , ) ' 反馈操作数量提示 .如果结束 强制结束线程 (母线程_句柄) ' 结束本身 .子程序 子线程, , , 子线程 处理数据,比如下载、传输数据到网站、处理本地的一些数据等等哈 .参数 操作索引, 整数型 .局部变量 Rand_Time, 整数型, , , 模拟软件处理的时间 .局部变量 Load_Time, 整数型, , , 本子线程启动的时间 .局部变量 End_Timne, 整数型, , , 本子线程操作结束的时间 ' 调试输出 (“第” + 到文本 (操作索引) + “个线程,启动成功!”) Load_Time = 取启动时间 () ' --------------------------------------------- ' 中间执行代码的过程 置随机数种子 () Rand_Time = 取随机数 (3, 6) × 1000 ' 随机生成一个时间!!! 只是测试。假如是真实要处理数据的话这里放上对应要处理的代码即可 延时 (Rand_Time) ' 线程 里建议用延时 ' 中间执行的代码结束 ' --------------------------------------------- End_Timne = 取启动时间 () 进入许可区 (全局_线程操作许可证) 超级列表框.置标题 (操作索引 - 1, 1, 到文本 ((End_Timne - Load_Time) ÷ 1000) + “S”) ' 置入线程操作耗时提示 退出许可区 (全局_线程操作许可证) 全局_子线程完成个数 = 全局_子线程完成个数 + 1 .如果真 (全局_子线程完成个数 % Thred_amount = 0) ' 判断是否 达到 单次 子线程 的操作数量 全局_子线程是否继续 = 真 .如果真结束 ' 调试输出 (“第” + 到文本 (操作索引) + “个线程,操作结束!”) 强制结束线程 (记录_句柄 [操作索引]) ' 结束本子线程 .子程序 _按钮_暂停_被单击 按钮_暂停.禁止 = 真 按钮_暂停.标题 = “正在暂停” 全局_线程动作 = 0 .子程序 _按钮_继续_被单击 按钮_继续.禁止 = 真 全局_线程动作 = 1 .子程序 _按钮_停止_被单击 连续赋值 (真, 按钮_暂停.禁止, 按钮_继续.禁止, 按钮_停止.禁止) 按钮_停止.标题 = “正在停止 ” 全局_线程动作 = 2 .子程序 _标签2_反馈事件, 整数型 .参数 参数一, 整数型 .参数 参数二, 整数型 .如果 (参数一 = 0) 信息框 (到文本 (Amount) + “个数量操作完成”, #信息图标, “提示”, ) .否则 信息框 (“完成” + 到文本 (参数一) + “个数据操作”, #信息图标, “提示”, ) .如果结束 .子程序 _编辑框_线程个数_按下某键, 逻辑型 .参数 键代码, 整数型 .参数 功能键状态, 整数型 返回 (假) .子程序 _编辑框_总数_按下某键, 逻辑型 .参数 键代码, 整数型 .参数 功能键状态, 整数型 返回 (假)