在拍摄的照片中添加日期 DELPHI FIREMONKEY

Question

对于我正在制作的照片应用程序，照片的拍摄日期必须在照片中。 然后保存在文件夹中。 现在我不知道要使用什么组件来做到这一点。 或者根本如何做到这一点。

像这样：

提前感谢您的帮助！

Answer 1

您不需要任何组件来执行此操作，只需将TBitmap的TCanvas用作：

Var
  R: TRectF;
  Img: TBitmap;
begin
  Img:= TBitmap.Create;
  try
    Img.LoadFromFile('C:\MyPic.jpg');
    R.Create(Img.Width - 100, Img.Height - 100, Img.Width, Img.Height);
    Img.Canvas.BeginScene();
    Img.Canvas.Fill.Kind:= TBrushKind.Solid;
    Img.Canvas.Stroke.Thickness:= 12;
    Img.Canvas.Stroke.Color:= TAlphaColors.White;
    Img.Canvas.FillText(
    R, DateToStr(Now), False, 100, [TFillTextFlag.RightToLeft], TTextAlign.Center);
    Img.Canvas.EndScene;
    Img.SaveToFile('D:\Result.jpg');
  finally
    Img.Free;
  end;

如果要将创建日期设置为图片，可以使用TFile.SetCreationTime() 。