+- Delphi Can (https://www.delphican.com)
+-- Forum: Delphi (https://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Genel Programlama (https://www.delphican.com/forumdisplay.php?fid=6)
+--- Konu Başlığı: Program içinde resim üzerine yazi (/showthread.php?tid=2304)
Program içinde resim üzerine yazi - gonulali - 06-06-2018
Selamlar.
Bir klasörün içindeki tüm bilgileri PDF-JPG dosya yoluyla birlikte programıma kaydediyorum.Yani;
C:\DOSYALAR\Deneme.jpg diye bir klasörüm ve içinde resmim var
ben programımda bu yolu kaydediyorum ve bu resmide image de gösterebiliyorum. Başka bir uzantıyı da ekleyebiliyorum mesela dwg, dxf.. Buraya kadar her şey normal.
Yapmak istediğim şu.
1. Programım içinde jpgleri gösterdiğim image gibi Dwg ve diğer tüm formatları görebileceğim bir yöntem var mıdır?
2. Diyelim ki eklediğim pdf, jpg veya başka bir dosyayı programım içinde image de gördüm. Bu resmin veya pdf in üzerine yazı yazmak istiyorum ve bundan sonra açtığımda da o yazıyı görmek istiyorum. Bunu nasıl yapabilirim? Component araştırdım ama bulamadım.
Bu konular hakkında yardımcı olabilir misiniz? Teşekkür Ederim.
Saygılarımla.
Program içinde resim üzerine yazi - iyarar - 06-06-2018
Merhaba ,
Var
Img : TBitmap;
Jpg : TJPEGImage;
Begin
Try
Jpg:=TJPEGImage.Create;
Jpg.LoadFromFile('c:\deneme.jpg');
Img:=TBitmap.Create;
Img.Assign(Jpg);
Img.Canvas.Font:=Form1.Font;
Img.Canvas.Font.Size:=36;
Img.Canvas.Font.Color:=clRed;
Img.Canvas.Brush.Color:=clWhite;
Img.Canvas.TextOut(0,0,'istediğiniz yazıyı buraya yazın ');
jpg.Assign(Img);
Jpg.SaveToFile('C:\deneme1.jpg');
Finally
FreeAndNil(Jpg);
FreeAndNil(Img);
End;
End;
şeklinde jpg dosya istediğiniz yazıyı istediğiniz gibi yazabilirsiniz.jpg dosya üzerine yazıyı