Nu har jag inte brukat aspjpeg någonting, men har du samma version på din lokala burk som den hos loopia då ?
mv icaaq
12 svar · 512 visningar · startad av Melitta
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
Nu har jag inte brukat aspjpeg någonting, men har du samma version på din lokala burk som den hos loopia då ?
mv icaaq
Jajjemen, 1,3. Hemma har jag bara demot..
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
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.
Ja mitt hoppade igång här nu också, antagligen nått strul från loopias sida men nu funkar det perffa :)
Nu la mitt av att funka helt fast jag inte har ändrat något?
Ja mitt har lagt av och hoppat igång flera gånger nu, verkar ju inte vara den stabilaste komponenten kanske :/
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
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.
Det blir ingen text ö.h.t utan det blir ett vitt fält istället för text.
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"