Aspupload og aspimage

Kan man ikke tildele flere point

Du skal næsten slå Upload bilelde + resize og vis billede på samme side:

Når billedet er gemt med ASPupload så laver du resize med ASPimage og viser bileldet. Du kan lave en form så billede navnet bliver overfør til siden som gemmer i databasen.


Skal der andre data med en filen?


Søger du også hjælp til et resize script så kan det set ud i stil med dette:




filStiNavn = "c:\sti\til\filen\billede.jpg"

Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage filStiNavn
intWidth = 400
If (Image.MaxX > intWidth) OR (Image.MaxY > intWidth) Then
    If(Image.MaxX > Image.MaxY) Then
        intRatio = ((intWidth * 100) / Image.MaxX)
        intNewY = CInt(Image.MaxY * (intRatio / 100))
        Image.ResizeR intWidth, intNewY
        Image.ImageFormat = 1           
    Else
        intRatio = ((intWidth * 100) / Image.MaxY)
        intNewX = CInt(Image.MaxX * (intRatio / 100))
        Image.ResizeR intNewX, intWidth
        Image.ImageFormat = 1
    End if
End If
Image.FileName = filStiNavn
Image.SaveImage
Set Image = Nothing

Det var nu ikke lige det svar jeg ledte efter.. jeg vil gerne vide hvordan man kommer fra aspupload (memory upload) til aspimage uden at gemme billedet på disken først

Ok, jeg har aldrig prøvet det du spørger efter og måske er det muligt.

ASPImage har en .LoadBlob metode, dog skriver de i deres dokumentation at data skal komme fra en ASPImage.Image property eks:

Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage ("d:\inetpub\wwwroot\images\map.jpg")

Set Image2 = Server.CreateObject("AspImage.Image")
Image2.LoadBlob Image.Image, 1


Og ASPUpload's file object har en .Binary property som man kan bruge til at skvie billede data direkte til en database:

rs("image_blob).Value = File.Binary



Så måske man kan kombinere de to ting så det bliver i stil med dette:

Set Image = Server.CreateObject("AspImage.Image")
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save
Set File = Upload.Files("fil1")
Image.LoadBlob = File.Binary

Det virker desværre ikke

Jeg tror jeg laver det på den nemme måde og gemmer det på disken istedet...