ASPUpload med ASPImage

Nån som vet hur man använder ASPImage för att skala en bild till en viss storlek i samarbete med Persist-s ASPUpload. Jag kan ladda upp filer med ASPUpload men när jag använder den i samarbete med ASPImage så skalas inte bilden. Ska man lägga ASPImage före, efter eller i ASPUploadkoden.

Koden här är den jag använder, fast Crop ska ersättas med resize, hur man nu skriver den

Set Image = Server.CreateObject("AspImage.Image")
LoadImage = (Server.MapPath("/upload/images/cards/vykort/"&strFileName))
Image.ImageFormat = 1
Image.JPEGQuality = 10
Image.CropImage 200,400,400,250
Image.TextOut "Http://kort.webbisen.com/vykort", 220, 230, false
Image.SaveImage
Set Image = Nothing

strFileName är filnamnet som jag plockar ur med ASPUploadkomponenten

1. Ladda upp bilden till servern ordentligt först.
2. Hämta sedan bilden med AspSmartImage, skala den och spara den sedan igen.

ex. på hur du kan skala bilden:

[red]Dim oImg
Set oImg = Server.CreateObject("aspSmartImage.SmartImage")
	oImg.OpenFile("/upload/images/cards/vykort/"& strFileName)
	oImg.Resample 640,480
	oImg.Quality = 100
	oImg.SaveFile("/upload/images/cards/vykort/"& strFileName)
Set oImg = Nothing[/red]

I detta exempel skalar vi om bilden till 640x480px.

Tillägg: Ser nu att det kanske inte alls rör sig om AspSmartImage.. :r ..men men,
här har du koden för hur du gör med den komponenten iaf, kanske hjälper dig lite.

 

Mitt webhotell stöder bara ASPImage och inte ASPSmartImage och jag har inga problem med uppladdningen av bilden, det har jag ASPUpload till....det är skalningen som inte vill

Palle skrev:

1. Ladda upp bilden till servern ordentligt först.
2. Hämta sedan bilden med AspSmartImage, skala den och spara den sedan igen.

ex. på hur du kan skala bilden:

[red]Dim oImg
Set oImg = Server.CreateObject("aspSmartImage.SmartImage")
	oImg.OpenFile("/upload/images/cards/vykort/"& strFileName)
	oImg.Resample 640,480
	oImg.Quality = 100
	oImg.SaveFile("/upload/images/cards/vykort/"& strFileName)
Set oImg = Nothing[/red]

I detta exempel skalar vi om bilden till 640x480px.

Tillägg: Ser nu att det kanske inte alls rör sig om AspSmartImage.. :r ..men men,
här har du koden för hur du gör med den komponenten iaf, kanske hjälper dig lite.

 

<%
Set Upload = Server.CreateObject("Persits.Upload")

Upload.OverwriteFiles = False
Upload.SetMaxSize 100000, False
Count=Upload.Save(Server.MapPath("upload/images/cards/vykort"))
For Each file In Upload.Files
  'If File.ImageType = "UNKNOWN" Then
  'Response.Redirect "/pictureupload/outputfile.asp?error=fel_filformat"
  'File.Delete 
 ' End If
  Next

Set File = Upload.Files

If NOT File Is Nothing Then
	strFileName= Upload.Files("blob").ExtractFileName  
END IF

Set Image = Server.CreateObject("AspImage.Image")
Image.Loadimage (Server.MapPath("/upload/images/cards/vykort/"&strFileName))

Image.ImageFormat = 1
Image.JPEGQuality = 90
Image.Resize 400,250

Image.TextOut "Http://kort.webbisen.com/vykort", 220, 230, false

Image.FileName = (Server.MapPath("/upload/images/cards/vykort/"&strFileName))
Image.SaveImage

Set Image = Nothing
%>

testade med den koden men bilden skalas inte och jag ser bara överdelen på den fullstora bilden

solbulle skrev:

<%
Set Upload = Server.CreateObject("Persits.Upload")

Upload.OverwriteFiles = False
Upload.SetMaxSize 100000, False
Count=Upload.Save(Server.MapPath("upload/images/cards/vykort"))
For Each file In Upload.Files
  'If File.ImageType = "UNKNOWN" Then
  'Response.Redirect "/pictureupload/outputfile.asp?error=fel_filformat"
  'File.Delete 
 ' End If
  Next

Set File = Upload.Files

If NOT File Is Nothing Then
	strFileName= Upload.Files("blob").ExtractFileName  
END IF


Set Image = Server.CreateObject("AspImage.Image")
Image.Loadimage (Server.MapPath("/upload/images/cards/vykort/"&strFileName))

Image.ImageFormat = 1
Image.JPEGQuality = 90
Image.Resize 400,250

Image.TextOut "Http://kort.webbisen.com/vykort", 220, 230, false

Image.FileName = (Server.MapPath("/upload/images/cards/vykort/"&strFileName))
Image.SaveImage

Set Image = Nothing
%>

hm... det fungerar för mig.

solbulle skrev:

hm... det fungerar för mig.

nu gick det visst, men ser bilden lika lustig ut hos dig som hos mig
http://kort.webbisen.com/vykort/viewCard.asp?id=200504011734521734

kan nån ladda upp bild och skicka för att se hur resultatet blir....det är bara att skicka till samma adress som du skickar från, det är bara för att du ska få mailet där du kan läsa ditt kort

jag vill veta vilka format och vilken kvalitet på bilden som ger ett bra resultat och vilket som sabbar bilden

Nån som kan svara på varför få bilder blir bra och resten bara blir bra i överkanten och sen bara skit på resten när man laddar upp och skalar?

Ingen som vet varför vissa bilder sabbas efter uppladdning och skalning?