ASPImage giver mig grå hår

hvad skulle det gøre??

Ja, det er kun et test script for at få lortet til at virke
- det henter billedet - aflæser og udskriver original str. ( intet problem) - resize billedet - vise det resizede billede ( viser kun binære data) og sluttelig bare vise den nye resizede størrelse ( virker).

i.e - det skulle gerne lave en thumbnail af et jpg billede.

Henrik

Billedet som i test skal resizes ligger her:

http://www.web4it.dk/blaabog/3_real/isbjerg.jpg

og koden ligger her:

http://www.web4it.dk/blaabog/test2.asp

hvad fanden er galt - selv uden resize, kommer der ikke andet end binære data ??

Henrik

Prøv og fjern denne linie:
Response.ContentType = "image/jpeg"

Hvis det heller ikke virker så sig lige til.

/Goose

Hej Goose - har prøvet og prøver det nu igen. Samme resultat. Check selv for oven. Flere grå hår - koden er nu so følger:

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<%
            Set Image = Server.CreateObject("AspImage.Image")

            Image.LoadImage "d:\home\web4itdk\www\blaabog\3_real\" & "Isbjerg.jpg"
            Response.Write "<p><b>Billedet var : </b>" & Image.MaxX & "x" & Image.MaxY & ".</p>"
           
            intRatio = ((75 * 100) / Image.MaxX)
            intNewY = CInt(Image.MaxY * (intRatio / 100))
            Image.ResizeR 75, intNewY
            Image.ImageFormat = 1
           
           
            Response.BinaryWrite Image.Image
            Response.Write "<p><b>Billedet er  nu kun: </b>" & Image.MaxX & "x" & Image.MaxY & ".</p>"
            Set Image = nothing   
   
%>
</body>
</html>

Denne ker virker både ved A0.dk og scannet:

<%
'*** get width/height of original image
Set objImg = Server.CreateObject("AspImage.Image")
objImg.LoadImage "d:\xxx\xxx\xxx\pic\" & request.querystring("FileName")
ImageHeight = objImg.MaxY
ImageWidth = objImg.MaxX
size = Cint(request.querystring("size"))

if ImageHeight < size then
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage "d:\www\www\www\pic\" & request.querystring("FileName")
Image.ImageFormat = 1
Image.JPEGQuality = 80
Response.BinaryWrite Image.Image
Set Image = Nothing
Set objImg = Nothing
end if

NewHeight = Cint(ImageHeight*size/ImageWidth)
NewWidth = size
Set objImg = Nothing
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage "d:\xxx\xxx\xxx\pic\" & request.querystring("FileName")
Image.ImageFormat = 1
Image.JPEGQuality = 80
Image.ResizeR NewWidth,NewHeight
Response.BinaryWrite Image.Image
Set Image = Nothing
%>

- så må du selv forsøge dig frem

/Goose

Jeg bruger ovenstående i forbindelse med fremstilling af thumbnails, og jeg har så bredde med i requesten, altså size=250 f.eks.

/Goose

Hi Goose - jg ved f... ikke hvad der kører løs her. Nu virker det, men hvor er forskellen ???? forresteb er size ikke et reserveret ord ??? Tak anyway Goose.

Henrik

http://www.web4it.dk/blaabog/thumbnail1.asp

med følgende kode:

<%
FileName= "Isbjerg.jpg"
size= 250
'*** get width/height of original image
Set objImg = Server.CreateObject("AspImage.Image")
objImg.LoadImage "d:\home\web4itdk\www\blaabog\3_real\" & FileName
ImageHeight = objImg.MaxY
ImageWidth = objImg.MaxX


if ImageHeight < size then
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage "d:\home\web4itdk\www\blaabog\3_real\" & FileName
Image.ImageFormat = 1
Image.JPEGQuality = 80
Response.BinaryWrite Image.Image
Set Image = Nothing
Set objImg = Nothing
end if

NewHeight = Cint(ImageHeight*size/ImageWidth)
NewWidth = size
Set objImg = Nothing
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage "d:\home\web4itdk\www\blaabog\3_real\" & FileName
Image.ImageFormat = 1
Image.JPEGQuality = 80
Image.ResizeR NewWidth,NewHeight
Response.BinaryWrite Image.Image
Set Image = Nothing
%>

Goose - jeg har skevet lidt om på din kode, som udfører det samme:

<%
    FileName= "Isbjerg.jpg"
    size= 250
    '*** get width/height of original image
    Set objImg = Server.CreateObject("AspImage.Image")
    objImg.LoadImage "d:\home\web4itdk\www\blaabog\3_real\" & FileName
    ImageHeight = objImg.MaxY
    ImageWidth = objImg.MaxX
    Set objImg = Nothing
    Set Image = Server.CreateObject("AspImage.Image")
    Image.LoadImage "d:\home\web4itdk\www\blaabog\3_real\" & FileName
    Image.ImageFormat = 1
    Image.JPEGQuality = 80
   
if ImageHeight > size then
    NewHeight = Cint(ImageHeight*size/ImageWidth)
    NewWidth = size
    Image.ResizeR NewWidth,NewHeight
end if
    Response.BinaryWrite Image.Image
    Set Image = Nothing
%>

tilsyneladende er skal objektet kaldes to gange for at kunne virke ???

Henrik

Sorry Goose et al. Jeg er ikke helt færdig med det object endnu. Det virker tilsyneladende kun, når der kun sendes netop dette grafik ud. Er der tekst eller andet foran dur det ikke mere.

Man skal kalde det hele fra en anden page http://www.web4it.dk/blaabog/thumbtest.asp - jeg store fjols:

<div align="center"><a href="3_real/Isbjerg.jpg"><img src='thumbnail.asp?FileName=Isbjerg.jpg&size=200' alt='miniature billede 2'  border="0" ></a></div>

Altså intet andet end det binære output i filen thumbnail.asp, som kom til at se sådan ud:
---- thumbnail.asp
<% FileName=request.querystring("FileName")

size=Cint(request.querystring("size")) %>

   
<%
    Response.ContentType = "image/jpeg"
    '*** get width/height of original image
    Set Image = Server.CreateObject("AspImage.Image")
    Image.LoadImage "d:\home\web4itdk\www\blaabog\3_real\" & FileName
    ImageHeight = Image.MaxY
    ImageWidth = Image.MaxX
   
    Image.ImageFormat = 1
    Image.JPEGQuality = 80
   
if ImageHeight > size then
    NewHeight = Cint(ImageHeight*size/ImageWidth)
    NewWidth = size
    Image.ResizeR NewWidth,NewHeight
end if
    Response.BinaryWrite Image.Image
    Set Image = Nothing

%>

Slut og tak for denne gang - Henrik