Søg
Avatar billede lund_dk Praktikant
26. maj 2006 - 21:46 Der er 24 kommentarer og
1 løsning

ASPimage fejl ved thumb

Hej

Jeg har denne kode som jeg skal bruge til at oprette thumb af et billede jeg uploader, men jeg får fejlen:

Microsoft VBScript runtime error '800a000b'

Division by zero

/hobbyoggaveboden/admin/albumupload.asp, line 82


Linie 82:
ResizedY = (ResizedX / MyImage.MaxX) * MyImage.MaxY

Nogen som kan hjælpe med at afhjælpe fejlen?

koden:
-----------




' resize billede
  ' opretter en instans af ASPImage objektet
Set MyImage = Server.CreateObject("AspImage.Image")

MyImage.PadSize = 0

'filename of original image w/ extension
Dim strOrigImg
strOrigImg = "" & strbillede & ""

'filename of thumbnail w/ extension
Dim strThumbName
strThumbName = "" & strbillede & ""

'full path of original image
Dim strOrigImgFullPath
strOrigImgFullPath = request.servervariables("APPL_PHYSICAL_PATH") & "..\album\"


'full path of generated thumbnail
Dim strThumbFullPath
strThumbFullPath = request.servervariables("APPL_PHYSICAL_PATH") & "..\album\thumb\"

Dim strOriginal, strThumb, ResizedX,ResizedY
strOriginal = strOrigImgFullPath & strOrigImg
strThumb = strThumbFullPath & strThumbName

'load original image
MyImage.LoadImage strOriginal


'Resize factor
ResizedX = 75
MyImage.GetImageFileSize strOriginal, X, Y
MyImage.MaxX = X
MyImage.MaxY = Y

'maintain aspect ratio
ResizedY = (ResizedX / MyImage.MaxX) * MyImage.MaxY
MyImage.ResizeR ResizedX, ResizedY


MyImage.ImageFormat = 1
MyImage.FileName= strThumb
MyImage.SaveImage

response.write strThumb & "<br>"
response.write stroriginal & "<br>"


set MyImage = nothing
Avatar billede ttopholm Nybegynder
26. maj 2006 - 22:22 #1
ResizedY = (ResizedX / X) * Y
Avatar billede ttopholm Nybegynder
26. maj 2006 - 22:24 #2
Det her er deres egen resize funktion

Sub ResizeX (intXSize)
  Dim intYSize
  intYSize = (intXSize / MyImage.MaxX) * MyImage.MaxY
  Image.ResizeR intXSize, intYSize
end sub


Du behøver ikke kalde getImageSize, du kan bare indlæse det via myImage.MaxY og X

Da de indeholder det...
Avatar billede lund_dk Praktikant
26. maj 2006 - 22:37 #3
Jeg prøvede at erstatte linie 82 med denne
ResizedY = (ResizedX / X) * Y

men samme resultat
Avatar billede lund_dk Praktikant
26. maj 2006 - 22:43 #4
Og ligeledes med

Sub ResizeX (intXSize)
  Dim intYSize
  intYSize = (intXSize / MyImage.MaxX) * MyImage.MaxY
  Image.ResizeR intXSize, intYSize
end sub

Så fejlen må næsten ligge andet sted i koden?
Avatar billede ttopholm Nybegynder
26. maj 2006 - 22:46 #5
Har fornemmelsen du slet ikke indlæser noget billede.... Din sti er forkert vil jeg skyde på, ellers vil myimage.maxx eller y ikke returnere 0
Avatar billede ttopholm Nybegynder
26. maj 2006 - 22:48 #6
Prøv disse stier istedet...

'full path of original image
Dim strOrigImgFullPath
strOrigImgFullPath = request.servervariables("APPL_PHYSICAL_PATH") & "\album\"


'full path of generated thumbnail
Dim strThumbFullPath
strThumbFullPath = request.servervariables("APPL_PHYSICAL_PATH") & "\album\thumb\"
Avatar billede ttopholm Nybegynder
26. maj 2006 - 22:48 #7
Har fjernet dine .. i dem... Det er vel en fejl ik...
Avatar billede lund_dk Praktikant
26. maj 2006 - 22:54 #8
Havde noget med de at gøre, nu går den fint igennem uden fejl, men gemmer ikke thumb i "\album\thumb\" mappen
Avatar billede ttopholm Nybegynder
26. maj 2006 - 22:57 #9
Det burde den nu gøre udfra det du har lavet der...
Avatar billede ttopholm Nybegynder
26. maj 2006 - 22:59 #10
Hvad udskriver den her:
response.write strThumb & "<br>"
response.write stroriginal & "<br>"
Avatar billede lund_dk Praktikant
26. maj 2006 - 23:08 #11
Ah, var min fejl, en lille stavefejl i mappen på serveren :p

Tak for hjælpen, smid et svar..
Avatar billede ttopholm Nybegynder
26. maj 2006 - 23:09 #12
okay... Det var så lidt...
Avatar billede lund_dk Praktikant
26. maj 2006 - 23:14 #13
Lige en lille tillægsspørgsmål.

Den fil den gemmer inde i min thumb mappe, den fylder 0 kb .. altså filen er tom, men er gemt..
Avatar billede ttopholm Nybegynder
26. maj 2006 - 23:26 #14
Det lyder meget underligt, det har jeg ikke været udsat for.. Kun hvis det har været gif-billeder
Avatar billede lund_dk Praktikant
26. maj 2006 - 23:28 #15
Er jpeg jeg uploader..
Avatar billede ttopholm Nybegynder
26. maj 2006 - 23:31 #16
Det kan jeg ikke svare på, jeg bruger nogenlunde samme script og der virker det.. men medmindre du altså resizer det 0 selvfølgelig....  Har du prøvet at la vær med at resize det og så bare gemme det...
Avatar billede lund_dk Praktikant
26. maj 2006 - 23:31 #17
Min kode ser sådan her ud nu, i helhed.

' resize billede
  ' opretter en instans af ASPImage objektet
Set MyImage = Server.CreateObject("AspImage.Image")

MyImage.PadSize = 0

'filename of original image w/ extension
Dim strOrigImg
strOrigImg = "" & strbillede & ""

'filename of thumbnail w/ extension
Dim strThumbName
strThumbName = "" & strbillede & ""

'full path of original image
Dim strOrigImgFullPath
strOrigImgFullPath = request.servervariables("APPL_PHYSICAL_PATH") & "hobbyoggaveboden\album\"


'full path of generated thumbnail
Dim strThumbFullPath
strThumbFullPath = request.servervariables("APPL_PHYSICAL_PATH") & "hobbyoggaveboden\album\thumb\"

Dim strOriginal, strThumb, ResizedX,ResizedY
strOriginal = strOrigImgFullPath & strOrigImg
strThumb = strThumbFullPath & rs("mappeid") & "_" & strThumbName

'load original image
MyImage.LoadImage strOriginal


'Resize factor
ResizedX = 75
MyImage.GetImageFileSize strOriginal, X, Y
MyImage.MaxX = X
MyImage.MaxY = Y

'maintain aspect ratio
'ResizedY = (ResizedX / MyImage.MaxX) * MyImage.MaxY
'ResizedY = (ResizedX / X) * Y
Sub ResizeX (intXSize)
  Dim intYSize
  intYSize = (intXSize / MyImage.MaxX) * MyImage.MaxY
  Image.ResizeR intXSize, intYSize
end sub

MyImage.ResizeR ResizedX, ResizedY


MyImage.ImageFormat = 1
MyImage.FileName= strThumb
MyImage.SaveImage

response.write strThumb & "<br>"
response.write stroriginal & "<br>"


set MyImage = nothing
%>
Avatar billede lund_dk Praktikant
26. maj 2006 - 23:32 #18
Har lige prøvet at lade være med at bruge resize i scriptet, og bare gemme oreginalen som du foreslog, det giver stadig en om fil :S
Avatar billede ttopholm Nybegynder
26. maj 2006 - 23:34 #19
Det er også helt forkert....

Sådan her...

resize billede
  ' opretter en instans af ASPImage objektet
Set MyImage = Server.CreateObject("AspImage.Image")

MyImage.PadSize = 0

'filename of original image w/ extension
Dim strOrigImg
strOrigImg = "" & strbillede & ""

'filename of thumbnail w/ extension
Dim strThumbName
strThumbName = "" & strbillede & ""

'full path of original image
Dim strOrigImgFullPath
strOrigImgFullPath = request.servervariables("APPL_PHYSICAL_PATH") & "hobbyoggaveboden\album\"


'full path of generated thumbnail
Dim strThumbFullPath
strThumbFullPath = request.servervariables("APPL_PHYSICAL_PATH") & "hobbyoggaveboden\album\thumb\"

Dim strOriginal, strThumb, ResizedX,ResizedY
strOriginal = strOrigImgFullPath & strOrigImg
strThumb = strThumbFullPath & rs("mappeid") & "_" & strThumbName

'load original image
MyImage.LoadImage strOriginal


'Resize factor
ResizedX = 75

maintain aspect ratio
ResizedY = (ResizedX / MyImage.MaxX) * MyImage.MaxY
MyImage.ResizeR ResizedX, ResizedY
MyImage.ImageFormat = 1
MyImage.FileName= strThumb
MyImage.SaveImage

response.write strThumb & "<br>"
response.write stroriginal & "<br>"


set MyImage = nothing
%>
Avatar billede lund_dk Praktikant
26. maj 2006 - 23:39 #20
med den kode du kom med her til sidst, så er vi tilbage med fejlen..

Microsoft VBScript runtime error '800a000b'

Division by zero

/hobbyoggaveboden/admin/albumupload.asp, line 79


Linie 79:
ResizedY = (ResizedX / MyImage.MaxX) * MyImage.MaxY
Avatar billede ttopholm Nybegynder
26. maj 2006 - 23:42 #21
Så læser du altså stadig ikke noget billede ind... Der er fejl i din sti...
Avatar billede ttopholm Nybegynder
26. maj 2006 - 23:46 #22
Kalder du stien fra roden af dit website..

Prøv skriv hele din sti istedet for at bygge den..

F.eks.

strOrigImgFullPath = C:\din\fulde\sti
Avatar billede lund_dk Praktikant
26. maj 2006 - 23:46 #23
Sååå, skulle det være på plads.
Den uploader, resizer, smider billede ind osv..

Endnu engang tak for indsatsen :D
Avatar billede ttopholm Nybegynder
26. maj 2006 - 23:46 #24
strOrigImgFullPath = "C:\din\fulde\sti"
Avatar billede ttopholm Nybegynder
26. maj 2006 - 23:47 #25
Okay... Det var så lidt.. stiene er nu det vigtigste i det..
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 12:44 Lenovo ThinkPad X1 Yoga Af mort1 i PC
I går 10:40 Dagens vits fra AI Af nu_igen i Andet software
I går 10:28 Stifinder gemmer de sidste 20 åbnede dokumenter, nu er de pludselig væk. Af Uvanga i Windows
01/0715:18 Min PC kan nu ikke se den ekstra skærm Af KurtG i Windows
30/0614:48 Beholde vigtige cookies i Firefox (Slette cookies, som man ikke bruger) Af Ikke-ekspert i Browsere
White papers
Flere white papers »