ASP ile Resimlerin Üzerine Yazı Yazma

geceninmavisi Cuma Ağus. 08, 2008 2:05 am

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.