在拍摄的照片中添加日期 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()。

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

Add date in taken picture DELPHI FIREMONKEY

delphi

image

firemonkey