webForumDet fria alternativet

aspjpeg och lägg till text under bild

ASP

7 svar · 389 visningar · startad av timedia

Medlem sedan maj 2001420 inlägg
Frågan#1

Använder nedanstående kod, men den behöver ändras. Vad jag vill uppnå är att bilden när den skalas ner lägger till ett vitt fält under där det blir plats till två linjer text.

Alltså ska man i formuläret förutan att ladda upp bild kunna lägga till text via 2 textfält. Är detta möjligt? -och hur?

Path = Server.MapPath(mySmartUpload.Form("map")) & "/" & mappa
Jpeg.Open Path

' New width
L = 340

' Resize, preserve aspect ratio

Jpeg.Height = L
Jpeg.Width = Jpeg.OriginalWidth * L / Jpeg.OriginalHeight

' Draw text
Jpeg.Canvas.Font.Color = &H000000 ' Svart
Jpeg.Canvas.Font.Family = "Courier New"
Jpeg.Canvas.Font.Size = 10
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Font.Quality = 4 ' Antialiased
Jpeg.Canvas.Font.BkMode = "Opaque" ' to make antialiasing work
Jpeg.Canvas.Print 10, 10, "[B]field1 <br> field2[/B]"

Jpeg.Save Server.MapPath(mySmartUpload.Form("map")) & "/big_" & mappa
Medlem sedan jan. 2003438 inlägg
#2

finns lite hjälp om detta här:

http://www.aspjpeg.com/manual_05.html#5_1

Medlem sedan maj 2001420 inlägg
#3

Har läst manualen, men lyckas inte hitta det jag är ute efter :(
Någon som vet hur jag ska göra?

Medlem sedan apr. 20031 660 inlägg
#4

HEJ!

Jag har aldrig använt komponenten, men tittade i manualen, och undrar vad du fastnar på?

Jpeg.Canvas.Print 10, 10, "field1 <br> field2"

Får du inte in det värde du har i field1 här?
Det är väl endast att hämta den med Request till den variabeln, och sedan är det rätt, enligt manualens
Jpeg.Canvas.PrintText 10, 10, "Some Text"

Dock, ditt <br> tror jag du får ta bort, då jag tror det tolkas som <+b+r+>, dvs inte som html.
Du får göra göra två .Print.

Medlem sedan maj 2001420 inlägg
#5

Kanske uttrycker mig lite klumpigt, sry!

vad jag fastnar på är att jag vill lägga till ett vitt fält under bilden där jag behöver plats för 2 textrader. hur gör jag detta utan att förstöra något på bilden?

Medlem sedan sep. 2003448 inlägg
#6

jpeg.Crop 0, 0, jpeg.Width, jpeg.Height + 20

ger 20px vitt längstner på bilden utan att tabort något.

Medlem sedan apr. 20031 660 inlägg
#7

HEJ!

Njae, det var egentligen inte klumpigt, du skrev ju faktiskt "...lägger till under...".

SannyW trodde i bilden, och då blev jag felledd, men Melitta löste det efter ditt förtydligande av vad under betyder...
Gemensamma krafter är bra!

Utöka bilden finns givetvis i manualen också, http://www.aspjpeg.com/manual_04.html#4_3, lösningen fanns alltså nära dig ändå.

Medlem sedan maj 2001420 inlägg
#8

KANON :birp

Ska försöka imorron - tror jag lyckas nu!

261 ms totalt · 4 externa anrop · v20260731065814-full.e96017d9
121 ms — deklarationer (db)
0 ms — hämta statistik (cache)
136 ms — hämta tråd, inlägg och bilagor (db)
119 ms — ändringar (db)