ASP ile Resimlerin Üzerine Yazı Yazma

<%
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, "YASIRPRO.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 YASIRPRO.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.


Ekleyen: WALLACEs | Eklenme Tarihi: 27.01.2016