---
title: "Text på bild med aspjpeg (loopia)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/96736-text-på-bild-med-aspjpeg-loopia"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Melitta"
published: "2004-02-06T20:07:05.000Z"
updated: "2005-08-26T20:42:12.000Z"
replies: 12
views: 519
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/96736-text-på-bild-med-aspjpeg-loopia"
---

# Text på bild med aspjpeg (loopia)

## #1 — Melitta, 2004-02-06T20:07Z

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>

Permalänk: https://www.webforum.nu/p/96736

## #2 — icaaq, 2004-02-06T20:14Z

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

mv icaaq

Permalänk: https://www.webforum.nu/p/1270360

## #3 — Melitta, 2004-02-06T20:19Z

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

Permalänk: https://www.webforum.nu/p/1270363

## #4 — Bosse168, 2004-02-09T13:11Z

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

[Loopias hjälp manual](http://help.loopia.se/components/JpgManual.htm)

Permalänk: https://www.webforum.nu/p/1271588

## #5 — Bosse168, 2004-02-09T14:00Z

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
```

Permalänk: https://www.webforum.nu/p/1271616

## #6 — Bosse168, 2004-02-09T14:23Z

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.

Permalänk: https://www.webforum.nu/p/1271632

## #7 — Melitta, 2004-02-11T12:27Z

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

Permalänk: https://www.webforum.nu/p/1273060

## #8 — Bosse168, 2004-02-21T00:13Z

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

Permalänk: https://www.webforum.nu/p/1280939

## #9 — Melitta, 2004-02-21T13:10Z

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

Permalänk: https://www.webforum.nu/p/1281120

## #10 — Mika3l, 2005-08-25T20:07Z

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
```

Permalänk: https://www.webforum.nu/p/1662864

## #11 — UlfT, 2005-08-25T20:23Z

> **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.

Permalänk: https://www.webforum.nu/p/1662873

## #12 — Mika3l, 2005-08-26T15:23Z

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

Permalänk: https://www.webforum.nu/p/1663073

## #13 — Mika3l, 2005-08-26T20:42Z

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"
```

Permalänk: https://www.webforum.nu/p/1663132

---

Tråden på webben: https://www.webforum.nu/amne/asp/96736-text-på-bild-med-aspjpeg-loopia