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

对于我正在制作的照片应用程序，照片的拍摄日期必须在照片中。然后保存在文件夹中。现在我不知道用什么组件来做这个。或者怎么做

像这样：

---

提前感谢您的帮助

这样做不需要任何组件，只需使用

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;

---

如果要将创建日期设置为图片，可以使用

t文件.SetCreationTime（）

执行此操作不需要任何组件，只需使用

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;

---

如果要设置图片的创建日期，可以使用

t文件。SetCreationTime（）

它必须是示例图片中使用的字体吗？只需角落中的日期将图像加载到位图中，在位图上绘制日期，将位图写回图像。请注意，日期也应该在图像的元数据中。听起来您需要读取jpeg exif数据。有几个免费的Delphi代码可以做到这一点。有两个例子是，它必须是示例图片中使用的字体吗？只是角落中的日期将图像加载到位图中，在位图上绘制日期，然后将位图写回图像。请注意，日期也应该在图像的元数据中。听起来您需要读取jpeg exif数据。有几个免费的Delphi代码可以做到这一点。两个示例是，如果保存文件时发生异常，则泄漏位图对象。除非有很好的理由不这样做，否则请使用标准习惯用法。这说明写入当前日期，但不获取从exif数据拍摄照片的日期。如果保存文件时发生异常，则会泄漏位图对象。除非你有很好的理由不这样做，否则请使用标准的习惯用法。这说明了如何写入当前日期，而不是从exif数据中获取照片的日期。