用AU3调用DLL为图片加水印
先给张效果图：
示例代码： #include "PhotoCom.au3"
_Photo_Watermark("7.jpg","楷体_Photo_GB2312",40,0xff4500,True,4,0xdcdcdc,4,-2,True,100,50,"我是靓女我怕谁?","水印.jpg") $txt="谈论哪里出产靓女，大概是全中国的男人都十分热衷于介入的话题。有人把重庆美女视作“城市名片”，而且是“首张名片”，大声叫响。有人表示，提起杭州西湖就令人联想到美女，故此最美丽的爱情故事最适合在杭州上演。亦有人在网上排列“美女产地榜”，成都、大连、南昌……美女如云，天生丽质，就是轮不上广东诸城市。" _Photo_PrintTextEx("7.jpg","Font.ttf" ,15,0xffffff,200,0,2,0.8,200,50,$txt,"水印2.jpg") _Photo_Thumbs("7.jpg",300,150,"缩略图.jpg") _Photo_Merger("7.jpg","缩略图.jpg",100,100,0.6,"合并.jpg") _Photo_Merger("7.jpg","8",100,200,0.6,"PNG合并.jpg") _Photo_Cutting("7.jpg",0,0,180,180,"切割.jpg") _Photo_Frame("7.jpg",0xFF83FA,10,2,2,"边框.jpg") _Photo_Safety(100,25,0xffffff,"宋体",20,0xFF0000,1,1,1,9,"安全码.jpg") _Photo_Sharpen("7.jpg",1,250,"锐利.jpg") ;;注意值,太大会占用CPU _Photo_Grayscale("7.jpg",2,"灰度.jpg") _Photo_ColorSet("7.jpg",0.01,2,0.01,"亮度.对比.饱和.jpg") _Photo_Sepia("7.jpg",50,1.4,"色彩.jpg") _Photo_DrawBar("7.jpg",0xFFFFFF,2,50,50,100,100,"画框.jpg") _Photo_Ellipse("7.jpg",0xFFFFFF,5,0,0xFFFFF0,50,50,100,100,"画圆.jpg") _Photo_Line("7.jpg",0xFFFFFF,2,30,30,300,30,"画线.jpg") _Photo_Flip("7.jpg",1,"上下翻转.jpg") _Photo_Flip("7.jpg",0,"左右翻转.jpg") _Photo_Rotate("7.jpg",1,"左旋转90度.jpg") _Photo_Rotate("7.jpg",0,"右旋转90度.jpg") _Photo_ReplaceColor("7.jpg",0x000000,0xDD081C,"替换颜色.jpg") $test=_Photo_Info("7.jpg") MsgBox (0,"","图片格式:" & $test[0] & @CRLF & "图片宽度:" & $test[1] & @CRLF & "图片高度:" & $test[2]) $Jpeg=_Photo_OpenCalss("7.jpg") $Txt = "Autoit论坛是我家人人都来爱护她论坛是我家人人都来爱护她论坛是我家人人都来爱护她论坛是我家人人都来爱护她论坛是我家人人都来爱护她论坛是我家人人都来爱护她论坛是我家人人都来爱护" With $Jpeg $FontPath="Font.ttf" .Canvas.Font.Size = 30 .Canvas.Font.Color = 0xf0f00f $Angle = -90 ;;;开始位置 For $i = 1 To StringLen($Txt)/2 Step 2 $x = 280 * cos( $Angle * 3.14 / 180 ) + .Width / 2 ;x $y = 280 * sin( $Angle * 3.14 / 180 ) + .Height / 2 ;y .Canvas.Font.Rotation = 270 - $Angle ;;字体斜度值 $w = .Canvas.PrintTextEx(StringMid($txt, $i, 2), $x, $y, $FontPath) $Angle = $Angle + $w / 3.85 Next .Save ("test.jpg") EndWith MsgBox (0,"","AspJpeg版本:"&$Jpeg.Version&@CRLF&"过期时间:"&$Jpeg.expires) $Jpeg.Close Exit |
<< 在AU3里用多进程模拟多线程Smtp邮件发送 >>
查看所有评论
All Right Reserved