Eviga frågan: AspImage

Ja, det ska väl vara möjligt. Men jag hade nog försökt att inte göra det.
http://www.webforum.nu/showthread.php?p=86678#post86678
Och istället för att läsa in orginal bildens binära data får du krympa den med AspImage och spotta ut AspImages bild data istället.

Kom ihåg att den först måste läsa av orginal bilden... sen krympa den med AspImage och sen igen läsa av den nya datan och visa den nya datan på bilden... och detta sker varje gång du uppdatera sidan då det är en dynamisk fil du läser in som bild källa (img src="bild.asp?bild=bob.gif").

Någon form av kombination av dessa?

<%
Set Image = Server.CreateObject("AspImage.Image")
Image.Loadimage(strFilePath)

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

Image.FileName = strFilePath
Image.SaveImage
%>

<%
Response.ContentType = "application/x-whatever"
Const adTypeBinary = 1
Dim strFilePath
 
strFilePath = Server.MapPath("elo.gif") 'This is the path to the file on disk. 
 
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath
 
Response.BinaryWrite objStream.Read
 
objStream.Close
Set objStream = Nothing%>

Jag har aldrig använt mig av AspImage

Men det lilla jag förstå så ska du ju inte använda dig av "Image.SaveImage" eftersom du inte ville spara den? Response.ContentType ska nog också ändras
Sen ska du nog köra din image klass "inne" i din binära data..

<%
Response.ContentType = "application/x-whatever"
Dim strFilePath
strFilePath = Server.MapPath(Request.QueryString("url"))

Set Image = Server.CreateObject("AspImage.Image")
Image.Loadimage(strFilePath)

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

Response.BinaryWrite Image.Image

Set Image = Nothing
%>

Inte testad, läste bara lite snabbt manualen för AspImage

När jag kör koden, får jag upp en ruta där det står om jag vill öppna eller spara filen. Samma för er?

http://denvitaharen.net/test.asp?url=elo.gif

Använd en riktigt Response.ContentType = "application/x-whatever" så ska du nog se att den fungera bättre..

<%
Dim strFilePath, sFileType, vFile
strFilePath = Server.MapPath(Request.QueryString("url"))

sFileType = "jpeg"
If InStr(strFilePath,".") Then
	vFile = Split(strFilePath,".")
	sFileType = vFile(Ubound(vFile)
End If

Response.ContentType = "image/" & sFileType

Set Image = Server.CreateObject("AspImage.Image")
Image.Loadimage(strFilePath)

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

Response.BinaryWrite Image.Image

Set Image = Nothing
%>

För fortfarande spara/öppna om jag kör en jpeg bild: http://denvitaharen.net/test.asp?url=goal.jpg

Kör jag en gif bild får jag en tom vit bild: http://denvitaharen.net/test.asp?url=elo.gif

hm..

goal.jpg fungerade för mig var ligger elo.gif så man kan se vad resultatet skall vara.

Får du alltså inte upp en ruta med Spara/Öppna/Avbryt när du kör http://denvitaharen.net/test.asp?url=goal.jpg ?

Elo.gif ligger i samma mapp som test.asp

ImageFormat = 1 är endast för JPG...
Läs http://www.serverobjects.com/comp/Aspimage.htm

och nej.. jag får inte upp Spara fältet... Firefox/Opera på en Mac testar jag det på nu.

Men Safari vill bara spara filen. prova lägga in innehållet i en <img> tagg...

<%
Dim strFilePath, sFileType, vFile
strFilePath = Server.MapPath(Request.QueryString("url"))

sFileType = "jpeg"
If InStr(strFilePath,".") Then
	vFile = Split(strFilePath,".")
	sFileType = vFile(Ubound(vFile)
End If

Response.ContentType = "image/" & sFileType

Set Image = Server.CreateObject("AspImage.Image")
Image.Loadimage(strFilePath)
Image.Resize 400,250

Response.BinaryWrite Image.Image

Set Image = Nothing
%>

prova det...

Läste precis:

Why doesn't AspImage support GIF?

Unisys differentiates between servers and workstations in their GIF licensing policies. In the case of Web servers, they expect the operator of the Web server to pay $1500 a year to allow dynamic generation of GIF images. Our suggestion is to avoid GIF. We don't support GIF LZW (Unisys) under any conditions.

Nått är skumt eftersom jag fortfarande får upp spara/öppna fältet... men eftersom du inte får det beror det på klienten?