AspImage endnu en gang!

Prøv og se om du kan bruge det her :
http://www.eksperten.dk/spm/420215

/Goose

Det hjælper mig ikke så meget da jeg faktisk ikke aner en skid om det.

Ved godt jeg ikke nævnte det, men resize funktion er vigtigst :)

Jamen hvis du læser den her tråd:
http://www.eksperten.dk/spm/408192

- så kan du resize

Derefter kombinerer du den med:
http://www.eksperten.dk/spm/420215

/Goose

Kan man bruge url i en Image.LoadImage ?

Image.LoadImage "http://www.minadresse.dk/billede.jpg" fx?

Der er intet af det der virker overhovedet.

Prøv og post den kode du ikke kan få til at virke

/Goose

Hej igen..

Har fået det til at virke. Bruger denne kode. Hvis du lige gider hjælpe mig med en enkelt (sikkert meget enkelt) ting så ville det være kanon.

Jeg har denne kode. Den gør hvad den skal bortset fra hvis billedet er mindre end 109 så gør den også billedet større. Kan jeg få den til at lade billedet være hvis den er mindre end 109.

    MaxSize = 109
    Set objImg = Server.CreateObject("AspImage.Image")
    objImg.LoadImage Server.MapPath("images\users\" & File.ExtractFilename & "")
    ImageHeight = objImg.MaxY
    ImageWidth = objImg.MaxX
    If ImageWitdh < MaxSize Then
    NewHeight = Cint(ImageHeight*MaxSize/ImageWidth)
    NewWidth = MaxSize
    Set objImg = Nothing
    Set Image = Server.CreateObject("AspImage.Image")
    Image.LoadImage Server.MapPath("images\users\" & File.ExtractFilename & "")
    Image.FileName = Server.MapPath("images\users\" & File.ExtractFilename & "")
    Image.ImageFormat = 1
    ProgressiveJPEGEncoding = true
    Image.JPEGQuality = 80
    Image.ResizeR NewWidth,NewHeight
    Image.SaveImage
    End If
    Set Image = Nothing

Det må være noget i stil med:

' ANGIV MAXBREDDE
MaxSize = 109

' FIND BILLEDSTØRRELSEN
Set objImg = Server.CreateObject("AspImage.Image")
objImg.LoadImage Server.MapPath("images\users\" & File.ExtractFilename & "")
ImageHeight = objImg.MaxY
ImageWidth = objImg.MaxX

' HVIS BILLEDEBREDDE ER STØRRE END MAXBREDDE
If ImageWitdh > MaxSize Then

NewHeight = Cint(ImageHeight*MaxSize/ImageWidth)
NewWidth = MaxSize
Set objImg = Nothing
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage Server.MapPath("images\users\" & File.ExtractFilename & "")
Image.FileName = Server.MapPath("images\users\" & File.ExtractFilename & "")
Image.ImageFormat = 1
ProgressiveJPEGEncoding = true
Image.JPEGQuality = 80
Image.ResizeR NewWidth,NewHeight
Image.SaveImage
Set Image = Nothing

' ELLERS
else

NewHeight = ImageHeight
NewWidth = ImageWidth
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage Server.MapPath("images\users\" & File.ExtractFilename & "")
Image.FileName = Server.MapPath("images\users\" & File.ExtractFilename & "")
Image.ImageFormat = 1
ProgressiveJPEGEncoding = true
Image.JPEGQuality = 80
Image.ResizeR NewWidth,NewHeight
Image.SaveImage
Set Image = Nothing

End If

/Goose

Tak

Det var så lidt.

/Goose