Re: streaming reports from report services

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

<HTML>
<P>I have pasted the error page source as well as the code that creates the report. The code fails with "response.end()". The exception message is "Thread was being aborted."</P>
<P>&nbsp;</P>
<P>&lt;!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN"&gt;<BR>
&lt;html&gt;&lt;head&gt;<BR>
&lt;title&gt;200 OK&lt;/title&gt;<BR>
&lt;/head&gt;&lt;body&gt;<BR>
&lt;h1&gt;OK&lt;/h1&gt;<BR>
&lt;p&gt;The server encountered an internal error or<BR>
misconfiguration and was unable to complete<BR>
your request.&lt;/p&gt;<BR>
&lt;p&gt;Please contact the server administrator,<BR>
&nbsp;<A href="mailto:dav...@dh...">xxxxxxxxxxxxx</A> and inform them of the time the error occurred,<BR>
and anything you might have done that may have<BR>
caused the error.&lt;/p&gt;<BR>
&lt;p&gt;More information about this error may be available<BR>
in the server error log.&lt;/p&gt;<BR>
&lt;/body&gt;&lt;/html&gt;<BR>
</P>
<P>&nbsp;&nbsp; Private Sub OnCallReport(ByVal tit$, ByVal sql$, ByVal connect As Data.SqlClient.SqlConnection)<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim wr As IO.TextWriter<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wr = IO.File.AppendText("c:\OnCallReport.txt")<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wr.WriteLine(Format(Now, "MM/dd/yy hh:mm:ss") &amp; " report start")<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wr.Close()<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Try<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; UserLog("report", "OnCallReport:" &amp; tit, ui.UserID, Request, connect)<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim localReport As New Microsoft.Reporting.WebForms.LocalReport<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; localReport.ReportPath = Server.MapPath("~/OnCallReport01.rdlc")<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim command As New Data.SqlClient.SqlCommand(sql &amp; " ORDER BY InSort", connect)<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim reader As Data.SqlClient.SqlDataReader = command.ExecuteReader<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; localReport.DataSources.Add(New Microsoft.Reporting.WebForms.ReportDataSource("DataSet1_DataTable1", reader))<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim parameter() As Microsoft.Reporting.WebForms.ReportParameter = {New Microsoft.Reporting.WebForms.ReportParameter("Report_Parameter_0", tit)}<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; localReport.SetParameters(parameter)<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SubReportConnect = New Data.SqlClient.SqlConnection(DefaultConnect)<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SubReportConnect.Open()<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SubReportCommand = New Data.SqlClient.SqlCommand("", SubReportConnect)<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; AddHandler localReport.SubreportProcessing, AddressOf OnCallReportSubreportProcessingEventHandler<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim bytes As Byte() = localReport.Render("PDF", Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Not IsNothing(SubReportReader) Then SubReportReader.Close()<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SubReportReader = Nothing<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SubReportConnect.Close()<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SubReportConnect = Nothing<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; reader.Close()<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; reader = Nothing<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.Clear()<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.ContentType = ""<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.AddHeader("content-disposition", "attachment; filename=OnCallReport.pdf")<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.BinaryWrite(bytes)<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Response.End()<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wr = IO.File.AppendText("c:\OnCallReport.txt")<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wr.WriteLine(Format(Now, "MM/dd/yy hh:mm:ss") &amp; " report finish")<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wr.Close()<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Catch ex As Exception<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim a$ = ""<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Try<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; a = ex.InnerException.Message<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Catch<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; a = ""<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Try<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Len(a) &gt; 0 Then a = "; " &amp; a<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wr = IO.File.AppendText("c:\OnCallReport.txt")<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wr.WriteLine(Format(Now, "MM/dd/yy hh:mm:ss") &amp; " " &amp; ex.Message &amp; a)<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wr.Close()<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Try<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; wr.Close()<BR>
<BR>
<BR>
-- <BR>
dgm <BR>
<BR>
<BR>
<B>On Mon Oct 20 15:45 , 'William A. Rowe, Jr.' <WR...@RO...>sent:<BR>
<BR>
</B></P>
<BLOCKQUOTE style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #f5f5f5 2px solid; MARGIN-RIGHT: 0px">David McDivitt wrote:<BR>
<SPAN style="COLOR: #ff0000">&gt; I have applications written in Visual Web Developer 2005 that work fine,</SPAN><BR>
<SPAN style="COLOR: #ff0000">&gt; except for streaming reports. This works fine on IIS and I want it to</SPAN><BR>
<SPAN style="COLOR: #ff0000">&gt; work on Apache. A PDF is streamed to the client and the "open, save,</SPAN><BR>
<SPAN style="COLOR: #ff0000">&gt; cancel" dialog appears.</SPAN><BR>
<BR>
Exactly what failure information do you receive, and where (app logs,<BR>
apache error logs, client side messages)?<BR>
<BR>
</BLOCKQUOTE></HTML>
<BR>