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
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
%>
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
