image - 具有动态文件扩展名的 SSRS 外部图像

Question

我有一份报告需要显示服务器上 Windows 文件夹中的图像，它正在运行(请参阅 here)。现在，我想知道如何让报告提取不同文件类型的图像，例如 jpg 和 tif。 (我默认使用 png)。有没有相对简单的方法来做到这一点？带有文件扩展名的图像名称不在 SQL 数据库中。

编辑:我在自定义代码块中输入了这个，来自下面丹尼尔的帮助。

公共(public)函数 GetImage(ByRef Filename As String) As String
' 用于测试是否存在的完整图像路径
将 ImagePath 调暗为字符串
ImagePath = "\\GVSSERVER1\GVSServerD\Acclamare_Images\"+ 文件名
' 测试文件是否以 gif 形式存在
尝试
如果 System.IO.File.Exists(ImagePath + ".png")
返回 "file://"+ ImagePath + ".png"
ElseIf System.IO.File.Exists(ImagePath + ".jpg")
否则返回 "file://"+ ImagePath + ".jpg"
万一
Catch ex As 异常
返回“遇到错误”
结束尝试
返回“打到最后”
结束函数
当我运行报告时，它会获取 .jpg 扩展名，即使图像文件是 png，而且该项目没有 jpg 文件。关于如何纠正它的任何想法？
编辑 2:我没有成功使用更新的自定义代码，但我可能遗漏了一些东西，因为我不是自定义代码方面的专家。我发现了这个问题 (see here)这是一个功能。我尝试了它并且它有效，除了出于某种原因 .tif 文件不显示在报告中。我安装了 Microsoft Picture Manager(从 Sharepoint exe 下载)，但它仍然不显示 .tif 文件。

Answer 1

好消息是这绝对是可能的，但是需要一些自定义代码和服务器端调整才能做好准备。

总体思路:创建一个采用图像名称的代码隐藏函数，然后进行文件存在性测试以确定网络共享上实际存在的文件扩展名类型。

如果您在报告区域外右击并转到属性，您将看到自定义代码窗口，您可以在其中粘贴以下函数代码。

自定义代码:

Public Function GetImage(ByRef Filename As String) As String
    ' Full image path used for testing if the image exists
    Dim ImagePath As String
    ImagePath = "\\EM-SSRS\ImageTest\" + Filename

    ' Test to see if the file exists as a gif
    If System.IO.File.Exists(ImagePath + ".gif")  THEN
            Return "file://" + ImagePath + ".gif"
    ElseIf System.IO.File.Exists(ImagePath + ".png")  THEN
            Return "file://" + ImagePath + ".png"
    ElseIf System.IO.File.Exists(ImagePath + ".jpg")  THEN
            Return "file://" + ImagePath + ".jpg"
    ElseIf System.IO.File.Exists(ImagePath + ".jpeg")  THEN
            Return "file://" + ImagePath + ".jpeg"
    End If

    Return "No Image Exists"
End Function

您必须编辑 ImagePath 变量以包含您的方案的网络共享路径，或者如果您愿意，甚至可以向函数添加另一个参数以使其更通用。

创建代码函数后，我建议在报表上创建一个虚拟文本框表达式并使用以下值:

=Code.GetImage("Filenmame")

这将允许您查看函数的输出并根据需要进行调整。请注意，“file://...”语法在报表生成器或 visual studio 中可能不起作用，可能必须部署到报表服务器以进行测试。

当然，一旦功能看起来正常，添加图像，确保将源设置为外部，并使用与文本框相同的表达式。

服务器端更改

在对我自己的环境进行进一步测试后，我必须进行两项额外的更改才能使其正常工作:

1. Ensure that the unattended execution account is set到具有文件共享权限的域帐户

2. Edit the SSRS config在 rssrvpolicy.config 文件中信任自定义代码并通过指定“FullTrust”允许执行 File.Exists 函数

<CodeGroup
  class="UnionCodeGroup"
  version="1'
  PermissionSetName="FullTrust"
  Name="Report_Expressions_Default_Permissions"
  Description="This code group grants default permissions for code in report expressions and code element."
  ...
</CodeGroup>

我确实在进行这些更改后重新启动了 SSRS 服务(我认为这是必需的，但这样做是为了预防)

请注意，我不是 SSRS 服务器管理员，其他人可能能够添加一些关于自定义策略更改的附加信息。浏览 MS 文档，有一条关于使用自定义程序集的建议，因此请对这部分持保留态度。