Generere nye billeder ud fra eksisterende billeder
HejMed aspImage vil jeg hente et billede fra serveren, tilføje noget tekst til billedet og gemme billedet under et nyt navn.
Billedet skal bruges i en menu af billeder...
Jeg bruger denne kode, men billedet bliver ikke genereret.
Hvis jeg bare henter billedet og gemmer under et nyt navn fungerer det fint - det går galt når jeg vil tilføje tekst til billedet.
Kan nogen hjælpe??
<%
'Create the object
Set Image = Server.CreateObject("AspImage.Image")
'Hendt billedet ind
Image.LoadImage "d:\xxx\www\billedetest\images\billede.jpg"
'Set up the text
Image.FontColor = vbBlack
Image.Italic = False
Image.Bold = False
Image.FontName = "Verdana"
Image.FontSize = 16
Image.ImageFormat = 1
Image.JPEGQuality = 100
strText = "Dette er en test"
'Will place the text 18 pixels from the bottom and 1 pixel from the left of the picture
'This property will get the height of the loaded image
Height = Image.MaxY
Image.TextOut strText, 1, Height-18, True
'Set the file name for saving, directory must be set to "Everyone - Everything" permissions
Image.FileName = "d:\web\xxx\www\billedetest\images\text_billede.jpg"
Image.SaveImage
if Image.SaveImage then
rem The image was saved so write the <img src> tag out for the browser to pick up
Response.Write "<img src=""http://www.xxx/billedetest/images/text_billede.jpg""><br>"
else
rem Something happened and we couldn't save the image so just use an HTML header
rem We need to debug the script and find out what went wrong. See Image.Error for details
Response.Write "<h2>Welcome to</h2>"
end if
%>
