ufak bi yardım lütfen !

komikhane · 24 Ekim 2006

arkadaşlar resmin üstüne yazı yazdırmak istiyorum kodu buldum çalışıyor; ancak benim farklı bir sorum var. aşağıda verdiğim kodda resim.jpg yazan yere access veritabanından bir veri çekmem gerekiyor. kısacası resim.jpg yazan yere nasıl <%=rs("resim")%> yazarım ?

HTML:

<%Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath("resim.jpg")
Jpeg.Open Path
x=10 'yazının koordinatları
y=90
Jpeg.Canvas.Font.size = 19
Jpeg.Canvas.Font.Color = &000000
Jpeg.Canvas.Font.Family = "Comic Sans MS"
Jpeg.Canvas.Font.Bold = false
Jpeg.Canvas.Print x, y, "text"
Jpeg.Canvas.Pen.Color = &000000
Jpeg.Canvas.Pen.Width = 0
Jpeg.Canvas.Brush.Solid = false
Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height
Jpeg.SendBinary
%>

yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

saygılar,

bytuncay · 24 Ekim 2006

istediğin bu mu ?

<%Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath(""&rs("resim")&"")
Jpeg.Open Path
x=10 'yazının koordinatları
y=90
Jpeg.Canvas.Font.size = 19
Jpeg.Canvas.Font.Color = &000000
Jpeg.Canvas.Font.Family = "Comic Sans MS"
Jpeg.Canvas.Font.Bold = false
Jpeg.Canvas.Print x, y, "text"
Jpeg.Canvas.Pen.Color = &000000
Jpeg.Canvas.Pen.Width = 0
Jpeg.Canvas.Brush.Solid = false
Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height
Jpeg.SendBinary
%>

komikhane · 25 Ekim 2006

evet istedğim oydu, ama database bağlantıları ve yol doğru olmasına rağmen

HTML:

ADODB.Recordset error '800a0cc1' 

Item cannot be found in the collection corresponding to the requested name or ordinal.

bu hatayı veriyor. herhalde başka bir yolu var ben çözemedim

masques · 25 Ekim 2006

<%Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath(rs("resim"))
Jpeg.Open Path
x=10 'yazının koordinatları
y=90
Jpeg.Canvas.Font.size = 19
Jpeg.Canvas.Font.Color = &000000
Jpeg.Canvas.Font.Family = "Comic Sans MS"
Jpeg.Canvas.Font.Bold = false
Jpeg.Canvas.Print x, y, "text"
Jpeg.Canvas.Pen.Color = &000000
Jpeg.Canvas.Pen.Width = 0
Jpeg.Canvas.Brush.Solid = false
Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height
Jpeg.SendBinary
%>

Not : Birde resim adreslerini http://xxx.com/resim1.jpg şeklinde yazarsan olmaz.Klasör olarak yazacaksın sadece örneğin img klasöründeyse veri tabanındaki resim adreslerini img/resim1.jpg kaydetmen lazım başında site ismi olmayacak yani.Forumu fazla takip edemiyorum olmazsa pm at çözeriz

trextra · 26 Ekim 2006

Hangi klasörde olduğunda önemli servermappath komutu için. Nokta ile roota inip sonra resmin bulunduğu üst klasöre çıkabilirsin garanti olur. Ben öyle kullanıyorum. Olmazsa sayfayı komple buraya yaz hallederiz.

Jpeg.Open Server.MapPath(".") & "\Klasörün\" & rs("Resim")

komikhane · 26 Ekim 2006

masques' Alıntı:
<%Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath(rs("resim"))
Jpeg.Open Path
x=10 'yazının koordinatları
y=90
Jpeg.Canvas.Font.size = 19
Jpeg.Canvas.Font.Color = &000000
Jpeg.Canvas.Font.Family = "Comic Sans MS"
Jpeg.Canvas.Font.Bold = false
Jpeg.Canvas.Print x, y, "text"
Jpeg.Canvas.Pen.Color = &000000
Jpeg.Canvas.Pen.Width = 0
Jpeg.Canvas.Brush.Solid = false
Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height
Jpeg.SendBinary
%>

Not : Birde resim adreslerini http://xxx.com/resim1.jpg şeklinde yazarsan olmaz.Klasör olarak yazacaksın sadece örneğin img klasöründeyse veri tabanındaki resim adreslerini img/resim1.jpg kaydetmen lazım başında site ismi olmayacak yani.Forumu fazla takip edemiyorum olmazsa pm at çözeriz

arkadaş msnden yardımcı oldu, herkese teşekkür ederim.

ufak bi yardım lütfen !

komikhane

0

bytuncay

0

komikhane

0

masques

0

trextra

0

komikhane

0

Çevrimiçi üyeler

Botlar