Delphi Can
Program içinde resim üzerine yazi - Baskı Önizleme

+- Delphi Can (http://www.delphican.com)
+-- Forum: Delphi (http://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Genel Programlama (http://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ı