ASPImage vandmærke + resize

Prøv at kikke her: http://www.weberie.com/components/aspimage/methods.asp

Resize:

ASPImage.ResizeR intBrede,intHøjde


Du kan så benytte AddImageTransparent til at lægge et billede ind oven i, hvios du vil havde noget skal være gennemsigtigt, altså som vandmærke.:
AddImageTransparent (strFileName, intX, intY, intTransparentColor)

ASPImage.AddImageTransparent vm.jpg, 5, 6, vbWhite

Så laver du en jpg som hedder vm.jpg og det som skal være gennemsigtigt skal være hvid.

men hvordan hiver jeg fat i et billede? Altså åbner det...?
Er der forresten ikke noget med at man i stedet for at resize kan sætte et max, så hvis billedet er derover bliver det resizet?

'Åben billede:

Set ASPImage = Server.CreateObject("AspImage.Image")
ASPImage.LoadImage "c:\images\billede.jpg"

'find størrelse på billede:
ImageHeight = ASPImage.MaxY
ImageWidth = ASPImage.MaxX

size = 200
if ImageHeight > size then
  NewHeight = Cint(ImageHeight*size/ImageWidth)
  NewWidth = size
  ASPImage.ResizeR NewWidth, NewHeight
end if

burde det her ikke gøre det? (Det gør det åbenbart ikke)
Set Image = Server.CreateObject("AspImage.Image")
imgpath = server.MapPath("images\uploads") & "\" & Filename
image.LoadImage(imgpath)
imgpath = server.MapPath("images\watermark.gif")
image.AddImageTransparent(imgpath, 0, 0, #FFFFFF)
image.SaveImage()

???

for at gemme det ny billede skal man kalde:

ASPImage.SaveImage

hehe så ikke lige din kommentar.. bare glem den sidste.

hvis det er på en server så benyt / eller måske denne

imgpath = server.MapPath("images\uploads\" & Filename)

ka sq ik få det til at virke :(
Har følgende nu....

Set Image = Server.CreateObject("AspImage.Image")
imgpath = "C:\inetpub\wwwroot\xxx\images\uploads\147.jpg"
image.LoadImage imgpath
imgpath2 = "C:\inetpub\wwwroot\xxx\images\watermark.gif"
image.AddImageTransparent imgpath2, 0, 0, VbWhite
image.SaveImage

ok, jeg fik det til at virke, men jeg syntes nu ikke jeg fik koden helt perfekt :o)
Nå det går nok, nu virker det ihvertfalde....