有什么办法能减少qtp截图(bmp)的大小

bluestone

用Desktop.CaptureBitmap截的图是bmp格式的， 一张都是2-3M，非常占空间
有什么解决办法？比如如何在qtp中用代码将bmp转成jpg 或者 其他办法？
3X。。。

milo.jiang

可以用QTP调用windows自带的画图工具转换文件格式，你可以把这个写成一个公用函数进行调用

milo.jiang

以下是对楼主问题的一个实例解答，其中函数中间的部分是通过QTP录制的，楼主可以尝试一下
附：这个函数没有考虑意外情况，如保存时图片已经存在或者打开图片时不存在等问题，楼主可以根据实际情况自行完善

' **********************************************************************
' 函数说明：BmpToJpg
' 参数说明：(1) strSourceFile: 源目标文件（如"F:\test.bmp"）
'                           (2) strDestFile: 目标文件 (如"F:\test.jpg")
' 返回结果：无
' 调用方法: BmpToJpg(strSourceFile, strDestFile)
' **********************************************************************
Sub BmpToJpg(strSourceFile, strDestFile)
        SystemUtil.Run "mspaint"
        Window("画图").WinMenu("Menu").Select "文件(F);打开(O)...        Ctrl+O"
        Window("画图").Dialog("打开").WinEdit("文件名(N):").Set strSourceFile
        Window("画图").Dialog("打开").WinButton("打开(O)").Click
        Window("画图").WinMenu("Menu").Select "文件(F);另存为(A)..."
        Window("画图").Dialog("保存为").WinEdit("文件名(N):").Set strDestFile
        Window("画图").Dialog("保存为").WinButton("保存(S)").Click
        Window("画图").Close
End Sub

BmpToJpg "F:\test.bmp", "F:\test.jpg"

wuei9090

直接保存为png格式也是qtp识别的
可以使大小 小一些

bluestone

谢谢大家的回复
有没有利用vbs在后台完成的方法呢？
就是用户看不到qtp显式调用paint来转换图片格式。

milo.jiang

VBS肯定有接口调用mspaint，但是我不知道需要创建什么对象去调用，希望知道朋友可以告知一下

zbyufeifei

原帖由 wuei9090 于 2008-6-20 10:03 发表
直接保存为png格式也是qtp识别的
可以使大小 小一些

同意~

milo.jiang

'可以通过WSH实现你的要求，将以下代码保存为vbs文件

' **********************************************************************
' 函数说明：BmpToJpg
' 参数说明：(1) strSourceFile: 源目标文件（如"F:\test.bmp"）
'          (2) strDestFile: 目标文件 (如"F:\test.jpg")
' 返回结果：无
' 调用方法: BmpToJpg(strSourceFile, strDestFile)
' **********************************************************************
Sub BmpToJpg(strSourceFile, strDestFile)
        Dim objobjWshShell
       
        set objWshShell = WScript.CreateObject("WScript.Shell")
        objWshShell.Run "C:\WINDOWS\system32\mspaint.exe" '打开画图程序
        WScript.Sleep 1000 '延迟1秒
        objWshShell.AppActivate "paint" '激活应用程序窗口
        WScript.Sleep 1000
        objWshShell.Sendkeys "^o" '按下Ctrl和O，表示弹出打开对话框
        WScript.Sleep 1000
        objWshShell.SendKeys strSourceFile
        WScript.Sleep 1000
        objWshShell.SendKeys "~" '回车键
        WScript.Sleep 1000
        objWshShell.SendKeys "%fa" '按下Alt+F，再按下A，表示选择“文件”菜单下的“另存为”
        WScript.Sleep 1000
        objWshShell.SendKeys strDestFile '输入另存文件名
        WScript.Sleep 1000        
        objWshShell.SendKeys "~" '回车键
        WScript.Sleep 1000                
        objWshShell.SendKeys "%fx"                '退出画图程序
End Sub

       
BmpToJpg "f:\test.bmp", "f:\test1.jpg"