1. 论坛系统升级为Xenforo,欢迎大家测试!
    排除公告

求教aspjpge的实现方法

本帖由 著名混混2006-06-27 发布。版面名称:后端开发

  1. 著名混混

    著名混混 New Member

    注册:
    2006-03-22
    帖子:
    292
    赞:
    1
    代码:
    <%
    Dim Jpeg 
    Set Jpeg = Server.CreateObject("Persits.Jpeg") 
    Jpeg.Open Server.MapPath("aa.jpg") 
    Jpeg.Canvas.Font.Color = &HFF0000 
    Jpeg.Canvas.Font.Family = "宋体" 
    Jpeg.Canvas.Font.size = 12 
    Jpeg.Canvas.Font.Bold = False 
    Jpeg.Canvas.Print Jpeg.OriginalWidth-10 ,Jpeg.OriginalWidth-10, "aa.net" 
    Jpeg.Save Server.MapPath("dodge_viper_framed4.jpg")
    Set Jpeg = Nothing 
    %>
    红色的一段,以前的写法是

    Jpeg.Canvas.Print 10 ,10, "aa.net"

    这样的话图片就只能在左上角,现在我想在右下脚显示,上面的写法不行吗?请教
     
  2. 不学无术

    不学无术 Ulysses 的元神

    注册:
    2005-08-31
    帖子:
    16,714
    赞:
    39
    Jpeg.OriginalWidth ,原图片宽度,Jpeg.OriginalHeight 得到原图片高度,这两个确定的就是图片右下角的位置。然后分别减去水印图片/文字区域的宽度和高度,得到的就是水印图片/文字区域相对于原图片上的位置。

    你可以参阅组件参考手册来了解不同属性的含义。

    你的另一篇帖子中我的回复给出了一个链接,不知道你看了没有。

    那里面针对四个角的水印,都有设置。你可以好好参考一下。
     
  3. 著名混混

    著名混混 New Member

    注册:
    2006-03-22
    帖子:
    292
    赞:
    1
    不学老大,我的远远没有你给我的那个例子那么难

    我就是想知道,为什么我用红色的字写的东西执行不对呢?

    如果我把红色的部分换成 Jpeg.Canvas.Print 10 ,10, "aa.net"

    那么就可以在左上角显示水印

    但是我换成红字部分确并没有在右下脚显示水印,请教
     
  4. 不学无术

    不学无术 Ulysses 的元神

    注册:
    2005-08-31
    帖子:
    16,714
    赞:
    39
    不知道你是否尝试将那个数字 10 修改为一个相对较大的数字看看。10 个像素,似乎小了点。
     
  5. 著名混混

    著名混混 New Member

    注册:
    2006-03-22
    帖子:
    292
    赞:
    1
    好了,刚才我拼写错误,唉

    谢谢不学老大:lovely:
     
  6. 不学无术

    不学无术 Ulysses 的元神

    注册:
    2005-08-31
    帖子:
    16,714
    赞:
    39
    是因为两次都使用了 Weight 值?
     
  7. 著名混混

    著名混混 New Member

    注册:
    2006-03-22
    帖子:
    292
    赞:
    1
    是地:confused:
     
  8. 不学无术

    不学无术 Ulysses 的元神

    注册:
    2005-08-31
    帖子:
    16,714
    赞:
    39
    晕,是 Width ,不是 Weight 。

    :D