webForumDet fria alternativet

Text på bild med aspjpeg (loopia)

ASP

12 svar · 512 visningar · startad av Melitta

Medlem sedan sep. 2003448 inlägg
Frågan#1

Sitter här med en klurig än, fick för mig att jag skulle vilja ha text på mina bilder och började exprimentera med det. Jag har fått igång det på min egen server där det fungerar perfekt men när jag kör samma script på loopia som jag har sidan hos funkar det inte alls, den gör om storleken och skickar ut bilden men skriver inget. Nån som stött på samma probbs och i sånna fall vad är felet?

<%
img = server.MapPath(Request("src"))
Set jpeg = Server.CreateObject("Persits.Jpeg")
jpeg.Open( img )

if jpeg.OriginalWidth > 360 or jpeg.OriginalHeight > 300 then
if jpeg.OriginalWidth > jpeg.OriginalHeight then
jpeg.Width = Request("width")
jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth
else
jpeg.Height = "300"
jpeg.Width = jpeg.OriginalWidth * jpeg.Height / jpeg.OriginalHeight
end if
end if

[B]Jpeg.Canvas.Font.Color = &HFF0000
Jpeg.Canvas.Font.Family = "Courier New"
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Print 10, 10, "Copyright (c) d-zon.net"[/B]

jpeg.SendBinary
%>

Henke @ http://www.d-zon.net

Medlem sedan okt. 20005 273 inlägg
#2

Nu har jag inte brukat aspjpeg någonting, men har du samma version på din lokala burk som den hos loopia då ?

mv icaaq

Medlem sedan sep. 2003448 inlägg
#3

Jajjemen, 1,3. Hemma har jag bara demot..

Medlem sedan nov. 20031 018 inlägg
#4

Jag har också samma problem och jag använder också loopia.

Loopias hjälp manual

Medlem sedan nov. 20031 018 inlägg
#5

Jag får fram en ram runt bilden men ingen text.

Jpeg.Canvas.Font.Color = &HFF0000' red
Jpeg.Canvas.Font.Family = "Courier New"
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Print 10, 10, "Copyright (c) XYZ, Inc."

' Draw frame: black, 2-pixel width
Jpeg.Canvas.Pen.Color = &HFFFFFF' black
Jpeg.Canvas.Pen.Width = 4
Jpeg.Canvas.Brush.Solid = False ' or a solid bar would be drawn
Jpeg.Canvas.Bar 1, 1, Jpeg.OriginalWidth, Jpeg.OriginalHeight
Medlem sedan nov. 20031 018 inlägg
#6

Fick fram texten när jag bytte ut "Courier New" till "Verdana".
Fast hur får man in texten i ramen som skapas och inte över hela bilden.

Medlem sedan sep. 2003448 inlägg
#7

Ja mitt hoppade igång här nu också, antagligen nått strul från loopias sida men nu funkar det perffa :)

Medlem sedan nov. 20031 018 inlägg
#8

Nu la mitt av att funka helt fast jag inte har ändrat något?

Medlem sedan sep. 2003448 inlägg
#9

Ja mitt har lagt av och hoppat igång flera gånger nu, verkar ju inte vara den stabilaste komponenten kanske :/

Medlem sedan nov. 20018 492 inlägg
#10

Drar upp en gammal tråd nu men jag har problem på just Loopia så...
Jag får bara ett vitt fält istället för text på mina bilder! Sitter och jobbar mot Loopiaservern så jag kan tyvärr inte testa det på något mer ställe. Hur fungerar det för er andra?

objJpeg.Open File.Path

If objJpeg.OriginalWidth > objJpeg.OriginalHeight Then
objJpeg.Width = 400
objJpeg.Height = 300
Else
objJpeg.Width = 400
objJpeg.Height = 300
End If

objJpeg.Canvas.Font.Color = &Hffffff
objJpeg.Canvas.Font.Family = "Verdana"
objJpeg.Canvas.Font.Bold = False
objJpeg.Canvas.Font.Size = 11
objJpeg.Canvas.Font.Quality = 4
objJpeg.Canvas.Font.BkMode = "Opaque"
objJpeg.Canvas.Print 3, 286, "(C) detrevannernaochjimmy.com"

objJpeg.Quality = 90

objJpeg.Save File.Path
Medlem sedan maj 20018 027 inlägg
#11

Mika3l skrev:

objJpeg.Canvas.Font.Color = &Hffffff

Då lär väl texten bli vit? Inte bra om det är på ett vitt fält.

Medlem sedan nov. 20018 492 inlägg
#12

Det blir ingen text ö.h.t utan det blir ett vitt fält istället för text.

Medlem sedan nov. 20018 492 inlägg
#13

Nu har jag äntligen fått det att fungera! 100% kodfel och 0% komponentfel (förutom förvirrande exempel)! ;)

objJpeg.Canvas.Font.Color = &HFFFFFF
objJpeg.Canvas.Font.Family = "Verdana"
objJpeg.Canvas.Font.Bold = true
objJpeg.Canvas.Font.Size = 13
objJpeg.Canvas.Font.Quality = 4
objJpeg.Canvas.Font.BkMode = "Transparent"
objJpeg.Canvas.Print 2, 284, "(c) detrevannernaochjimmy.com"
261 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
125 ms — deklarationer (db)
0 ms — hämta statistik (cache)
132 ms — hämta tråd, inlägg och bilagor (db)
124 ms — ändringar (db)