IDHTTPServer:在FireMonkey中，如何将应用程序中的图像作为web图像提供服务？

procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  ImageStream: TMemoryStream;
begin
  if ARequestInfo.Document = '/image' then
  begin
    ImageStream := TMemoryStream.Create;
    try
      // 将应用程序中的图像保存到ImageStream中
      // 这里可以根据需要自行实现，例如从文件加载图像到ImageStream
      // 也可以使用TBitmap.SaveToStream方法将图像保存到ImageStream

      // 设置响应内容类型为图像类型，例如JPEG或PNG
      AResponseInfo.ContentType := 'image/jpeg';

      // 将ImageStream中的图像数据发送给客户端
      ImageStream.Position := 0;
      AResponseInfo.ContentStream := ImageStream;
      AResponseInfo.ContentLength := ImageStream.Size;
    except
      ImageStream.Free;
      raise;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ImageURL: string;
begin
  // 构建图像的URL，这里假设IDHTTPServer监听的端口为8080
  ImageURL := 'http://localhost:8080/image';

  // 使用TImage组件加载并显示图像
  Image1.Bitmap.LoadFromURL(ImageURL);
end;