canvas教程

AspJpeg2.0组件教程完整版 aspjpeg教程(4)

字号+ 作者:H5之家 来源:H5之家 2015-10-22 15:39 我要评论( )

'从内存中打开图象 Opening Images from Memory % ' Using ADO, open database with an image blob strConnect = DRIVER={Microsoft Access Driver (*.mdb)};DBQ= quot;../db/aspjpeg.mdb) Set rs = Server.CreateO

'从内存中打开图象
Opening Images from Memory
<% ' Using ADO, open database with an image blob
strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/aspjpeg.mdb")
Set rs = Server.CreateObject("adodb.recordset")
SQL = "select image_blob from images2 where id = " & Request("id")
rs.Open SQL, strConnect, 1, 3
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Open image directly from recordset
Jpeg.OpenBinary rs("image_blob").Value
' Resize
jpeg.Width = Request("Width")
' Set new height, preserve original aspect ratio
jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth
Jpeg.SendBinary
rs.Close
%>

'输出到内存
<%
...
Set rs = Server.CreateObject("adodb.recordset")
rs.Open "images", strConnect, 1, 3
rs.AddNew
rs("image_blob").Value = Jpeg.Binary
rs.Update
...
%>

13、AspJpeg组件创建GIF动画?
view plaincopy to clipboardprint?

1. <%  
2. Set Jpeg = Server.CreateObject("Persits.Jpeg")  
3. Set Gif = Jpeg.Gif ' Obtain GIF management object  
4.  
5. MarketShare = 6 ' initial market share of hypothetical XYZ company  
6. ' create a 5-frame animated gif  
7. For i = 1 to 5  
8.     Gif.AddFrame 300, 200, 0, 0  
9.  
10.     Gif.PenColor = 10  
11.     Gif.BrushColor = 10  
12.     Gif.DrawBar 0, 0, 300, 200  
13.  
14.     Gif.PenColor = 201  
15.     Gif.FontFamily = "Courier" 
16.     Gif.PrintText 18, 15, "XYZ, Inc. Market Share" 
17.     Gif.PrintText 120, 50, 2002 + i  
18.       
19.     ' Draw pie chart  
20.     Gif.PenColor = 0  
21.     Gif.BrushColor = 30  
22.     Gif.DrawPie 150, 130, 50, 0, MarketShare * 360 / 100  
23.     Gif.BrushColor = 20  
24.     Gif.DrawPie 150, 130, 50, MarketShare * 360 / 100, 360  
25.  
26.     Gif.PenColor = 210  
27.     Gif.PrintText 200, 100, MarketShare & "%" 
28.     MarketShare = MarketShare * 2 - 3 ' market share almost doubles every year!  
29.     ' increase delay on the last frame  
30.     if i = 5 then Gif.Delay = 300 ' 3 sec  
31. Next 
32. ' Save  
33. Gif.Save Server.MapPath("chart.gif")  
34. %>  
35. <IMG SRC="chart.gif">



更多关于 aspjpeg 的文章

·上一篇:wordpress安全设置文章
·下一篇:发款php蜘蛛统计插件只要有mysql就可用

 

1.本站遵循行业规范,任何转载的稿件都会明确标注作者和来源;2.本站的原创文章,请转载时务必注明文章作者和来源,不尊重原创的行为我们将追究责任;3.作者投稿可能会经我们编辑修改或补充。

相关文章
  • fd详细教程|Excel_VBA_详细教程

    fd详细教程|Excel_VBA_详细教程

    2017-05-02 18:01

  • SketchBook 2014 基础入门视频教程

    SketchBook 2014 基础入门视频教程

    2017-05-01 11:00

  • HTML样式CSS

    HTML样式CSS

    2017-05-01 10:03

  • HTML5 Canvas 绘图实例教程

    HTML5 Canvas 绘图实例教程

    2017-04-28 13:09

网友点评
4