Tek Mesajı Görüntüle
Old 09-09-2008, 01:17 PM   #1
oGuzHan
Müstakbel Üye
 
oGuzHan Kullanıcısının Avatarı
 
Üyelik Tarihi: Jan 2008
Konum: Istanbul
Yaş: 32
Mesajlar: 214
Teşekkür Etme: 6
Thanked 27 Times in 19 Posts
Üye No: 44881
İtibar Gücü: 1337
Rep Puanı : 810
Rep Derecesi : oGuzHan is a splendid one to beholdoGuzHan is a splendid one to beholdoGuzHan is a splendid one to beholdoGuzHan is a splendid one to beholdoGuzHan is a splendid one to beholdoGuzHan is a splendid one to beholdoGuzHan is a splendid one to behold
Cinsiyet : Erkek
Varsayılan ASP ile Resimlerin Üzerine Yazı Yazma

ASPJpeg ile resimler üzerine yazı yazma, boyut ayarlama gibi işlemleri yapabiliriz

<%
Set Jpeg = Server.CreateObject("Persits.Jpeg" )
Path = Server.MapPath("resminiz.jpg" )
Jpeg.Open Path
Jpeg.Canvas.Font.Color = &000000
Jpeg.Canvas.Font.Family = "ARIAL"
Jpeg.Canvas.Font.Bold = FALSE
Jpeg.Canvas.Print 40, 10, "programlama.com"
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
%>


Böylece resim.jpg adlı resim dosyamız üzerine programlama.com şeklinde siyah renk de yazı yazdırdık.Görüldüğü gibi 40,10 rakamları ile tam olarak nereden yazmaya başlanacağını belirledik.
En son olarak Jpeg.sendbinary diyerek de bu resmimizi ekrana çıkarttık.

NOT : Bu yeni oluşan resmi ekrana çıkarttıktan sonra kaydetmek istenirse kodun en altına

<% Jpeg.Save Server.MapPath("yeniresim.jpg" ) %>

kodunun eklenmesi yeterli olacaktır.
oGuzHan çevrimdışı   Alıntı ile Cevapla