delphi xe jpg 添加方框 代码

您好！感谢您的提问。

以下是一个可以使用 Delphi XE 编写的示例代码，该代码可以在 JPG 图片上添加一个方框：

uses
  JPEG;

procedure AddRectToJpg(const AFileName: string; const ARect: TRect; const AColor: TColor);
var
  JpgImage: TJPEGImage;
begin
  JpgImage := TJPEGImage.Create;
  try
    // 加载 JPG 图片
    JpgImage.LoadFromFile(AFileName);

    // 绘制方框
    JpgImage.Canvas.Pen.Color := AColor;
    JpgImage.Canvas.Brush.Style := bsClear;
    JpgImage.Canvas.Rectangle(ARect);

    // 保存修改后的 JPG 图片
    JpgImage.SaveToFile(AFileName);
  finally
    JpgImage.Free;
  end;
end;

您可以将此代码放入您的 Delphi XE 项目中，并使用 AddRectToJpg 这个过程来在 JPG 图片上添加方框。需要注意的是，上述代码需要使用 JPEG 单元，因此您需要在 uses 子句中添加 `JPEG`。

例如，如果您想要在图片 "test.jpg" 上添加一个红色的方框，可以使用以下代码：

var
  Rect: TRect;
begin
  Rect := Rect(10, 10, 100, 100); // 方框的位置和大小
  AddRectToJpg('test.jpg', Rect, clRed);
end;

希望这可以帮助您解决问题！如果您有任何其他问题或需要进一步的帮助，请随时问我。