---
title: "Vita ytor efter uppladdning med aspJpeg"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/173691-vita-ytor-efter-uppladdning-med-aspjpeg"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "leniz"
published: "2008-08-28T07:09:14.000Z"
updated: "2008-08-29T13:46:36.000Z"
replies: 1
views: 306
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/173691-vita-ytor-efter-uppladdning-med-aspjpeg"
---

# Vita ytor efter uppladdning med aspJpeg

## #1 — leniz, 2008-08-28T07:09Z

Hej!
Undrar om någon varit med om att vissa bilder som laddas upp med aspUpload och förminskas med aspJpeg får vita ytor (pixlar) utslängda på mörka ytor på bilderna? 
Någon som vet varför det blir så på vissa bilder och om man kan göra något åt det?
Mvh Lena

Permalänk: https://www.webforum.nu/p/173691

## #2 — Eclipse, 2008-08-29T13:46Z

Nej. Har aldrig varit med om detta.

```
		' ## CONVERT FILE TO WEBFORMAT
		' 1. fileName = original file = 800
		' 2. high_fileName = 500
		' 3. low_fileName = 120
	
		' ## [url]http://www.aspjpeg.com/manual.html[/url]
		' ## RESAMPLE IMG
		Dim Jpeg
		DIM intNewWidth, intNewHeight
		Set Jpeg = Server.CreateObject("Persits.Jpeg")
		Path = Server.MapPath("/images/" & myFileName )
		Jpeg.Open Path

		' ## SAVE FILE TO DISK - 800
		IF Jpeg.OriginalWidth > 800 THEN
			intNewWidth = 800
			IF Jpeg.OriginalWidth > CInt(intNewWidth) THEN
				Jpeg.PreserveAspectRatio = True
				Jpeg.Width = intNewWidth
			END IF
		END IF
		Jpeg.Save Server.MapPath("/images/" & myFileName )
		' ## SAVE FILE TO DISK - 500
		IF Jpeg.OriginalWidth > 500 THEN
			intNewWidth = 500
			IF Jpeg.OriginalWidth > CInt(intNewWidth) THEN
				Jpeg.PreserveAspectRatio = True
				Jpeg.Width = intNewWidth
			END IF
		END IF
		Jpeg.Save Server.MapPath("/images/high_" & myFileName )
		' ## SAVE FILE TO DISK - 120
		IF Jpeg.OriginalWidth > 120 THEN
			intNewWidth = 140
			IF Jpeg.OriginalWidth > CInt(intNewWidth) THEN
				Jpeg.PreserveAspectRatio = True
				Jpeg.Width = intNewWidth
			END IF
			' ## ADD BLACK BORDER
	'		Jpeg.Canvas.Pen.Color = &H000000 ' Black
	'		Jpeg.Canvas.Pen.Width = 2
	'		Jpeg.Canvas.Brush.Solid = False ' or a solid bar would be drawn
	'		Jpeg.Canvas.DrawBar 1, 1, Jpeg.Width, Jpeg.Height
		END IF
		Jpeg.Save Server.MapPath("/images/low_" & myFileName )

		' ## SAVE FILE TO DISK - 50
		IF Jpeg.OriginalHeight > 50 THEN
			intNewHeight = 50
			IF Jpeg.OriginalHeight > CInt(intNewHeight) THEN
				Jpeg.PreserveAspectRatio = True
				Jpeg.Height = intNewHeight
			END IF
		END IF
		Jpeg.Save Server.MapPath("/images/thumb_" & myFileName )
	END IF
```

Permalänk: https://www.webforum.nu/p/2135852

---

Tråden på webben: https://www.webforum.nu/amne/asp/173691-vita-ytor-efter-uppladdning-med-aspjpeg