'从内存中打开图象
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就可用