webForumDet fria alternativet

AspJpeg (again)

ASPur ASP

7 svar · 410 visningar · startad av M.Cheraghi

Medlem sedan juli 20015 107 inlägg
Frågan#1

Jag har efter en tids småfnulande med AspJpeg konstaterat att mina thumbs får en riktigt kass kvalitet. Jag har provat att sätta quality till 100 (max) men jag jag märker skilnaden som 0% :OO
Har jag gjort något fel någonstans? Jag tycker bilden blir _väldigt_ luddig!

Orginalbild:
orginal

Thumbnail:
Thumbnail

Set Jpeg = Server.CreateObject("Persits.Jpeg")
	Path = Server.MapPath("photo\no\" & strUsername & ".jpg")
	Jpeg.Open Path

	Jpeg.Crop UserImagex1, UserImageY1, X2, Y2

	Jpeg.quality = 100

	strPercent = 40 / jpeg.originalwidth
	Jpeg.Width = "40"
	Jpeg.Height = Jpeg.OriginalHeight * strPercent

	Jpeg.quality = 100

	Jpeg.Save Server.MapPath("photo\not_validated\" & strUsername & "_small.jpg")

	Jpeg.Width = "90"
	Jpeg.Height = "110"

	Jpeg.Canvas.Pen.Color = &H000000' black
	Jpeg.Canvas.Pen.Width = 1
	Jpeg.Canvas.Brush.Solid = False ' or a solid bar would be drawn
	Jpeg.Canvas.Bar 0, 0, Jpeg.Width, Jpeg.Height

	Jpeg.Save Server.MapPath("photo\not_validated\" & strUsername & ".jpg")
Medlem sedan feb. 200112 078 inlägg
#2

Den tumnagelbilden du visar ovan är ju iofs. inte 40px bred, utan 90px. Är det meningen?

Medlem sedan juli 20015 107 inlägg
#3

OveRRidE skrev:

Den tumnagelbilden du visar ovan är ju iofs. inte 40px bred, utan 90px. Är det meningen?

Allt är i sin ordning ;)
det ska sammanlagt bli 3 filer.
- Orginalet
- 90 pixlar
- 40 pixlar

Den med 90 pixlar är den jag har bifogat med, och den ser risig ut, dvs den ser luddig ut, även om orgnalet är skarp. och det vill jag inte :( men jag får inte till det, eller rättare sagt, jag vet inte hur man får till det ;)

Medlem sedan juli 20015 107 inlägg
#4

Jahapp, eftersom ingen visste felet och jag själv lyckades efter många och/men. Så postar jag koden här så gött fölk kan ta del utav den :) Det som jag gjorde fel var att jag tydligen skalade ner bilden till 40 pixlar först, osedan skalade om den till 90, dvs jag förstorade en förminskning :) så jag la till fetmarkerat.

Set Jpeg = Server.CreateObject("Persits.Jpeg")
	Path = Server.MapPath("photo\no\" & strUsername & ".jpg")
	Jpeg.Open Path

	Jpeg.Crop UserImagex1, UserImageY1, X2, Y2

	strPercent = 40 / jpeg.originalwidth
	Jpeg.Width = "40"
	Jpeg.Height = Jpeg.OriginalHeight * strPercent

	Jpeg.quality = 100

	Jpeg.Save Server.MapPath("photo\not_validated\" & strUsername & "_small.jpg")

	[b]Path = Server.MapPath("photo\no\" & strUsername & ".jpg")
	Jpeg.Open Path

	Jpeg.Crop UserImagex1, UserImageY1, X2, Y2

	quality = 100[/b]

	Jpeg.Width = "90"
	Jpeg.Height = "110"

	Jpeg.Canvas.Pen.Color = &H000000' black
	Jpeg.Canvas.Pen.Width = 1
	Jpeg.Canvas.Brush.Solid = False ' or a solid bar would be drawn
	Jpeg.Canvas.Bar 0, 0, Jpeg.Width, Jpeg.Height
Medlem sedan feb. 200112 078 inlägg
#5

Och genast ställer jag mig själv frågan; Hur ända in i tomteboda kunde man missa det? :o :q

Ibland är saker helt enkelt för uppenbara. ;)

Medlem sedan juli 20015 107 inlägg
#6

OveRRidE skrev:

Och genast ställer jag mig själv frågan; Hur ända in i tomteboda kunde man missa det? :o :q

Ibland är saker helt enkelt för uppenbara. ;)

Jag ställer mig själv samma fråga :)
Men nu löste det sig till slut :)

nya thumbnailen

gamla thumbnailen

Hade jag anledning att whina på gamla thumben? eller var jag på tok för kräsen :)

Medlem sedan mars 20041 505 inlägg
#7

När vi ändå är inne på det där med JPEG-Thumbnails, behöver servern stöd för någon extra funktion för att man ska kunna skapa JPEG-Thumbnails?

Medlem sedan feb. 200112 078 inlägg
#8

Du behöver en komponent som klarar att hantera och spara bilder på servern, 'on-the-fly', alltså i runtime.

I Cheragi's fall heter komponenten Persits.

136 ms totalt · 3 externa anrop · v20260731065814-full.25f56b17
133 ms — hämta forumlista (db)
0 ms — hämta statistik (cache)
126 ms — hämta tråd, inlägg och bilagor (db)