易语言的代码用火山怎么写？ - 递归火山软件开发平台

<火山程序类型 = "通常" 版本 = 1 />
类 LPBITMAPINFOHEADER <公开基础类 = 本地结构指针模板折叠 @别名 = "LPBITMAPINFOHEADER" @模板实现类 = "">
{
变量 biSize <公开类型 = 整数 @输出名 = "biSize">
变量 biWidth <公开类型 = 整数 @输出名 = "biWidth">
变量 biHeight <公开类型 = 整数 @输出名 = "biHeight">
变量 biPlanes <公开类型 = 短整数 @输出名 = "biPlanes">
变量 biBitCount <公开类型 = 短整数 @输出名 = "biBitCount">
变量 biCompression <公开类型 = 整数 @输出名 = "biCompression">
变量 biSizeImage <公开类型 = 整数 @输出名 = "biSizeImage">
变量 biXPelsPerMeter <公开类型 = 整数 @输出名 = "biXPelsPerMeter">
变量 biYPelsPerMeter <公开类型 = 整数 @输出名 = "biYPelsPerMeter">
变量 biClrUsed <公开类型 = 整数 @输出名 = "biClrUsed">
变量 biClrImportant <公开类型 = 整数 @输出名 = "biClrImportant">
}
类 LPBITMAPFILEHEADER <公开基础类 = 本地结构指针模板折叠 @别名 = "LPBITMAPFILEHEADER" @模板实现类 = "">
{
变量 bfType <公开类型 = 短整数 @输出名 = "bfType">
变量 bfSize <公开类型 = 整数 @输出名 = "bfSize">
变量 bfReserved1 <公开类型 = 短整数 @输出名 = "bfReserved1">
变量 bfReserved2 <公开类型 = 短整数 @输出名 = "bfReserved2">
变量 bfOffBits <公开类型 = 整数 @输出名 = "bfOffBits">
#
}
类案例 <公开折叠>
{
方法图片_取图片区域 <公开静态类型 = 字节集类注释 = "提供一张图片，取出指定位置大小的图片。">
参数原位图 <类型 = 字节集类注释 = "24位BMP位图">
参数图片左边 <类型 = 整数注释 = "欲取出的图片左边">
参数图片顶边 <类型 = 整数注释 = "欲取出的图片顶边">
参数图片宽度 <类型 = 整数注释 = "欲取出的图片宽度">
参数图片高度 <类型 = 整数注释 = "欲取出的图片高度">
{
变量新位图 <类型 = 字节集类>
如果 (原位图.取字节集长度 () < LPBITMAPFILEHEADER.取数据尺寸 () + LPBITMAPINFOHEADER.取数据尺寸 ())
{
返回 (新位图)
}
变量位图文件 <类型 = LPBITMAPFILEHEADER>
变量位图信息 <类型 = LPBITMAPINFOHEADER>
位图文件 = LPBITMAPFILEHEADER.来自变整数 (原位图.取字节集指针 ())
位图信息 = LPBITMAPINFOHEADER.来自变整数 (原位图.取字节集指针 () + LPBITMAPFILEHEADER.取数据尺寸 ())
如果 (位图文件.bfSize != (无符号整数)原位图.取字节集长度 () || 位图信息.biCompression != 0)
{
返回 (新位图)
}
变量颜色表 <类型 = 字节集类>
变量颜色点阵偏移量 <类型 = 整数>
变量点的大小 <类型 = 整数>
如果 (位图信息.biBitCount == 32)
{
颜色点阵偏移量 = 位图文件.bfOffBits
点的大小 = 4
}
否则 (位图信息.biBitCount == 24)
{
颜色点阵偏移量 = 位图文件.bfOffBits
点的大小 = 3
}
否则 (位图信息.biBitCount == 16)
{
颜色点阵偏移量 = 位图文件.bfOffBits
点的大小 = 2
}
否则 (位图信息.biBitCount == 8)
{
颜色点阵偏移量 = 1078
点的大小 = 1
颜色表 = 原位图.取字节集中间 (位图文件.bfOffBits, 1024)
}
否则
{
调试输出 ("错误！图像位深小于8！")
返回 (新位图)
}
如果 (图片左边 < 0)
{
图片左边 = 0
}
如果 (图片顶边 < 0)
{
图片顶边 = 0
}
如果 (图片左边 > 位图信息.biWidth || 图片顶边 > 位图信息.biHeight)
{
调试输出 ("参数错误，错误原因：图片左边或图片顶边小于截取出来图片的宽度或高度")
返回 (新位图)
}
如果 (图片宽度 <= 0 || 图片高度 <= 0)
{
调试输出 ("参数错误，错误原因：图片左边或图片顶边小于截取出来图片的宽度或高度")
}
如果 (图片左边 + 图片宽度 > 位图信息.biWidth)
{
图片宽度 = 位图信息.biWidth - 图片左边
}
如果 (图片顶边 + 图片高度 > 位图信息.biHeight)
{
图片高度 = 位图信息.biHeight - 图片顶边
}
变量新行宽 <类型 = 整数>
变量原行宽 <类型 = 整数>
变量文件长度 <类型 = 整数>
原行宽 = 位左移 (位右移 (位图信息.biWidth * 位图信息.biBitCount + 31, 5), 2)
新行宽 = 位左移 (位右移 (图片宽度 * 位图信息.biBitCount + 31, 5), 2)
文件长度 = 新行宽 * 图片高度
新位图.分配字节集 (文件长度 + LPBITMAPFILEHEADER.取数据尺寸 () + LPBITMAPINFOHEADER.取数据尺寸 () + 颜色表.取字节集长度 (), 真)
变量新位图文件 <类型 = LPBITMAPFILEHEADER>
新位图文件 = LPBITMAPFILEHEADER.来自变整数 (新位图.取字节集指针 ())
新位图文件.bfType = 位图文件.bfType
新位图文件.bfOffBits = 颜色点阵偏移量
新位图文件.bfSize = 颜色点阵偏移量 + 文件长度
变量新位图信息 <类型 = LPBITMAPINFOHEADER>
新位图信息 = LPBITMAPINFOHEADER.来自变整数 (新位图.取字节集指针 () + LPBITMAPFILEHEADER.取数据尺寸 ())
内存复制 (新位图信息.取变整数指针 (), 位图信息.取变整数指针 (), LPBITMAPINFOHEADER.取数据尺寸 ())
新位图信息.biWidth = 图片宽度
新位图信息.biHeight = 图片高度
如果 (新位图信息.biBitCount == 8)
{
内存复制 (新位图.取字节集指针 () + 54, 颜色表.取字节集指针 (), 颜色表.取字节集长度 ())
}
变量总数据偏移 <类型 = 整数>
总数据偏移 = 原行宽 * (位图信息.biHeight - 图片高度 - 图片顶边) + 图片左边 * 点的大小
计次循环 (图片高度)
{
内存复制 (新位图.取字节集指针 () + 取循环索引 () * 新行宽 + 颜色点阵偏移量, 原位图.取字节集指针 () + 颜色点阵偏移量 + 总数据偏移 + 取循环索引 () * 原行宽, 新行宽)
}
返回 (新位图)
}
}

复制代码