delphi11 Image1.Picture.FileName 未定义

在 Delphi 11 中，如果要从 TImage 中获取文件名，您可以使用以下代码：

if Assigned(Image1.Picture.Graphic) then
begin
  // 获取文件名
  FileName := Image1.Picture.Graphic.FileName;

  // 处理图像，例如保存到文件或发送到服务器
  // ...
end;

请注意，要获取文件名，图像必须已经加载到 TImage 控件中。如果图像未加载，则 Image1.Picture.Graphic 将为 nil。如果要从文件中加载图像，请使用以下代码：

if OpenPictureDialog1.Execute then
begin
  // 加载图像
  Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

  // 获取文件名
  FileName := OpenPictureDialog1.FileName;

  // 处理图像，例如保存到文件或发送到服务器
  // ...
end;

在此示例中，我们使用 OpenPictureDialog1 打开一个对话框，以选择要加载的图像文件。然后，我们使用 Image1.Picture.LoadFromFile 将图像加载到 TImage 控件中，并使用 OpenPictureDialog1.FileName 获取文件名。最后，我们可以根据需要处理图像。