有关截图图片转换为PNG的方法

API_Studier · 发表于 2011-6-19 14:42:59

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有帐号？注册会员

x

本帖最后由 fux2 于 2011-6-19 18:38 编辑

本人想把GetBitmapBits得到的BMP格式转化为PNG，可是得到的是BGRA通道，而PNG中是RGBA，所以直接得到的图像很难看（红蓝通道相反），但是如果每个BGRA数组翻转成RGBA时间又太长，如下代码需要约20秒才能生成一个PNG文件，请高人相助！

class << Graphics
CreateCompatibleBitmap = Win32API.new("gdi32", "CreateCompatibleBitmap", "lll", "l")
CreateCompatibleDC = Win32API.new("gdi32", "CreateCompatibleDC", "l", "l")
SelectObject = Win32API.new("gdi32", "SelectObject", "ll", "l")
BitBlt = Win32API.new("gdi32", "BitBlt", "lllllllll", "l")
GetBitmapBits = Win32API.new("gdi32", "GetBitmapBits", "llp", "l")
ScreenToClient = Win32API.new("user32", "ScreenToClient", "ip", "i")
DeleteDC = Win32API.new("gdi32", "DeleteDC", "l", "l")
DeleteObject = Win32API.new("gdi32", "DeleteObject", "l", "l")
CrFnt = Win32API.new("gdi32","CreateFont","l"*13+"p","l")
SRCCOPY = 0xCC0020
DwCount = (640 * 480 * 4) * 2
@@lpBits = "\000" * DwCount
def bitmap_data(times)
hScrDC = $hDC
hMemDC = CreateCompatibleDC.call(hScrDC)
hBitmap = CreateCompatibleBitmap.call(hScrDC, 640, 480)
SelectObject.call(hMemDC, hBitmap)
BitBlt.call(hMemDC, 0, 0, 640*2, 480*2, hScrDC, 0, 0, SRCCOPY)
rect = [0,0,300,100].pack("llll")
hfont = CrFnt.call(20,10,50,0,1500,1,0,0,0,0,0,0,0,"Lucida Sans")
Win32API.new("gdi32","SetBkColor","ll","l").call(hMemDC,255)
Win32API.new("gdi32","SetTextColor","ll","l").call(hMemDC,16777215)
SelectObject.call(hMemDC,hfont)
Win32API.new("user32","DrawText","lplpl","l").call(hMemDC,"2012 Doomsday Replay #{times}:",-1,rect,0x37)
GetBitmapBits.call(hBitmap, DwCount, @@lpBits)
DeleteDC.call(hScrDC)
DeleteDC.call(hMemDC)
DeleteObject.call(hBitmap)
DeleteObject.call(hfont)
for i in 1..307200
if i%100000 == 0 then Graphics.update end
@@lpBits[4*i-4,3]=@@lpBits[4*i-4,3].reverse # 翻转红蓝通道,这个时间有点长，求高手帮忙！
#RGBA #BGRA
@@lpBits[4*i-1]=255
end
return @@lpBits
end
end
class Png_File
#--------------------------------------------------------------------------
# ● 主处理
#--------------------------------------------------------------------------
def initialize(times)
@times=times
f = File.open("Graphics/Pictures/Replay#{@times}.png","wb")#Zlib::GzipWriter.open("Graphics/Pictures/Replay#{times}.png")
f.write(make_header)
f.write(make_ihdr)
f.write(make_idat)
f.write(make_iend)
f.close
end
#--------------------------------------------------------------------------
# ● PNG文件头数据块
#--------------------------------------------------------------------------
def make_header
return [0x89,0x50,0x4e,0x47,0x0d,0x0a,0x1a,0x0a].pack("C*")
end
#--------------------------------------------------------------------------
# ● PNG文件情报头数据块(IHDR)
#--------------------------------------------------------------------------
def make_ihdr
ih_size = [13].pack("N")
ih_sign = "IHDR"
ih_width = [640].pack("N")
ih_height = [480].pack("N")
ih_bit_depth = [8].pack("C")
ih_color_type = [6].pack("C")
ih_compression_method = [0].pack("C")
ih_filter_method = [0].pack("C")
ih_interlace_method = [0].pack("C")
string = ih_sign + ih_width + ih_height + ih_bit_depth + ih_color_type +
ih_compression_method + ih_filter_method + ih_interlace_method
ih_crc = [Zlib.crc32(string)].pack("N")
return ih_size + string + ih_crc
end
#--------------------------------------------------------------------------
# ● 生成图像数据(IDAT)
#--------------------------------------------------------------------------
def make_idat
header = "\x49\x44\x41\x54"
data = make_bitmap_data
data = Zlib::Deflate.deflate(data, 8)
crc = [Zlib.crc32(header + data)].pack("N")
size = [data.length].pack("N")
return size + header + data + crc
end
#--------------------------------------------------------------------------
# ● 从Bitmap对象中生成图像数据 mode 0
#--------------------------------------------------------------------------
def make_bitmap_data
data1=Graphics.bitmap_data(@times)
data=""
for i in 0...480
data+=[0].pack("C")
data+=data1[640*4*i,640*4]
end
return data
end
#--------------------------------------------------------------------------
# ● PNG文件尾数据块(IEND)
#--------------------------------------------------------------------------
def make_iend
ie_size = [0].pack("N")
ie_sign = "IEND"
ie_crc = [Zlib.crc32(ie_sign)].pack("N")
return ie_size + ie_sign + ie_crc
end
module RM_ASM
def self.findWindow(hwnd1 = 0,file = "./Game.ini")
Win32API.new("user32","FindWindowEx","llpp","l").call(0,hwnd1,"RGSS Player",readIni(file))
end
def self.readIni(file)
buf = 0.chr * 256
gpps = Win32API.new("kernel32","GetPrivateProfileString","pppplp","l")
gpps.call("Game","Title","",buf,256,file)
buf.delete!("\0")
return buf
end
$hWnd = Win32API.new("user32","GetActiveWindow","","l").call
hwnd2 = findWindow
if hwnd2 == $hWnd
hwnd2 = findWindow(hwnd2)
if hwnd2 != 0
Win32API.new("user32","SetForegroundWindow","l","l").call(hwnd2)
exit(2)
end
else
Win32API.new("user32","SetForegroundWindow","l","l").call(hwnd2)
exit(2)
end
$hDC = Win32API.new("user32","GetDC","l","l").call($hWnd)
module_function
def printscreen(times)
$PNG = Png_File.new(times)
print "Replay 已保存至 Replay#{times}.png"
end
end

复制代码

dsu_plus_rewardpost_czw

flzt5354 · 发表于 2011-6-19 22:26:44

是吗。用C++不过是眨眼之间的事情罢了。你是调用WINAPI。。效率怎么会这么慢呢

这样还不如自己直接用C重新写个处理的程序

fux2 · 发表于 2011-6-20 11:40:39

本帖最后由 fux2 于 2011-6-20 11:43 编辑

算法之类的不太熟悉，记得以前传子姬发过轮回大人写的这玩意，一搜果然搜索到了，
http://rpg.blue/forum.php?mod=vi ... ertype=1&page=1
不过想问一下20秒才生成png不会10秒备份吗？

API_Studier · 发表于 2011-6-20 18:40:51

本帖最后由 API_Studier 于 2011-6-20 18:42 编辑

总共要处理307200（640*480）个点，看这一句：if i%100000 == 0 then Graphics.update end
每100000个点会更新一下。不过感谢你的回复（汗……轮回者的这篇没搜到）

乌有君 *发表于 2011-6-21 16:31:48* · 发表于 2011-6-21 16:31:48

本帖最后由匿名于 2011-6-21 16:33 编辑

傻瓜化处理方案：

下一个石器，拖走SAPNG.DLL 然后里面据说就一个导出函数（不保证未来- -），传RM的BITMAP地址进去。然后就输出一张PNG。
当然，直接找官方的PNG的库和ZIP的库自己做个DLL也差不多囧

苏小脉 · 发表于 2011-6-23 12:30:51

本帖最后由苏小脉于 2011-6-23 12:34 编辑

先玩个魔术——在你调用你的子例程前，加上一行：

$VERBOSE = nil

复制代码

再看看执行效率如何？

尽管很不明显，但主楼代码的 I/O 瓶颈要大于 CPU 瓶颈。

问题的根源在于类变量 @@lpBits 的访问处于单例上下文中。在 Ruby 中，单例上下文中定义的类变量最终属于顶层，而不是按常理推想的属于单例类（这多少有些违背最小惊讶原则），也就是这里的 @@lpBits 并不属于 `class << Graphics; end'。然而，从某一个 Ruby 版本开始，在单例环境中使用类变量就被废弃了（包括 RM 使用的 Ruby 1.8.1）。虽然为了后向兼容性，在单例上下文中仍然可以使用类变量，但强行这么做将会使 Ruby 抛出一个警告，输出到标准错误流（$stderr）。

class << self
@@foo = 1
p @@foo
end

复制代码

这段代码输出：

2: warning: class variable access from toplevel
3: warning: class variable access from toplevel

可见不论是读还是写，一旦在单例环境中访问了类变量，Ruby 都会输出这个警告。从语法上的 `class << Graphics' 开始就进入了 Graphics.class 的单例上下文，而

@@lpBits = "\000" * DwCount

复制代码

这一行决定了 @@lpBits 的归属，那就是顶层。之后在 Graphics.class 的单例方法 bitmap_data 中每访问一次 @@lpBits，都会输出一次警告。由于在 for 循环内部有对 @@lpBits 的访问，bitmap_data 就包含了线性时间的 I/O 操作，这就是这段代码主要的瓶颈。RM 程序的标准错误流是没有回显的，所以在 RM 中 Ruby 的警告信息默认是不可见的，也就会产生“这段代码遇到了 CPU 瓶颈”的假象。

把 $VERBOSE 设为 nil，其实就是在运行时告诉解释器不抛出任何警告，自然也就避免了循环内部的对用户透明的 I/O 操作。

但是通过 `$VERBOSE = nil' 来解决这个问题毕竟并非正途，最好的办法自然是从根本杜绝警告的产生。只要 @@lpBits 属于某个类而不是顶层，就不会有这个问题了：

module Graphics
@@lpBits = ...
class << self
...
# 访问 @@lpBits
...
end
end

复制代码

除此之外，还有一些相对来说比重更小的优化可以做：

1、
@@lpBits[4*i-4,3] 调用的是 String#[] 方法，@@lpBits[4*i-4,3].reverse 调用的是 String#reverse，两者都是非变异性方法。前者如果传递两个整型参数，返回的就是接收者的子字符串对象；而后者返回的也是字符串对象。两者返回的这些临时对象对垃圾回收工作产生了不必要的压力。这里如果仅仅是把 BGRA 转为 RGBA，那（用破坏性方法）互换 B 和 R 的位置就行了。而且，@@lpBits 是很大的一块连续内存，对其进行原地操作可以更有效地利用 Cache 的访问局部性。动态分配、回收、再分配、再回收的过程迭代进行，访问局部性就大大地降低了，这也必然导致更多的 Cache miss。

3、
4*i-4 有一次冗余计算，4*i 有两次， @@lpBits[4*i-4,3] 有一次。RM 嵌入的 Ruby 1.8 是纯粹的抽象语法树求值器，所以不能指望 Ruby 代码在解释前有任何程度的优化，哪怕只是针对冗余而进行的代码 Caching 和分解。1.9 有预编译，相对好一点。

for i in 0...307200
a = i * 4
b = a + 2
tmp = @@lpBits[a]
@@lpBits[a] = @@lpBits[b]
@@lpBits[b] = tmp
@@lpBits[b + 1] = 255
end

复制代码

这样会好一些。在 Ruby 1.8 中，如果只传递一个整数给 String#[]，那它返回的就是表示了一个字节的 Fixnum，而 Fixnum 是直接值，这就避免了分配、回收临时对象的开销。Ruby 1.9 里 String#[] 永远返回 String 对象，所以需要用 String#setbyte 和 String#getbyte。

API_Studier · 发表于 2011-7-2 09:05:31

本帖最后由 API_Studier 于 2011-7-2 16:38 编辑

谢谢苏小脉的回答！（最近有些忙，未能及时查看回复，见谅）

API_Studier于2011-7-2 16:31补充以下内容：
刚刚试了下，整个速度快了约15秒，十分感谢！

API_Studier于2011-7-2 16:35补充以下内容：

module RM_ASM
def self.findWindow(hwnd1 = 0,file = "./Game.ini")
Win32API.new("user32","FindWindowEx","llpp","l").call(0,hwnd1,"RGSS Player",readIni(file))
end
def self.readIni(file)
buf = 0.chr * 256
gpps = Win32API.new("kernel32","GetPrivateProfileString","pppplp","l")
gpps.call("Game","Title","",buf,256,file)
buf.delete!("\0")
return buf
end
Win32API.new("kernel32","CopyFile","ppl","l").call("Movie.exe","Save/Movie-Copy.exe",0) # 备份Movie.exe
$hWnd = Win32API.new("user32","GetActiveWindow","","l").call
hwnd2 = findWindow
if hwnd2 == $hWnd
hwnd2 = findWindow(hwnd2)
if hwnd2 != 0
Win32API.new("user32","SetForegroundWindow","l","l").call(hwnd2)
exit(2)
end
else
Win32API.new("user32","SetForegroundWindow","l","l").call(hwnd2)
exit(2)
end
$hDC = Win32API.new("user32","GetDC","l","l").call($hWnd)
module_function
def printscreen(times)
Png_File.new(times)
print "Replay 已保存至 Replay#{times}.png"
end
end
unless FileTest.exist?('Data/UR.rxdata')
file = Zlib::GzipWriter.open('Data/UR.rxdata',9)
@string = 'Unknowrank_is_false'
Marshal.dump(@string,file)
file.close
end
print "本游戏有关影片为《2012世界末日》，与最近播出的《2012》无关系，不清楚的请补好功课！"
module Graphics
DwCount = (640 * 480 * 4) * 2
@@lpBits = "\000" * DwCount
class << self
CreateCompatibleBitmap = Win32API.new("gdi32", "CreateCompatibleBitmap", "lll", "l")
CreateCompatibleDC = Win32API.new("gdi32", "CreateCompatibleDC", "l", "l")
SelectObject = Win32API.new("gdi32", "SelectObject", "ll", "l")
BitBlt = Win32API.new("gdi32", "BitBlt", "lllllllll", "l")
GetBitmapBits = Win32API.new("gdi32", "GetBitmapBits", "llp", "l")
ScreenToClient = Win32API.new("user32", "ScreenToClient", "ip", "i")
DeleteDC = Win32API.new("gdi32", "DeleteDC", "l", "l")
DeleteObject = Win32API.new("gdi32", "DeleteObject", "l", "l")
CrFnt = Win32API.new("gdi32","CreateFont","l"*13+"p","l")
SRCCOPY = 0xCC0020
def bitmap_data(times)
hScrDC = $hDC
hMemDC = CreateCompatibleDC.call(hScrDC)
hBitmap = CreateCompatibleBitmap.call(hScrDC, 640, 480)
SelectObject.call(hMemDC, hBitmap)
BitBlt.call(hMemDC, 0, 0, 640*2, 480*2, hScrDC, 0, 0, SRCCOPY)
rect = [0,0,300,100].pack("llll")
hfont = CrFnt.call(20,10,50,0,1500,1,0,0,0,0,0,0,0,"Lucida Sans")
Win32API.new("gdi32","SetBkColor","ll","l").call(hMemDC,255)
Win32API.new("gdi32","SetTextColor","ll","l").call(hMemDC,16777215)
SelectObject.call(hMemDC,hfont)
Win32API.new("user32","DrawText","lplpl","l").call(hMemDC,"2012 Doomsday Replay #{times}:",-1,rect,0x37)
GetBitmapBits.call(hBitmap, DwCount, @@lpBits)
DeleteDC.call(hScrDC)
DeleteDC.call(hMemDC)
DeleteObject.call(hBitmap)
DeleteObject.call(hfont)
for i in 1..307200
a = i * 4
b = a + 2
tmp = @@lpBits[a]
@@lpBits[a] = @@lpBits[b]
@@lpBits[b] = tmp
@@lpBits[b + 1] = 255
end
return @@lpBits
end
end
end
class Png_File
#--------------------------------------------------------------------------
# ● 主处理
#--------------------------------------------------------------------------
def initialize(times)
@times=times
f = File.open("Graphics/Pictures/Replay#{@times}.png","wb")#Zlib::GzipWriter.open("Graphics/Pictures/Replay#{times}.png")
f.write(make_header)
f.write(make_ihdr)
f.write(make_idat)
f.write(make_iend)
f.close
end
#--------------------------------------------------------------------------
# ● PNG文件头数据块
#--------------------------------------------------------------------------
def make_header
return [0x89,0x50,0x4e,0x47,0x0d,0x0a,0x1a,0x0a].pack("C*")
end
#--------------------------------------------------------------------------
# ● PNG文件情报头数据块(IHDR)
#--------------------------------------------------------------------------
def make_ihdr
ih_size = [13].pack("N")
ih_sign = "IHDR"
ih_width = [640].pack("N")
ih_height = [480].pack("N")
ih_bit_depth = [8].pack("C")
ih_color_type = [6].pack("C")
ih_compression_method = [0].pack("C")
ih_filter_method = [0].pack("C")
ih_interlace_method = [0].pack("C")
string = ih_sign + ih_width + ih_height + ih_bit_depth + ih_color_type +
ih_compression_method + ih_filter_method + ih_interlace_method
ih_crc = [Zlib.crc32(string)].pack("N")
return ih_size + string + ih_crc
end
#--------------------------------------------------------------------------
# ● 生成图像数据(IDAT)
#--------------------------------------------------------------------------
def make_idat
header = "\x49\x44\x41\x54"
data = make_bitmap_data
data = Zlib::Deflate.deflate(data, 8)
crc = [Zlib.crc32(header + data)].pack("N")
size = [data.length].pack("N")
return size + header + data + crc
end
#--------------------------------------------------------------------------
# ● 从Bitmap对象中生成图像数据 mode 0
#--------------------------------------------------------------------------
def make_bitmap_data
data1=Graphics.bitmap_data(@times)
data=""
for i in 0...480
data+=[0].pack("C")
data+=data1[640*4*i,640*4]
end
return data
end
#--------------------------------------------------------------------------
# ● PNG文件尾数据块(IEND)
#--------------------------------------------------------------------------
def make_iend
ie_size = [0].pack("N")
ie_sign = "IEND"
ie_crc = [Zlib.crc32(ie_sign)].pack("N")
return ie_size + ie_sign + ie_crc
end
end
module RM_ASM
$hWnd = Win32API.new("user32","GetActiveWindow","","l").call
$hDC = Win32API.new("user32","GetDC","l","l").call($hWnd)
module_function
def printscreen(times)
Png_File.new(times)
print "Replay 已保存至 Replay#{times}.png"
end
end

复制代码

使用时可以:RM_ASM.printscreen(times)，保存为png格式，从此再也无需动态链接库了！

帐号		自动登录	找回密码
密码			注册会员

[已经过期] 有关截图图片转换为PNG的方法

加入我们，或者，欢迎回来。

点评

点评

评分

开拓者

贵宾