怎么用易语言调整图片分辨率

gugu980517927

怎么用易语言调整图片分辨率  比如我现在有一张图片是500*500的  我想把它调整成1080*1920的 然后保存到文件夹
求一个源码 或者给个调整图片分辨率的命令


怎么用易语言调整图片分辨率  比如我现在有一张图片是500*500的  我想把它调整成1080*1920的 然后保存到文件夹
求一个源码 或者给个调整图片分辨率的命令


怎么用易语言调整图片分辨率  比如我现在有一张图片是500*500的  我想把它调整成1080*1920的 然后保存到文件夹
求一个源码 或者给个调整图片分辨率的命令

黎明的心

.版本 2

.子程序 设置分辨率, 字节集, 公开
.参数 参_图片, 字节集
.参数 参_宽度, 整数型, 可空, 留空或小于1默认取原来宽度
.参数 参_高度, 整数型, 可空, 留空或小于1默认取原来高度
.局部变量 Startup, GdiplusStartupInput
.局部变量 hMem, 整数型
.局部变量 nSize, 整数型
.局部变量 lpStr, 整数型
.局部变量 ipStr, 整数型
.局部变量 bitmap, 整数型
.局部变量 token, 整数型
.局部变量 bpStr, 整数型
.局部变量 xpStr, 字节集

Startup.GdiplusVersion ＝ 1
GdiplusStartup (token, Startup, 0)
nSize ＝ 取字节集长度 (参_图片)
hMem ＝ GlobalAlloc (2, nSize)
lpStr ＝ GlobalLock (hMem)
CreateStreamOnHGlobal (hMem, 假, ipStr)
RtlMoveMemory_字节集 (lpStr, 参_图片, nSize)
GlobalUnlock (hMem)
GdipLoadImageFromStream (ipStr, bitmap)
.如果真 (参_宽度 ＜ 1)
    GdipGetImageWidth (bitmap, 参_宽度)
.如果真结束
.如果真 (参_高度 ＜ 1)
    GdipGetImageHeight (bitmap, 参_高度)
.如果真结束
GdipGetImageThumbnail (bitmap, 参_宽度, 参_高度, bpStr, 0, 0)
GdipDisposeImage (bitmap)
GlobalFree (hMem)
hMem ＝ GlobalAlloc (位或 (64, 2), 0)
CreateStreamOnHGlobal (hMem, 假, ipStr)
xpStr ＝ 取空白字节集 (16)
CLSIDFromString_字节集传址 ({ 123, 0, 53, 0, 53, 0, 55, 0, 67, 0, 70, 0, 52, 0, 48, 0, 54, 0, 45, 0, 49, 0, 65, 0, 48, 0, 52, 0, 45, 0, 49, 0, 49, 0, 68, 0, 51, 0, 45, 0, 57, 0, 65, 0, 55, 0, 51, 0, 45, 0, 48, 0, 48, 0, 48, 0, 48, 0, 70, 0, 56, 0, 49, 0, 69, 0, 70, 0, 51, 0, 50, 0, 69, 0, 125, 0, 0, 0 }, xpStr)
GdipSaveImageToStream_字节集 (bpStr, ipStr, xpStr, 0)
lpStr ＝ GlobalLock (hMem)
nSize ＝ GlobalSize (hMem)
xpStr ＝ 指针到字节集 (lpStr, nSize)
GlobalUnlock (hMem)
GlobalFree (hMem)
GdipDisposeImage (bpStr)
GdiplusShutdown (token)
返回 (xpStr)

汉族

画板 取图片  可以设置图片宽高

jcos

用ffmpeg, 挺好用的,就是体积大点

gugu980517927

汉族 发表于 2024-2-27 13:32
画板 取图片  可以设置图片宽高

具体命令是什么 我只查到 画板 去背景

汉族

gugu980517927 发表于 2024-2-27 14:55
具体命令是什么 我只查到 画板 去背景

    调用格式： 〈字节集〉 对象．取图片 （［整数型 输出宽度］，［整数型 输出高度］） - 系统核心支持库->画板
    英文名称：GetPic
    返回画板上所有现有显示内容的图片数据。如果失败，返回空字节集。本命令为初级对象成员命令。
    参数<1>的名称为“输出宽度”，类型为“整数型（int）”，可以被省略。指定图片的输出宽度。如果小于0，参数值指定的是最终图片输出宽度相对于所取得图片宽度的百分比（最小为10%）；如果等于0，则按图片原宽度输出；如果大于0，指定输出图片的绝对宽度。如果本参数被省略，默认值为0。
    参数<2>的名称为“输出高度”，类型为“整数型（int）”，可以被省略。指定图片的输出高度。如果小于0，参数值指定的是最终图片输出高度相对于所取得图片高度的百分比（最小为10%）；如果等于0，则按图片原高度输出；如果大于0，指定输出图片的绝对高度。如果本参数被省略，默认值为0。

    操作系统需求： Windows


至于你说的 去背景 这个命令我倒是不知道了

汉族

代码如图：

黎明的心

.版本 2  .子程序 设置分辨率, 字节集, 公开 .参数 参_图片, 字节集 .参数 参_宽度, 整数型, 可空, 留空或小于1默认取原来宽度 .参数 参_高度, 整数型, 可空, 留空或小于1默认取原来高度 .局部变量 Startup, GdiplusStartupInput .局部变量 hMem, 整数型 .局部变量 nSize, 整数型 .局部变量 lpStr, 整数型 .局部变量 ipStr, 整数型 .局部变量 bitmap, 整数型 .局部变量 token, 整数型 .局部变量 bpStr, 整数型 .局部变量 xpStr, 字节集  Startup.GdiplusVersion ＝ 1 GdiplusStartup (token, Startup, 0) nSize ＝ 取字节集长度 (参_图片) hMem ＝ GlobalAlloc (2, nSize) lpStr ＝ GlobalLock (hMem) CreateStreamOnHGlobal (hMem, 假, ipStr) RtlMoveMemory_字节集 (lpStr, 参_图片, nSize) GlobalUnlock (hMem) GdipLoadImageFromStream (ipStr, bitmap) .如果真 (参_宽度 ＜ 1)     GdipGetImageWidth (bitmap, 参_宽度) .如果真结束 .如果真 (参_高度 ＜ 1)     GdipGetImageHeight (bitmap, 参_高度) .如果真结束 GdipGetImageThumbnail (bitmap, 参_宽度, 参_高度, bpStr, 0, 0) GdipDisposeImage (bitmap) GlobalFree (hMem) hMem ＝ GlobalAlloc (位或 (64, 2), 0) CreateStreamOnHGlobal (hMem, 假, ipStr) xpStr ＝ 取空白字节集 (16) CLSIDFromString_字节集传址 ({ 123, 0, 53, 0, 53, 0, 55, 0, 67, 0, 70, 0, 52, 0, 48, 0, 54, 0, 45, 0, 49, 0, 65, 0, 48, 0, 52, 0, 45, 0, 49, 0, 49, 0, 68, 0, 51, 0, 45, 0, 57, 0, 65, 0, 55, 0, 51, 0, 45, 0, 48, 0, 48, 0, 48, 0, 48, 0, 70, 0, 56, 0, 49, 0, 69, 0, 70, 0, 51, 0, 50, 0, 69, 0, 125, 0, 0, 0 }, xpStr) GdipSaveImageToStream_字节集 (bpStr, ipStr, xpStr, 0) lpStr ＝ GlobalLock (hMem) nSize ＝ GlobalSize (hMem) xpStr ＝ 指针到字节集 (lpStr, nSize) GlobalUnlock (hMem) GlobalFree (hMem) GdipDisposeImage (bpStr) GdiplusShutdown (token) 返回 (xpStr)