AspImage Text?

5 svar · 320 visningar · startad av Bosse168 17 mars 2004

Bosse168Medlem sedan nov. 20031 018 inlägg

Frågan17 mars 2004 17:06#1

Lyckas att ladda upp bilden men den skriver inte ut någon text på bilden.

File.SaveAs Server.MapPath("bilder") &"\"& NewName & Ext

'-------------------------

' Create instance of AspJpeg

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

  Image.AntiAliasText = True
  Image.FontColor = vbWhite
  Image.Italic = False
  Image.Bold = True
  Image.FontName = "Verdana"
  Image.FontSize = 7
  Image.PadSize = 2

  strMessage = "Texten....."
  

  Image.X = Image.MaxX - Image.TextWidth (strMessage) - 1
  Image.Y = Image.MaxY - Image.TextHeight (strMessage) - 2
  Image.TextOut strMessage, Image.X, Image.Y, true
 

' Set the filename and save
Image.FileName = Server.MapPath("bilder") &"\"& NewName & Ext

Bosse168Medlem sedan nov. 20031 018 inlägg

17 mars 2004 17:08#2

Och hur gör man thumbnails i AspImage?

Bosse168Medlem sedan nov. 20031 018 inlägg

30 mars 2004 13:27#3

Ingen som vet hur man gör thumbnails (80px i bredd) med aspImage?

Bosse168Medlem sedan nov. 20031 018 inlägg

30 mars 2004 13:30#4

Eller kan man göra det samtidigt som man laddar upp bilden med aspUpload?

dAEkMedlem sedan feb. 20041 816 inlägg

30 mars 2004 13:59#5

Jag vet inte. Men har du kollat i dokumentationen / API:t ?
Det borde stå där om det går, annars är risken stor att det inte är möjligt mha de komponenterna.

Bosse168Medlem sedan nov. 20031 018 inlägg

30 mars 2004 14:17#6

Hittade den här koden som ska göra bilden mindre. Någon som vet hur man ändrar den så att bilden blir 80px i bredd och istället för att ta en bild från servern så ska den spara bilden som laddades upp via mitt formulär?

function CreateThumbnail(strPath, strFilename, maxX, maxY)
Set image = server.createobject("aspimage.image")
if image.loadimage(strPath & "\" & strFilename) then
intWidth = image.MaxX
intHeight = image.MaxY

if (intWidth<MaxX) and (intHeight<MaxY) then
if intWidth>intHeight then
intRatio=(maxX/intWidth)
image.resizeR intWidth*intRatio, intHeight*intRatio
else
intRatio=(maxY/intHeight)
image.resizeR intWidth*intRatio, intHeight*intRatio
end if
end if

'Optimised for JPEG thumbnails - generally better than GIFs
Image.ImageFormat = 1
Image.PixelFormat = 6
strSfilename=split(strFilename,".")
Image.Filename=strPath & "\thumb_" & strSfilename(0)
picture="thumb_" & strSfilename(0) 
if Image.SaveImage then
response.write "<img src=""pics/" & picture & ".jpg"">"
Set Image = nothing
else
'You may want to put some kind of error handler in here
Set Image = nothing
end if
else
'Error while loading, abort
Set Image = nothing
exit function
end if
end function

%>

<%Test=CreateThumbnail("c:\inetpub\wwwroot\pics", "sverige.jpg", "200", "200")%>

<%=Thumb_bild%>