vbscript实现在图片上增加文字

隐形人

想在QTP里用vbscript实现：
读取已有的图片，并在图片的特定位置上增加一段文字说明。最好有代码辅助说明。呵呵，谢谢啦~~~

fei.ge

图片上增加文字，有这功能吗？

关注下....

james.zhong

很好奇！

wenti

光靠VBS 好像不行

lantianwei

具体代码如下：

1. Function JPG_DrawEllipseAndString(filename,str,leftlen,toplen,rightlen,bottomlen)
   
2. '******************************
   
3. ' Description:   Add note to a picture at specific area
   
4. ' Precondition:  Install tool aspjpeg
   
5. ' Input:         filename---Picture path
   
6. '                str--------String to write
   
7. '                leftlen----left lenth to original point
   
8. '                toplen-----top lenth to original point
   
9. '                rightlen---right lenth to original point
   
10. '                bottomlen-bottom lenth to original point
    
11. ' Output:        None
    
12. ' Example:       JPG_DrawEllipseAndString("C:\org.jpg","LantianWei",100,200,500,400)
    
13. ' Tester:        LantianWei
    
14. ' Date:          Dec 23, 2007
    
15. '******************************
    
16.         Dim Jpeg,tmpleft,tmptop,tmpright,tmpbottom
    
17.         Set Jpeg=CreateObject("Persits.Jpeg")
    
18.         Jpeg.Open filename
    
19.         Jpeg.Canvas.Pen.Color=vbRed  
    
20.         Jpeg.Canvas.Pen.Width=2
    
21.         Jpeg.Canvas.Brush.Solid=False '是否加粗
    
22.         Jpeg.Canvas.Ellipse leftlen,toplen,rightlen,bottomlen '画椭圆
    
23.        
    
24.         If leftlen>Jpeg.OriginalWidth/2 Then
    
25.                 tmpleft=leftlen
    
26.                 tmptop=toplen+(bottomlen-toplen)/2
    
27.                 If toplen+(bottomlen-toplen)/2>Jpeg.OriginalHeight/2 Then
    
28.                         tmpright=leftlen-100
    
29.                         tmpbottom=toplen+(bottomlen-toplen)/2-100
    
30.                 Else
    
31.                         tmpright=leftlen-100
    
32.                         tmpbottom=toplen+(bottomlen-toplen)/2+100
    
33.                 End If
    
34.         Else
    
35.                 tmpleft=rightlen
    
36.                 tmptop=toplen+(bottomlen-toplen)/2
    
37.                 If toplen+(bottomlen-toplen)/2>Jpeg.OriginalHeight/2 Then
    
38.                         tmpright=rightlen+100
    
39.                         tmpbottom=toplen+(bottomlen-toplen)/2-100
    
40.                 Else
    
41.                         tmpright=rightlen+100
    
42.                         tmpbottom=toplen+(bottomlen-toplen)/2+100
    
43.                 End If
    
44.         End If
    
45.   
    
46.         Jpeg.Canvas.DrawLine tmpleft,tmptop,tmpright,tmpbottom
    
47.         Jpeg.Canvas.Font.Color=vbRed   '红颜色
    
48.         Jpeg.Canvas.Font.Bold=True '是否加粗
    
49.         Jpeg.Canvas.Print tmpright,tmpbottom,str
    
50.         Jpeg.Canvas.DrawBar 0,0,Jpeg.OriginalWidth,Jpeg.OriginalHeight
    
51.         Jpeg.Save filename
    
52.         Jpeg.Close
    
53.         Set Jpeg=Nothing
    
54. End Function

复制代码

在此应该感谢一位朋友，kernzhang，原创是他，曾经他做了个框架方面的视频，而上面有一小部分代码在视频上出现了，再感谢另外一位朋友，是他很有心，硬是把那小段代码从视频上抄下来的。而我做的只是进行了修补，完善，呵呵。。。以上代码还是有不足的地方，有心的朋友可以进行完善，然后再分享给大家。

[ 本帖最后由 lantianwei 于 2009-7-20 12:45 编辑 ]

ls_721521

谢谢分享

fei.ge

我在调试过程中：无法创建Persits.Jpeg对象。。。

运行脚本需要什么条件..（ASPJPEG组件？）

[ 本帖最后由 fei.ge 于 2009-7-9 00:15 编辑 ]

dreamever

此人不是一般的强，属于禽兽级别的。

lantianwei

' Precondition:  Install tool aspjpeg
函数有前置条件的，需要先安装第三方软件ASPJPEG

lantianwei

要形容，词也用好听点的阿！

南拳王

呵呵，这个真的很强大！！！

fei.ge

装了aspjpeg组件试了下，很强大……

liujinkui

Function JPG_DrawEllipseAndString(filename,str,leftlen,toplen,rightlen,bottomlen)
End Function

执行语句：
JPG_DrawEllipseAndString("C:\org.jpg","LantianWei",100,200,500,400)
结果出错：
              Run Error
                        The test run cannot continue due to a syntax error.
                         调用过程(sub)时不能使用括号
              details<<
                Line (56): "JPG_DrawEllipseAndString      ("C:\org.jpg","LantianWei",100,200,500,400)".

执行语句：
JPG_DrawEllipseAndString "C:\org.jpg","LantianWei",100,200,500,400
去掉括号可运行

调用函数什么时间可以加括号，什么时间不加括号? 跟参数有关吗？

lantianwei

1. CALL JPG_DrawEllipseAndString("C:\org.jpg","LantianWei",100,200,500,400)

2.JPG_DrawEllipseAndString "C:\org.jpg","LantianWei",100,200,500,400

liujinkui

ASPJPEG 简介
http://baike.baidu.com/view/514985.htm

liujinkui

原帖由 lantianwei 于 2009-7-9 11:49 发表
1. CALL JPG_DrawEllipseAndString("C:\org.jpg","LantianWei",100,200,500,400)

2.JPG_DrawEllipseAndString "C:\org.jpg","LantianWei",100,200,500,400

但是：
   function 定义的,而非sub

隐形人

不错，调试可以通过。提个新需求，不知道可不可以针对JPEG图片是的一个特定的对象写文字呢，比如说对JEPG上的一个图片作说明。呵呵

lantianwei

在调用的时候 动态获得你要标识的对象的坐标就可以了 然后传进该函数

dreamsea123

关注！调试一下！

rayblue

学习