Rank: Member
Groups: Member
Joined: 8/19/2006(UTC) Posts: 7
|
For example, there are 3 jpg files, 3.jpg, 4.jpg, 5.jpg. I creat the codes like this: Code:<%
Dim objGifWriter, objGifFrame, objBitmap
Set objGifWriter = Server.CreateObject("MultiImage.GifWriter")
Set objGifFrame = Server.CreateObject("MultiImage.Frame")
Set objBitmap = Server.CreateObject("GraphicsMill.Bitmap")
objGifWriter.OpenFile Server.MapPath("animated.gif"), 240, 240
objGifWriter.IsLzwEnabled = true
objBitmap.LoadFromFile Server.MapPath("3.jpg")
objBitmap.Transforms.Resize 240,240
objBitmap.SaveToFile Server.MapPath("3a.jpg")
objBitmap.LoadFromFile Server.MapPath("3a.jpg")
objBitmap.DrawOnBitmap objBitmap, , , , , , , , , CombineModeAlpha, 75
objBitmap.SaveToFile Server.MapPath("3b.jpg")
objBitmap.LoadFromFile Server.MapPath("3b.jpg")
objBitmap.DrawOnBitmap objBitmap, , , , , , , , , CombineModeAlpha, 50
objBitmap.SaveToFile Server.MapPath("3c.jpg")
objBitmap.LoadFromFile Server.MapPath("3c.jpg")
objBitmap.DrawOnBitmap objBitmap, , , , , , , , , CombineModeAlpha, 25
objBitmap.SaveToFile Server.MapPath("3d.jpg")
objBitmap.LoadFromFile Server.MapPath("4.jpg")
objBitmap.Transforms.Resize 240,240
objBitmap.SaveToFile Server.MapPath("4a.jpg")
objBitmap.LoadFromFile Server.MapPath("5.jpg")
objBitmap.Transforms.Resize 240,240
objBitmap.SaveToFile Server.MapPath("5a.jpg")
objBitmap.LoadFromFile Server.MapPath("3a.jpg")
objBitmap.Data.ConvertTo8bppIndexed
Set objGifFrame.Bitmap = objBitmap
objGifFrame.Delay = 300
objGifWriter.AddFrame objGifFrame
objBitmap.LoadFromFile Server.MapPath("3a.jpg")
objBitmap.Data.ConvertTo8bppIndexed
Set objGifFrame.Bitmap = objBitmap
objGifFrame.Delay = 100
objGifFrame.Delay = 300
objGifWriter.AddFrame objGifFrame
objBitmap.LoadFromFile Server.MapPath("3b.jpg")
objBitmap.Data.ConvertTo8bppIndexed
Set objGifFrame.Bitmap = objBitmap
objGifFrame.Delay = 100
objGifWriter.AddFrame objGifFrame
objBitmap.LoadFromFile Server.MapPath("3c.jpg")
objBitmap.Data.ConvertTo8bppIndexed
Set objGifFrame.Bitmap = objBitmap
objGifFrame.Delay = 100
objGifWriter.AddFrame objGifFrame
objBitmap.LoadFromFile Server.MapPath("3d.jpg")
objBitmap.Data.ConvertTo8bppIndexed
Set objGifFrame.Bitmap = objBitmap
objGifFrame.Delay = 100
objGifWriter.AddFrame objGifFrame
' Add frame 1
objBitmap.LoadFromFile Server.MapPath("4a.jpg")
objBitmap.Data.ConvertTo8bppIndexed
Set objGifFrame.Bitmap = objBitmap
objGifFrame.Delay = 300
objGifWriter.AddFrame objGifFrame
' Add frame 1
objBitmap.LoadFromFile Server.MapPath("5a.jpg")
objBitmap.Data.ConvertTo8bppIndexed
Set objGifFrame.Bitmap = objBitmap
objGifFrame.Delay = 300
objGifWriter.AddFrame objGifFrame
'...
objGifWriter.Close
response.Write("<img src='animated.gif'>")
%>
So now, from frame #1-#5, it shows 3.jpg, 3a.jpg, 3b.jpg, 3c.jpg and 3d.jpg for fading out. but the frame#1 is still on background so that it doesnt show fading out result. How to take off the frame#1 on frame#2, same to take off frame#1-2 on fram#3....How can it show like this: Frame#1: 3.jpg Frame#2: 3a.jpg, no 3.jpg background Frame#3: 3b.jpg, no 3.jpg, 3a.jpg background .... same to frame#5 Edited by user Wednesday, October 29, 2008 2:34:59 AM(UTC)
| Reason: Not specified
|