---

Hej...

Jeg har forsøgt at lave en funktion med komponenten AspImage, som dynamisk
kan hente div. billeder for mig - men det går helt galt. Er der nogen, der
har en
idé om, hvad der er galt. Det "sjove" er, at det fungerer fint, hvis det
ikke køres som
en funktion, hvor sti osv. er variabler, men hvor de er skrevet direkte ind
i koden....

Den her kode gi´r kun mærklige koder - det ligner noget binært-noget...?!?
....og min billed-sti er go' nok!

------- Code Start -------
<%

Function ShowThumbNail(strFuldeSti, strFilNavn, intSize)

Response.write "strFuldeSti = " & strFuldeSti & "<br>"
Response.write "strFilNavn = " & strFilNavn & "<br>"
Response.write "intSize = " & intSize & "<br><br>"


If (IsNull(intSize)) OR strFuldeSti = "" OR strFilNavn = "" Then
Response.write "FEJL"
Else


Set MyImage = Server.CreateObject("AspImage.Image")


'Thumbnail-filnavnet med extension
Dim strThumbName
strThumbName = "thumb.jpg"

Dim strOriginal, strThumb, ResizedX, ResizedY
strOriginal = strFuldeSti & strFilNavn
strThumb = strFuldeSti & strThumbName

Response.write "strOriginal = " & strOriginal & "<br>"
Response.write "strThumb = " & strThumb & "<br><br>"


'Henter det originale billede
MyImage.LoadImage strOriginal

'Resize
ResizedX = intSize
MyImage.GetImageFileSize strOriginal, X, Y
MyImage.MaxX = X
MyImage.MaxY = Y

'Fixer størrelsen - aspect ratio
ResizedY = (ResizedX / MyImage.MaxX) * MyImage.MaxY
MyImage.ResizeR ResizedX, ResizedY

'Skriver Thumbnail direkte til klienten
'MyImage.CreateButton 1, True
MyImage.ImageFormat = 1
MyImage.JPEGQuality = 40
ProgressiveJPEGEncoding = true
Response.BinaryWrite MyImage.Image

'Cleanup
Set MyImage = Nothing

End If

End Function


Response.write "<b>Her kaldes funktionen alm.</b><br>"
Call ShowThumbNail(Request.ServerVariables("APPL_PHYSICAL_PATH") &
"images\mc\", "01_1.jpg", "100")

Response.write "<br><br><b>Her er funktionen hentet som et img.</b><br>"
Response.write "<img scr='" &
ShowThumbNail(Request.ServerVariables("APPL_PHYSICAL_PATH") & "images\mc\",
"01_1.jpg", "100") & "'>"
%>

------- Code END -------



mvh.
Andreas

---

> Jeg har forsøgt at lave en funktion med komponenten AspImage, som dynamisk
> kan hente div. billeder for mig - men det går helt galt. Er der nogen, der
> har en
> idé om, hvad der er galt. Det "sjove" er, at det fungerer fint, hvis det
> Den her kode gi´r kun mærklige koder - det ligner noget binært-noget...?!?
> ...og min billed-sti er go' nok!
> ------- Code Start -------
> <%
> Response.write "strFuldeSti = " & strFuldeSti & "<br>"
> Response.write "strFilNavn = " & strFilNavn & "<br>"
> Response.write "intSize = " & intSize & "<br><br>"
> ...
> Response.BinaryWrite MyImage.Image

Du kan ikke både bruge response.write og response.binarywrite på samme
side - browseren skal udelukkende have de binære data, for at fatte at der
er tale om et billede. Drop dine response.write og du vil se at det virker.
Bemærk, at du muligvis også skal sætte content-type!

mvh
Kim Jensen

---

> > ------- Code Start -------
> > <%
> > Response.write "strFuldeSti = " & strFuldeSti & "<br>"
> > Response.write "strFilNavn = " & strFilNavn & "<br>"
> > Response.write "intSize = " & intSize & "<br><br>"
> > ...
> > Response.BinaryWrite MyImage.Image
>
> Du kan ikke både bruge response.write og response.binarywrite på samme
> side - browseren skal udelukkende have de binære data, for at fatte at der
> er tale om et billede. Drop dine response.write og du vil se at det
virker.
> Bemærk, at du muligvis også skal sætte content-type!
>
> mvh
> Kim Jensen


Hej Kim...

Jeg har nu fjernet alt response.write i min AspImage-fil, men hvis jeg laver
en include af den til en anden fil, der indeholder response.write eller
andet
html, virker det heller ikke. Hvordan kommer jeg ud over det problem? Jeg
skulle jo helst gerne have andet på siden end bare et lille thumbnail-foto.

mvh.
Andreas

---

> Jeg har nu fjernet alt response.write i min AspImage-fil, men hvis jeg
laver
> en include af den til en anden fil, der indeholder response.write eller
> andet
> html, virker det heller ikke. Hvordan kommer jeg ud over det problem? Jeg
> skulle jo helst gerne have andet på siden end bare et lille
thumbnail-foto.

Du skal netop ikke have andet output fra din ASP end de binære billeddata.
Hvis du skal vise billedet som del af en HTML side, skal du lave noget ala
dette:

visbillede.asp:
-hent de binære data
-udskriv de binære data med response.binarywrite

minside.asp
<html>....
<img src="visbillede.asp?id=3">
....
</html>

-altså opdelt i 2 filer. I "minside.asp" kan du så have eventuelle include
der skriver andre ting og sager ud.

Håber, at det forklarer det...


mvh
Kim Jensen

---

Kanon...

Mange tak - det var lige, hvad jeg havde brug for.


mvh.
Andreas


> Du skal netop ikke have andet output fra din ASP end de binære billeddata.
> Hvis du skal vise billedet som del af en HTML side, skal du lave noget ala
> dette:
>
> visbillede.asp:
> -hent de binære data
> -udskriv de binære data med response.binarywrite
>
> minside.asp
> <html>....
> <img src="visbillede.asp?id=3">
> ...
> </html>
>
> -altså opdelt i 2 filer. I "minside.asp" kan du så have eventuelle include
> der skriver andre ting og sager ud.
>
> Håber, at det forklarer det...
>
>
> mvh
> Kim Jensen
>
>