2 svar · 222 visningar · startad av mattiasnordin
Jag använde mig av persist.jpeg komponent för att skapa thumbnails. För att det ska bli snyggt vill jag skala ner storleken på bilderna så att:
Är det någon som vet om det finns någon funktion inbyggd för detta?
Kör man följande så tänjs bilden ut, vilket blir fult.
Jpeg.Height = 180
Jpeg.Width = 120
Är det någon som förstår vad jag är ute efter? :)
Jag är inne på följande spår
' Räkna fram hur många procent som vi vill minska bilden med. Bredden ska vara fixerad.
varMellanSumman = 720 - 80 '80=bredden på bilden.
varProcent = varMellanSumman / 720
varProcent = FormatPercent(varProcent)
%>
<%=varProcent %><hr>
<%= 720 / varProcent %><hr>
<%= 486 / varProcent %><hr>
... Ändra storleken....
... Croppa bort ev överflöd ifall höjden är över 120 pixlar...
Ursh vad jag är dålig på matte. Så här lång tid ska det inte ta att komma fram till detta. Nu fungerar det som jag vill.
<% sub subCreateThumb %>
<%' Open source image
Jpeg.Open strPath &"/" &objItem.name
' Räkna fram hur många procent som vi vill minska bilden med. Bredden ska vara fixerad.
varMellanSumman = Jpeg.OriginalWidth - 80 '80=bredden på bilden.
varDecimalProcent = varMellanSumman / Jpeg.OriginalWidth
' räknar fram hur många pixlar %en motsvarar.
varTaBortBredd = varDecimalProcent * Jpeg.OriginalWidth
varTaBortHojd = varDecimalProcent * Jpeg.OriginalHeight
' Skalar om bilderna
Jpeg.Width = Jpeg.OriginalWidth - varTaBortBredd
Jpeg.Height = Jpeg.OriginalHeight - varTaBortHojd
if Jpeg.Height < 120 then
' Lägg till vitt
response.write "<h1>LÄGG TILL</h1>"
elseif Jpeg.Height > 120 then
response.write "<h1>CROP</h1>"
end if
' create thumbnail and save it to disk
Jpeg.Save strPath &"\thumb@" &varDatabasID &varFileExtention
%>
<font color=red>
<%=strPath &"\thumb@" &varDatabasID &varFileExtention %><br>
</font>
<% end sub %>