网站首页 > 易语言相关 > 网络相关源码 正文
.版本 2 .支持库 RegEx .程序集 窗口程序集1 .子程序 _按钮1_被单击 .局部变量 hToken, 整数型 .局部变量 s, 整数型 .局部变量 ScriptDir, 文本型 s = 取启动时间 () ScriptDir = 取运行目录 () hToken = _GDIPlus_Startup () _GDIPlus_ImageToGray (ScriptDir + “haijie1223.jpg”, ScriptDir + “New_灰度.jpg”) GdiplusShutdown (hToken) s = 取启动时间 () - s 标题 = “耗时:” + 到文本 (s) + “毫秒” .子程序 _GDIPlus_ImageToGray, 整数型, , 将彩色转为灰度(去色),输出文件或灰度图像对象句柄 .参数 sFile, 文本型 .参数 sFile_Gray, 文本型 .局部变量 hImage, 整数型 .局部变量 iW, 整数型 .局部变量 iH, 整数型 .局部变量 hGraphics, 整数型 .局部变量 hIA, 整数型 .局部变量 tCOLORMATRIX, cColorMatrix .局部变量 iRet, 整数型 GdipLoadImageFromFile (编码_Ansi到Unicode (sFile, ), hImage) GdipGetImageWidth (hImage, iW) GdipGetImageHeight (hImage, iH) iRet = GdipGetImageGraphicsContext (hImage, hGraphics) iRet = GdipCreateImageAttributes (hIA) tCOLORMATRIX = _GDIPlus_ColorMatrixCreateGrayScale () iRet = GdipSetImageAttributesColorMatrix (hIA, 0, 真, tCOLORMATRIX, 0, 0) iRet = GdipDrawImageRectRect (hGraphics, hImage, 0, 0, iW, iH, 0, 0, iW, iH, 2, hIA, 0, 0) .如果 (sFile_Gray ≠ “”) iRet = _GDIPlus_ImageSaveToFile (hImage, sFile_Gray) GdipDeleteGraphics (hGraphics) GdipDisposeImage (hImage) 返回 (iRet) .否则 返回 (hImage) .如果结束 .子程序 _GDIPlus_ImageSaveToFile, 整数型 .参数 hImage, 整数型 .参数 sFileName, 文本型 .局部变量 sExt, 文本型 .局部变量 pStr, 文本型 .局部变量 Clsid, 字节集 .局部变量 iRet, 整数型 .局部变量 StringRegExp, 正则表达式 .局部变量 aRet, 搜索结果, , "0" StringRegExp.创建 (“.*\.(\w{3,5})$”, ) aRet = StringRegExp.搜索全部 (sFileName) sExt = aRet [1].取子匹配文本 (sFileName, 1, ) .如果真 (sExt = “”) sExt = “jpg” .如果真结束 .判断开始 (sExt = “bmp”) ' bmp pStr = “{557CF400-1A04-11D3-9A73-0000F81EF32E}” .判断 (sExt = “jpg”) ' jpg pStr = “{557CF401-1A04-11D3-9A73-0000F81EF32E}” .判断 (sExt = “gif”) ' gif pStr = “{557CF402-1A04-11D3-9A73-0000F81EF32E}” .判断 (sExt = “tiff”) ' tiff pStr = “{557CF405-1A04-11D3-9A73-0000F81EF32E}” .判断 (sExt = “png”) ' png pStr = “{557CF406-1A04-11D3-9A73-0000F81EF32E}” .默认 .判断结束 Clsid = 取空白字节集 (16) CLSIDFromString (A2W (pStr), Clsid) ' 获取图像格式对应的Clsid iRet = GdipSaveImageToFile (hImage, 编码_Ansi到Unicode (sFileName, ), Clsid, 0) .如果 (iRet = 0) 返回 (1) .否则 返回 (0) .如果结束 .子程序 A2W, 字节集, , 将Ansi转成Unicode .参数 欲转换的文本, 文本型 .局部变量 缓冲区, 字节集 .局部变量 缓冲区大小, 整数型 缓冲区大小 = MultiByteToWideChar (0, 0, 欲转换的文本, -1, { }, 0) × 2 缓冲区 = 取空白字节集 (缓冲区大小) MultiByteToWideChar (0, 0, 欲转换的文本, 取文本长度 (欲转换的文本), 缓冲区, 缓冲区大小) 返回 (缓冲区) .子程序 _GDIPlus_ColorMatrixCreateGrayScale, cColorMatrix .局部变量 iI, 整数型 .局部变量 iJ, 整数型 .局部变量 tCM, cColorMatrix .局部变量 aLums, 小数型, , "4" aLums [1] = 0.3086 aLums [2] = 0.6094 aLums [3] = 0.082 aLums [4] = 0 .变量循环首 (1, 3, 1, iI) .变量循环首 (1, 3, 1, iJ) tCM.cColorMatrix [iI] [iJ] = aLums [iI] .变量循环尾 () .变量循环尾 () tCM.cColorMatrix [19] = 1 tCM.cColorMatrix [25] = 1 返回 (tCM) .子程序 编码_Ansi到Unicode, 字节集, 公开, 将Ansi码转换为Unicode码;成功返回转换后的字节集; .参数 Ansi, 文本型, , 欲转换的Ansi文本 .参数 非标准Unicode编码, 逻辑型, 可空, 默认为假,为标准Unicode编码 .局部变量 数据2, 字节集 .局部变量 长度, 整数型 .如果真 (Ansi = “”) 返回 ({ }) .如果真结束 长度 = MultiByteToWideChar (0, 0, Ansi, -1, { }, 0) 数据2 = 取空白字节集 (长度 × 2) MultiByteToWideChar (936, 0, Ansi, -1, 数据2, 长度 × 2) .如果真 (非标准Unicode编码) 数据2 = 取字节集左边 (数据2, 取字节集长度 (数据2) - 2) .如果真结束 返回 (数据2) .子程序 _GDIPlus_Startup, 整数型, 公开, 成功返回标志 .局部变量 tInput, GdiplusStartupInput .局部变量 tToken, 整数型 tInput.GdiplusVersion = 1 GdiplusStartup (tToken, tInput, 0) 返回 (tToken)
@haijie1223
- 上一篇: 易语言API创建时钟例程源码
- 下一篇: 易语言多线程防崩溃例程
猜你喜欢
- 2025-01-03 夸克网盘扫码登录+账号信息查询源码
- 2024-09-13 精易web浏览器采集例子 dd373游戏网
- 2024-09-12 Brotli (br)压缩/解压动态库调用方法,支持进度压缩/解压
- 2024-09-11 QQ空间二维码登录源码
- 2024-04-07 最新NT框架可用QQ群验证
- 2024-03-21 蓝奏云直链解析纯协议源码
- 2024-03-20 基于E2EE的无状态认证JsonWebToken算法、常用Web算法模块
- 2024-03-18 YoLo8本地cpu识别源码
- 2024-03-16 搜索引擎 下拉关键词例子 支持百d\搜狗\必应\搜狗手机版
- 2024-03-15 ZIP解压缩模块源码
你 发表评论:
欢迎- 百度站内搜索
- 关注微信公众号
- 网站分类
-
- 网站公告
- 电子书书籍
- 程序员工具箱
- 编程工具
- 易语言相关
- 网络相关源码
- 图形图像源码
- 系统工具源码
- 易语言模块源码
- 易语言支持库
- 数据库类源码
- 易语言例程
- 易语言游戏开发
- 易语言模块
- 多媒体类源码
- 易语言资源网
- 易语言视频教程
- JS分析教程
- 易语言图文教程
- 易语言常见问题及笔记
- 工具源码
- 易语言版本
- 网络编程
- javascript
- PHP编程
- html
- 正则表达式
- 面试题
- nodejs
- 其它综合
- 脚本专栏
- python
- 按键精灵相关
- 按键精灵图文教程
- 按键精灵视频教程
- 按键精灵Q语言
- 按键精灵安卓版
- golang
- 游戏安全
- 火山相关
- 火山安卓软件
- 火山常见问题及笔记
- 火山安卓源码
- 火山视频教程
- 火山PC版本下载
- 火山PC视窗例程
- 互联网那些事
- 引流推广
- 项目揭秘
- 网络营销
- 营销软件
- QQ营销软件
- 娱乐软件
- 机器人插件
- 培训教程
- 技术教程
- 活动线报
- 数据库
- Redis
- Access
- MongoDB
- Mysql
- 问答
- 其它
- 易语言
- 需求
- 在线教程
- 多线程培训班
- 觅风易语言教程
- 模拟系列教程
- 集中营易语言教程
- 历史数据
- 随机tag
已有1位网友发表了看法:
易语言资源 评论于 [2021-12-06 14:09:10] 回复
557cf