Avatar billede andersasp Nybegynder
16. maj 2007 - 14:54 Der er 5 kommentarer og
1 løsning

ASP JPEG resize i højden

Hejsa eksperter,

Jeg har et script som resizer et jpeg billede i bredden, men hvis jeg gerne vil have det til at resize i højden hvad skal jeg så ændre??

    Set Jpeg = Server.CreateObject("Persits.Jpeg")
    Jpeg.Open "e:\website\upload\billeder\" & Tnogle & "\largeImages\" &usethispicturenameI&""
    L = 210
    Jpeg.Width = L
    Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth
    Jpeg.Save "e:\website\upload\billeder\" & Tnogle & "\thumbImages\"&usethispicturenameI&""
Avatar billede fennec Nybegynder
16. maj 2007 - 15:48 #1
Hvad jeg kan se så resizer du netop i højden:
Jpeg.Height = ....

Så jeg er ikke helt med på hvad du mener.
Avatar billede w13 Novice
16. maj 2007 - 16:41 #2
Ja, din kode resizer bredden til "L" som du har sat til 210. Neden under resizer du Jpeg.Height til billedets originale højde, ganget med L, divideret med billedets originale bredde. Jeg har ændret lidt i koden for dig, så den gør præcis hvad du vil ha', tror jeg!

    Set Jpeg = Server.CreateObject("Persits.Jpeg")
    Jpeg.Open "e:\website\upload\billeder\" & Tnogle & "\largeImages\" &usethispicturenameI&""
    Jpeg.Width = 210
    Jpeg.Height = 210
    Jpeg.Save "e:\website\upload\billeder\" & Tnogle & "\thumbImages\"&usethispicturenameI&""

Her kan du så bare ændre 210 til et bedre pixeltal evt. Og jeg har sparet variablen L væk. =)
Avatar billede andersasp Nybegynder
16. maj 2007 - 16:58 #3
Jeg vil faktisk gerne have at man bare bestemmer højden og så at bredden bliver den rigtige procent mindre.. så bare omvendt :)
Avatar billede w13 Novice
16. maj 2007 - 17:39 #4
Jamen så tror jeg bare, du skal skrive:
----------------------------------------
    Set Jpeg = Server.CreateObject("Persits.Jpeg")
    Jpeg.Open "e:\website\upload\billeder\" & Tnogle & "\largeImages\" &usethispicturenameI&""
    strHeight = 210
    Jpeg.Width = (Jpeg.OriginalWidth / Jpeg.OriginalHeight) * 210
    Jpeg.Height = strHeight
    Jpeg.Save "e:\website\upload\billeder\" & Tnogle & "\thumbImages\"&usethispicturenameI&""
----------------------------------------
Og så er strHeight bare det eneste, der skal justeres :)
Avatar billede andersasp Nybegynder
16. maj 2007 - 17:56 #5
Super så virker det :) tusine tak for hjælpen! det er jo selvfølgelig bare omvendt :)
Avatar billede w13 Novice
16. maj 2007 - 18:07 #6
Det var så lidt. Og tak for point! =)
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
Kurser inden for grundlæggende programmering

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