Notifikationer

Markér alle som læst Log ud

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 & " "
response.write stroriginal & " "

set MyImage = nothing

Synes godt om

ttopholm Nybegynder

26. maj 2006 - 22:22 #1

ResizedY = (ResizedX / X) * Y

Synes godt om

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...

Synes godt om

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

Synes godt om

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?

Synes godt om

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

Synes godt om

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\"

Synes godt om

ttopholm Nybegynder

26. maj 2006 - 22:48 #7

Har fjernet dine .. i dem... Det er vel en fejl ik...

Synes godt om

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

Synes godt om

ttopholm Nybegynder

26. maj 2006 - 22:57 #9

Det burde den nu gøre udfra det du har lavet der...

Synes godt om

ttopholm Nybegynder

26. maj 2006 - 22:59 #10

Hvad udskriver den her:
response.write strThumb & " "
response.write stroriginal & " "

Synes godt om

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..

Synes godt om

ttopholm Nybegynder

26. maj 2006 - 23:09 #12

okay... Det var så lidt...

Synes godt om

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..

Synes godt om

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

Synes godt om

lund_dk Praktikant

26. maj 2006 - 23:28 #15

Er jpeg jeg uploader..

Synes godt om

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...

Synes godt om

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 & " "
response.write stroriginal & " "

set MyImage = nothing
%>

Synes godt om

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

Synes godt om

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 & " "
response.write stroriginal & " "

set MyImage = nothing
%>

Synes godt om

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

Synes godt om

ttopholm Nybegynder

26. maj 2006 - 23:42 #21

Så læser du altså stadig ikke noget billede ind... Der er fejl i din sti...

Synes godt om

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

Synes godt om

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

Synes godt om

ttopholm Nybegynder

26. maj 2006 - 23:46 #24

strOrigImgFullPath = "C:\din\fulde\sti"

Synes godt om

ttopholm Nybegynder

26. maj 2006 - 23:47 #25

Okay... Det var så lidt.. stiene er nu det vigtigste i det..

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
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

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS