ASPIMAGE problemer efter upload hos udbyder

Azero skriver på deres hjemmeside :

AspImage siger: Object doesn't support this property or method: 'GetImageFileSize'
Metoden er udgået, brug istedet følgende kode til at hente filstørrelsen for et eksisterende billede:

<%
  Set objImg = Server.CreateObject("AspImage.Image")

  objImg.LoadImage "d:\home\FtpBrugernavn\www\filnavn.jpg"
  Response.Write "<p>The size of the image is " & objImg.MaxX & "x" & objImg.MaxY & ".</p>"

  Set objImg = Nothing
%>



Nogle der lige gider at hjælpe mig med at overskue hvordan jeg skal skrive det.. ?

Jeg bruger nedenstående kode til at resize billeder med, prøv og flet det ind i din egen kode:

FOTOBREDDE = cint(upload.form("fotobredde"))
Set objImg = Server.CreateObject("AspImage.Image")
objImg.LoadImage billedsti & Upload.Files("foto").ExtractFileName
ImageHeight = objImg.MaxY
ImageWidth = objImg.MaxX
THUMBHeight = Cint(ImageHeight*thumbbredde/ImageWidth)
THUMBWidth = thumbbredde
if ImageWidth < FOTOBREDDE then
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage billedsti & Upload.Files("foto").ExtractFileName
Image.FileName = billedsti & Upload.Files("foto").ExtractFileName
Image.ImageFormat = 1
ProgressiveJPEGEncoding = true
Image.JPEGQuality = 90
Image.SaveImage
Set Image = Nothing

/Goose

UPS, pastede lige det forkerte, prøver lige igen :)

FOTOBREDDE = cint(upload.form("fotobredde"))
Set objImg = Server.CreateObject("AspImage.Image")
objImg.LoadImage billedsti & Upload.Files("foto").ExtractFileName
ImageHeight = objImg.MaxY
ImageWidth = objImg.MaxX
NewHeight = Cint(ImageHeight*FOTOBREDDE/ImageWidth)
NewWidth = FOTOBREDDE
Set objImg = Nothing
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage billedsti & Upload.Files("foto").ExtractFileName
Image.FileName = billedsti & Upload.Files("foto").ExtractFileName
Image.ImageFormat = 1
ProgressiveJPEGEncoding = true
Image.JPEGQuality = 80
Image.ResizeR NewWidth,NewHeight
Image.SaveImage
Set Image = Nothing

/Goose

Goose, jeg kan ikke lige overskue det nu, ( lang arbejdsdag ) kan du se hvordan jeg lige skal lave det om !?

Prøv følgende:

'load original image
MyImage.LoadImage strOriginal

'Set Resize factor for X
ResizedX = 350

'Get orignal size of image
X = MyImage.MaxX
Y = MyImage.MaxY

'maintain aspect ratio
ResizedY = (ResizedX / X) * Y
MyImage.ResizeR X,Y

'saving thumbnail to disk
MyImage.ImageFormat = 1
MyImage.FileName = strThumb
MyImage.SaveImage

'Cleanup
Set MyImage = Nothing

/Goose

Goose, nu fik jeg billede på igen, men den resizer ik !

Prøv så med ...

'load original image
MyImage.LoadImage strOriginal

'Set Resize factor for X
ResizedX = 350

'Get orignal size of image
X = MyImage.MaxX
Y = MyImage.MaxY

'maintain aspect ratio
ResizedY = (ResizedX / X) * Y
MyImage.ResizeR ResizedX,resizedY

'saving thumbnail to disk
MyImage.ImageFormat = 1
MyImage.FileName = strThumb
MyImage.SaveImage

'Cleanup
Set MyImage = Nothing

/Goose

- det var fordi jeg havde brugt de oprindelige billedstørrelser (X,Y) da den skulle gemme, det skulle naturligvis være de nye (ResizedX,ResizedY)

/Goose

TAkker :D
Goose, jeg giver dig lige nogle flere point for din Hjælp.. jeg kunne tilfældigvis ikke få en Messanger eller ICQ, så jeg kunne forstyrer dig nå jeg havde andre ligenede problemer. !?

Jamen jeg takker da for pointene, det varmer jo altid :o)
Du kan evt. maile på: admin snabela goose dot dk
Jeg er lige ved at sætte min normale putter op efter et crash så jeg er ikke på Messenger lige foreløbigt ....

/Goose