merge
Posted: Mon Apr 30, 2007 3:31 pm
hello: i am trying to get this function to work. basically i have thumbnails in a directory that are different widths & heights. i want to place all of them on a 100x100 square white background. Here is my code:
when i run it i get this error:
where line 10 is the oImage.Merge line.
any help would be greatly appreciated -- or if there's a better way of doing this.
thx angst
Code: Select all
Dim oImage, oImage2
Set oImage = Server.CreateObject("GflAx.GflAx")
Set oImage2 = Server.CreateObject("GflAx.GflAx")
oImage.NewBitmap 100, 100, "&H2FFFFFF"
oImage2.LoadBitmap Server.MapPath( "/[FILENAME].jpg" )
numW = oImage2.Width
numH = oImage2.Height
oImage.MergeAddFile Server.MapPath( "/[FILENAME].jpg" ), 100, 0, 0
oImage.Merge
oImage.SaveBitmap Server.MapPath( "/[TARGETFILENAME].jpg" )
Set oImage = Nothing
Code: Select all
GflAx.GflAx.1 error '80004005'
Bad parameters
/glfax_test.asp, line 10
any help would be greatly appreciated -- or if there's a better way of doing this.
thx angst