RDLC 报告 (Microsoft reportViewer) 在部署到服务器后从客户端计算机访问时不呈现答案

【问题标题】：RDLC reports (Microsoft reportViewer) are not rendering when accessed from client machine after deployed to ServerRDLC 报告 (Microsoft reportViewer) 在部署到服务器后从客户端计算机访问时不呈现
【发布时间】：2019-01-11 00:33:42
【问题描述】：

RDLC 报告 (Microsoft reportViewer) 在部署到服务器后不呈现当从机器本身访问时，我的 rdlc 报告在开发机器中正确呈现和工作（部署后），它也在部署后在生产服务器中工作（从机器本身访问时）。但是，当我尝试从客户端计算机访问报告时，它并没有呈现 Web 应用程序的其他组件正常工作。

我得到的错误是：

谷歌浏览器：无法加载 pdf 文档

Internet Exploler：文件已损坏，无法修复

我该如何解决这个错误？

我的控制器代码是：

        Function GenerateReportS(value As String, lcvalue As String) As ActionResult
        Dim assetlist As List(Of usp_standardreportquery_Result)
        If value IsNot Nothing Or lcvalue IsNot Nothing Then
            assetlist = db.usp_standardreportquery.Where(Function(r) If(value IsNot Nothing, r.AssignLocation = value, True) And
                                                             If(lcvalue IsNot Nothing, r.LocationCategory = lcvalue, True)).ToList
        Else
            assetlist = db.usp_standardreportquery.ToList
        End If

        Dim warnings As Warning()
        Dim mimeType As String
        Dim streamids As String()
        Dim encoding As String
        Dim filenameExtension As String

        Dim viewer = New ReportViewer()
        viewer.LocalReport.ReportPath = "Views\Reports\StandardReport.rdlc"

        Dim dataset As Microsoft.Reporting.WebForms.ReportDataSource = New Microsoft.Reporting.WebForms.ReportDataSource("standardreportds", assetlist)

        viewer.LocalReport.DataSources.Add(dataset)
        Dim params(2) As ReportParameter
        params(0) = New ReportParameter("SearchBy", "Location", False)
        params(1) = New ReportParameter("value", value, False)
        params(2) = New ReportParameter("Category", lcvalue, False)

        viewer.LocalReport.SetParameters(params)

        dataset.Value = assetlist
        viewer.LocalReport.Refresh()

        Dim bytes = viewer.LocalReport.Render("PDF", Nothing, mimeType, encoding, filenameExtension, streamids,
warnings)

        Return New FileContentResult(bytes, mimeType)

        'Return File(bytes, mimeType, "_PackingSlip.pdf")
    End Function

我该如何解决这个错误？

【问题讨论】：

@DeveloperX，你能帮忙吗？

标签： vb.net iis model-view-controller rdlc reportviewer

【解决方案1】：

由于“加载pdf文件失败”的错误很难解决，浪费了很多时间和网络搜索后，我作为研究员解决了这个问题

在

中更正初始化

Dim warnings As Warning()
Dim streamids As String()
Dim mimeType As String = "application/pdf"
Dim encoding As String = String.Empty
Dim filenameExtension As String = String.Empty

最后在Dim bytes =之后插入如下代码

Response.Buffer = True
Response.Clear()
Response.ContentType = mimeType
Response.BinaryWrite(bytes)
Response.Flush()

【讨论】：