图片_转换

违规用户名309721

  

子程序名	返回值类型	公开	备 注
图片_转换	逻辑型		支持bmp、jpg、gif、tiff、png互转；成功返回转换好的图片数据，失败返回空字节集；
参数名	类 型	参考	可空	数组	备 注
图像数据	字节集				被转换的图像数据；
转换格式	整数型				要转换成的图像格式：1=bmp；2=jpg；3=gif；4=tiff；5=png；
保存路径	文本型				把转换后的图像保存到指定位置；
返回数据	字节集				变量储存返回数据.
含透明色	逻辑型				转换PNG图片时是否需要处理透明色，可为空，默认不处理。

变量名	类 型	静态	数组	备 注
新图像	字节集			用于保存新图像的变量
Clsid	GUID
pStr	文本型
hMem	整数型
Stream
lpvoid	整数型
pStream	整数型
bitmap	整数型
DataStream
hMemDataStream	整数型
pDataStream	整数型
nStreamSize	整数型
bRet	逻辑型
GpInput	GdiplusStartupInput
局_Token	整数型
局_hBitMap	整数型

如果真 (取字节集长度 (图像数据) ＜ 3)
返回 (假)
GpInput.GdiplusVersion ＝ 1
GdiplusStartup (局_Token, GpInput, 0)  ' 启动GDI+
判断 (转换格式 ＝ 1)  ' bmp
pStr ＝ “{557CF400-1A04-11D3-9A73-0000F81EF32E}”
判断 (转换格式 ＝ 2)  ' jpg
pStr ＝ “{557CF401-1A04-11D3-9A73-0000F81EF32E}”
判断 (转换格式 ＝ 3)  ' gif
pStr ＝ “{557CF402-1A04-11D3-9A73-0000F81EF32E}”
判断 (转换格式 ＝ 4)  ' tiff
pStr ＝ “{557CF405-1A04-11D3-9A73-0000F81EF32E}”
判断 (转换格式 ＝ 5)  ' png
pStr ＝ “{557CF406-1A04-11D3-9A73-0000F81EF32E}”


Clsid ＝ StringToCLSID (pStr)
hMem ＝ GlobalAlloc (2, 取字节集长度 (图像数据))  ' 分配内存
CreateStreamOnHGlobal (hMem, 假, Stream)
lpvoid ＝ GlobalLock (hMem)
写到内存 (图像数据, lpvoid, 取字节集长度 (图像数据))
GlobalUnlock (hMem)
pStream ＝ lstrcpyn_整数型 (Stream, Stream, 0)
GDIpCreateBitmapFromStream (取字节集数据 (指针到字节集 (pStream, 4), #整数型, ), bitmap)
如果真 (含透明色)
' GdipCreateHBITMAPFromBitmap (bitmap, 局_hBitMap, #白色)
GdipCreateBitmapFromHBITMAP (局_hBitMap, 0, bitmap)

CreateStreamOnHGlobal (0, 真, DataStream)
pStream ＝ lstrcpyn_整数型 (DataStream, DataStream, 0)
pStream ＝ 取字节集数据 (指针到字节集 (pStream, 4), #整数型, )
GDIpSaveImageToStream (bitmap, pStream, Clsid, 0)
GetHGlobalFromStream (pStream, hMemDataStream)
pDataStream ＝ GlobalLock (hMemDataStream)
nStreamSize ＝ GlobalSize (hMemDataStream)
如果真 (pDataStream ≠ 0)
新图像 ＝ 取空白字节集 (nStreamSize)
CopyMemory_int2Bytes (新图像, pDataStream, nStreamSize)
如果真 (删首尾空 (保存路径) ≠ “”)
写到文件 (保存路径, 新图像)
返回数据 ＝ 新图像
bRet ＝ 真
Release (Stream)
Release (DataStream)
GlobalUnlock (hMemDataStream)
GlobalFree (hMemDataStream)
GdipDisposeImage (bitmap)
GlobalFree (hMem)
GdiplusShutdown (局_Token)  ' GDI关闭 +
返回 (bRet)

.版本 2<br /> <br /> .子程序 图片_转换, 逻辑型, 公开, 支持bmp、jpg、gif、tiff、png互转；成功返回转换好的图片数据，失败返回空字节集；<br /> .参数 图像数据, 字节集, , 被转换的图像数据；<br /> .参数 转换格式, 整数型, , 要转换成的图像格式：1=bmp；2=jpg；3=gif；4=tiff；5=png；<br /> .参数 保存路径, 文本型, 可空, 把转换后的图像保存到指定位置；<br /> .参数 返回数据, 字节集, 参考 可空, 变量储存返回数据.<br /> .参数 含透明色, 逻辑型, 可空, 转换PNG图片时是否需要处理透明色，可为空，默认不处理。<br /> .局部变量 新图像, 字节集, , , 用于保存新图像的变量<br /> .局部变量 Clsid, GUID<br /> .局部变量 pStr, 文本型<br /> .局部变量 hMem, 整数型<br /> .局部变量 Stream<br /> .局部变量 lpvoid, 整数型<br /> .局部变量 pStream, 整数型<br /> .局部变量 bitmap, 整数型<br /> .局部变量 DataStream<br /> .局部变量 hMemDataStream, 整数型<br /> .局部变量 pDataStream, 整数型<br /> .局部变量 nStreamSize, 整数型<br /> .局部变量 bRet, 逻辑型<br /> .局部变量 GpInput, GdiplusStartupInput<br /> .局部变量 局_Token, 整数型<br /> .局部变量 局_hBitMap, 整数型<br /> <br /> .如果真 (取字节集长度 (图像数据) ＜ 3)<br />     返回 (假)<br /> .如果真结束<br /> GpInput.GdiplusVersion ＝ 1<br /> GdiplusStartup (局_Token, GpInput, 0)  ' 启动GDI+<br /> .判断开始 (转换格式 ＝ 1)  ' bmp<br />     pStr ＝ “{557CF400-1A04-11D3-9A73-0000F81EF32E}”<br /> .判断 (转换格式 ＝ 2)  ' jpg<br />     pStr ＝ “{557CF401-1A04-11D3-9A73-0000F81EF32E}”<br /> .判断 (转换格式 ＝ 3)  ' gif<br />     pStr ＝ “{557CF402-1A04-11D3-9A73-0000F81EF32E}”<br /> .判断 (转换格式 ＝ 4)  ' tiff<br />     pStr ＝ “{557CF405-1A04-11D3-9A73-0000F81EF32E}”<br /> .判断 (转换格式 ＝ 5)  ' png<br />     pStr ＝ “{557CF406-1A04-11D3-9A73-0000F81EF32E}”<br /> .默认<br /> <br /> .判断结束<br /> Clsid ＝ StringToCLSID (pStr)<br /> hMem ＝ GlobalAlloc (2, 取字节集长度 (图像数据))  ' 分配内存<br /> CreateStreamOnHGlobal (hMem, 假, Stream)<br /> <br /> lpvoid ＝ GlobalLock (hMem)<br /> 写到内存 (图像数据, lpvoid, 取字节集长度 (图像数据))<br /> GlobalUnlock (hMem)<br /> <br /> pStream ＝ lstrcpyn_整数型 (Stream, Stream, 0)<br /> GDIpCreateBitmapFromStream (取字节集数据 (指针到字节集 (pStream, 4), #整数型, ), bitmap)<br /> .如果真 (含透明色)<br />     ' GdipCreateHBITMAPFromBitmap (bitmap, 局_hBitMap, #白色)<br />     GdipCreateBitmapFromHBITMAP (局_hBitMap, 0, bitmap)<br /> .如果真结束<br /> <br /> CreateStreamOnHGlobal (0, 真, DataStream)<br /> pStream ＝ lstrcpyn_整数型 (DataStream, DataStream, 0)<br /> pStream ＝ 取字节集数据 (指针到字节集 (pStream, 4), #整数型, )<br /> <br /> GDIpSaveImageToStream (bitmap, pStream, Clsid, 0)<br /> GetHGlobalFromStream (pStream, hMemDataStream)<br /> pDataStream ＝ GlobalLock (hMemDataStream)<br /> nStreamSize ＝ GlobalSize (hMemDataStream)<br /> .如果真 (pDataStream ≠ 0)<br />     新图像 ＝ 取空白字节集 (nStreamSize)<br />     CopyMemory_int2Bytes (新图像, pDataStream, nStreamSize)<br />     .如果真 (删首尾空 (保存路径) ≠ “”)<br />         写到文件 (保存路径, 新图像)<br />     .如果真结束<br />     返回数据 ＝ 新图像<br />     bRet ＝ 真<br /> .如果真结束<br /> Release (Stream)<br /> Release (DataStream)<br /> GlobalUnlock (hMemDataStream)<br /> GlobalFree (hMemDataStream)<br /> GdipDisposeImage (bitmap)<br /> GlobalFree (hMem)<br /> GdiplusShutdown (局_Token)  ' GDI关闭 +<br /> 返回 (bRet)

含透明色选择真不能处理  

改良缩减版

但求这张贴子能够帮158125957这个账号解封不然以后在也不在精易上来了

  

子程序名	返回值类型	公开	备 注
图片_转换	逻辑型		支持bmp、jpg、gif、tiff、png互转；成功返回转换好的图片数据，失败返回空字节集；
参数名	类 型	参考	可空	数组	备 注
图像数据	字节集				被转换的图像数据；
转换格式	整数型				要转换成的图像格式：1=bmp；2=jpg；3=gif；4=tiff；5=png；
保存路径	文本型				把转换后的图像保存到指定位置；
返回数据	字节集				变量储存返回数据.
是否自动后缀	逻辑型

变量名	类 型	静态	数组	备 注
新图像	字节集			用于保存新图像的变量
Clsid	字节集
pStr	文本型
Stream
pStream	整数型
bitmap	整数型
DataStream
hMemDataStream	整数型
pDataStream	整数型
nStreamSize	整数型
bRet	逻辑型
GpInput	GdiplusStartupInput
局_Token	整数型
局_hBitMap	整数型
j_后缀	文本型

如果真 (取字节集长度 (图像数据) ＜ 3)
返回 (假)
GpInput.GdiplusVersion ＝ 1
GdiplusStartup (局_Token, GpInput, 0)  ' 启动GDI+
是否自动后缀 ＝ 选择 (是否为空 (是否自动后缀), 真, 是否自动后缀)
判断 (转换格式 ＝ 1)  ' bmp
pStr ＝ “{557CF400-1A04-11D3-9A73-0000F81EF32E}”
j_后缀 ＝ “.bmp”
判断 (转换格式 ＝ 2)  ' jpg
pStr ＝ “{557CF401-1A04-11D3-9A73-0000F81EF32E}”
j_后缀 ＝ “.jpg”
判断 (转换格式 ＝ 3)  ' gif
pStr ＝ “{557CF402-1A04-11D3-9A73-0000F81EF32E}”
j_后缀 ＝ “.gif”
判断 (转换格式 ＝ 4)  ' tiff
pStr ＝ “{557CF405-1A04-11D3-9A73-0000F81EF32E}”
j_后缀 ＝ “.tiff”
判断 (转换格式 ＝ 5)  ' png
pStr ＝ “{557CF406-1A04-11D3-9A73-0000F81EF32E}”
j_后缀 ＝ “.png”



Clsid ＝ 文本到GUDI (pStr)
局_hBitMap ＝ 图片_取句柄 (图像数据, )
GdipCreateBitmapFromHBITMAP (局_hBitMap, 0, bitmap)
CreateStreamOnHGlobal (0, 1, DataStream)
RtlMoveMemory_整数型2 (pStream, DataStream, 4)
GdipSaveImageToStream (bitmap, pStream, Clsid, 0)
GetHGlobalFromStream (pStream, hMemDataStream)
pDataStream ＝ GlobalLock (hMemDataStream)
nStreamSize ＝ GlobalSize (hMemDataStream)
如果真 (pDataStream ≠ 0)
新图像 ＝ 取空白字节集 (nStreamSize)
新图像 ＝ 指针到字节集 (pDataStream, nStreamSize)
如果真 (删首尾空 (保存路径) ≠ “”)
如果 (是否自动后缀)
写到文件 (保存路径 ＋ j_后缀, 新图像)
写到文件 (保存路径, 新图像)

返回数据 ＝ 新图像
bRet ＝ 真
Release2 (Stream)  ' 释放
Release2 (DataStream)
GlobalUnlock (hMemDataStream)
GlobalFree (hMemDataStream)
GdipDisposeImage (bitmap)
GdiplusShutdown (局_Token)  ' GDI关闭 +
返回 (bRet)

.版本 2<br /> <br /> .子程序 图片_转换, 逻辑型, 公开, 支持bmp、jpg、gif、tiff、png互转；成功返回转换好的图片数据，失败返回空字节集；<br /> .参数 图像数据, 字节集, , 被转换的图像数据；<br /> .参数 转换格式, 整数型, , 要转换成的图像格式：1=bmp；2=jpg；3=gif；4=tiff；5=png；<br /> .参数 保存路径, 文本型, 可空, 把转换后的图像保存到指定位置；<br /> .参数 返回数据, 字节集, 参考 可空, 变量储存返回数据.<br /> .参数 是否自动后缀, 逻辑型, 可空<br /> .局部变量 新图像, 字节集, , , 用于保存新图像的变量<br /> .局部变量 Clsid, 字节集<br /> .局部变量 pStr, 文本型<br /> .局部变量 Stream<br /> .局部变量 pStream, 整数型<br /> .局部变量 bitmap, 整数型<br /> .局部变量 DataStream<br /> .局部变量 hMemDataStream, 整数型<br /> .局部变量 pDataStream, 整数型<br /> .局部变量 nStreamSize, 整数型<br /> .局部变量 bRet, 逻辑型<br /> .局部变量 GpInput, GdiplusStartupInput<br /> .局部变量 局_Token, 整数型<br /> .局部变量 局_hBitMap, 整数型<br /> .局部变量 j_后缀, 文本型<br /> <br /> .如果真 (取字节集长度 (图像数据) ＜ 3)<br />     返回 (假)<br /> .如果真结束<br /> GpInput.GdiplusVersion ＝ 1<br /> GdiplusStartup (局_Token, GpInput, 0)  ' 启动GDI+<br /> 是否自动后缀 ＝ 选择 (是否为空 (是否自动后缀), 真, 是否自动后缀)<br /> .判断开始 (转换格式 ＝ 1)  ' bmp<br />     pStr ＝ “{557CF400-1A04-11D3-9A73-0000F81EF32E}”<br />     j_后缀 ＝ “.bmp”<br /> .判断 (转换格式 ＝ 2)  ' jpg<br />     pStr ＝ “{557CF401-1A04-11D3-9A73-0000F81EF32E}”<br />     j_后缀 ＝ “.jpg”<br /> .判断 (转换格式 ＝ 3)  ' gif<br />     pStr ＝ “{557CF402-1A04-11D3-9A73-0000F81EF32E}”<br />     j_后缀 ＝ “.gif”<br /> .判断 (转换格式 ＝ 4)  ' tiff<br />     pStr ＝ “{557CF405-1A04-11D3-9A73-0000F81EF32E}”<br />     j_后缀 ＝ “.tiff”<br /> .判断 (转换格式 ＝ 5)  ' png<br />     pStr ＝ “{557CF406-1A04-11D3-9A73-0000F81EF32E}”<br />     j_后缀 ＝ “.png”<br /> .默认<br /> <br /> .判断结束<br /> <br /> Clsid ＝ 文本到GUDI (pStr)<br /> 局_hBitMap ＝ 图片_取句柄 (图像数据, )<br /> <br /> GdipCreateBitmapFromHBITMAP (局_hBitMap, 0, bitmap)<br /> <br /> <br /> CreateStreamOnHGlobal (0, 1, DataStream)<br /> RtlMoveMemory_整数型2 (pStream, DataStream, 4)<br /> GdipSaveImageToStream (bitmap, pStream, Clsid, 0)<br /> GetHGlobalFromStream (pStream, hMemDataStream)<br /> <br /> pDataStream ＝ GlobalLock (hMemDataStream)<br /> nStreamSize ＝ GlobalSize (hMemDataStream)<br /> <br /> .如果真 (pDataStream ≠ 0)<br />     新图像 ＝ 取空白字节集 (nStreamSize)<br />     新图像 ＝ 指针到字节集 (pDataStream, nStreamSize)<br />     .如果真 (删首尾空 (保存路径) ≠ “”)<br />         .如果 (是否自动后缀)<br />             写到文件 (保存路径 ＋ j_后缀, 新图像)<br />         .否则<br />             写到文件 (保存路径, 新图像)<br />         .如果结束<br /> <br /> <br />     .如果真结束<br />     返回数据 ＝ 新图像<br />     bRet ＝ 真<br /> .如果真结束<br /> Release2 (Stream)  ' 释放<br /> Release2 (DataStream)<br /> GlobalUnlock (hMemDataStream)<br /> GlobalFree (hMemDataStream)<br /> GdipDisposeImage (bitmap)<br /> GdiplusShutdown (局_Token)  ' GDI关闭 +<br /> 返回 (bRet)

o流浪的风o

谢谢楼主！向楼主学习了！

sofs

你这是威胁论坛么.

luguijian

楼主好人，回帖感谢

scqandcy

这用户名好，直接～

2749839796

XIAOLUO

不错不错，收下了

吟de一首好湿

你这个名字就该封 封 封 封

2019516385

用户名有点那个。。         

大表舅

rnm精易 发表于 2016-8-2 17:00
那个好本就没有做什么

那就去申请解封