How to set up ActiveX Viewer for Web viewing

gquint · Apr 29, 2003

On the web I see a lot of information about problems with CR ActiveX Viewer but not about installing. I guess I miss something here.
I use Crystal Reports 8.5 and I want to deploy my reports to the end users by Web without using Crystal Enterprise (we use our own web-framework). Exporting to pdf works fine. Can I use the Crystal ActiveX Viewer as well? Where can I find it and how should I install it?

SurfingGecko · Apr 29, 2003

In order to deploy your Crystal Reports over the web you are going to have to install and configure Crystal Enterprise on the web server.

Once you have this done, then when users make a request for a report, the default viewer will be DHTML (no client install), but you could change this to be the ActiveX by default if you wish. Here is a Crystal KBase with instruction on this - c2012241

The ActiverX viewer alone will not provide enough for the reports to run.

If not this, and depending on your needs, you could stick with a PDF export and add the link to your existing site. All users will likely already have the Acrobat Reader installed. This will not allow report refreshing though.

Cheers,

SurfingGecko

http://www.surfinggeckosoftware.com

Home of Crystal Ease

cjlarue · Apr 30, 2003

Not exactly true. I was using the CR 8.5 RDC to generate reports and the active x viewer to display the reports in an asp application. The sample code for this is still available on the crystal decisions web site. Had to abandon this when I converted to .net. You don't say what web technology you are using. Found the active x control would not work well in .net. I was able to configure com interop to use it but it would not scale and microsoft told us it was a limitation of com interop. I have the asp code if you want to take a look.

gquint · May 5, 2003

thanks cjlarie,
We are using apache web server and delphi web snap for the content. Up to now we store pdf-files in a database and present them to the web browser. I want to change that to storing rtp-files with data and viewing them by the ActiveX-viewer in the web browser to enable drill-down, exports and so on. I would like to have a look at your aps code if possble.

cjlarue · May 6, 2003

Here is the code.
<%@ LANGUAGE="VBSCRIPT" %>
<%
' ProcessReport8.asp
Option Explicit
Response.Buffer = true
Response.Expires=-1441
Server.ScriptTimeout = 4000

' Querystring should contain:
' Name: is the name of the report
' RP: is the path from which the report was printed
' this is used to find the standard report subdirectory
' P#: parameters to be passed to the report
%>

<HTML>
<HEAD>
<TITLE>Process a Report</TITLE>
</HEAD>

<%
' Declare variables used

dim ErrNumber
dim rsReportLog
dim PathReportName

dim DB
dim SQL
dim DSN
dim DBNAme

dim UserID
dim Password

dim ReportName

dim i
dim j
dim m

dim Path
dim AppPath
dim oRptOptions
dim oOptions

dim CRTable
dim CRTables
dim CRTablesCnt

dim CRSections
dim CRSectionsCnt
dim CRSection

dim CRSubReport

dim CRReports
dim CRReport
dim CRReportsCnt

dim ReportObject
dim ReportDatabase
dim StoredProcParamCollection
dim Item
dim ObjectCnt
Dim SectionCnt
dim Temp

Set DB = Server.CreateObject ("ADODB.Connection&quot

DB.CommandTimeout = 240
DB.Open Application("Aware_ConnectionString&quot

' File System Object
Dim FSO

' Set the connection to the alternate if Alternate Server Flag is set
if Request.QueryString("S&quot

<> "" and _
ucase(Request.QueryString("S&quot

) <> "FALSE" then

' Set the Database name
DBName = Application("Second_Database&quot

DSN = Application("Second_DSN&quot

' Get the user id and password
UserID = Application("Second_RuntimeUserName&quot

Password = Application("Second_RuntimePassword&quot

' Set the connection to the same as the Aware system
else

' Set the Database name
DBName = Application("Database&quot

DSN = Application("DSN&quot

' Get the user id and password
UserID = Application("Aware_RuntimeUserName&quot

Password = Application("Aware_RuntimePassword&quot

end if

' Set the DSN to the same as the Database name
' DSN = DBName

' Get the name of the report to be printed
Reportname = Request.QueryString("Name&quot

' Remove subdirectory information from the reportname
do while instr(ReportName,"\&quot

> 0
ReportName = mid(ReportName, instr(ReportName,"\&quot

+ 1)
loop

' Read the parameters for use in the report
' Parameters must be contiguos, ex: p1=VR,p2=7002
i = 0
dim Parms()
redim Parms(0)
do while not(isempty(Request.QueryString("P" & i)))

redim preserve Parms(i+1)
Parms(i+1) = Request.QueryString("P" & i)

i = i + 1

loop

'==================================================================
' Create the report object for this session if it has not yet been created in this session

if not IsObject (session ("oApp&quot

) then
set session ("oApp&quot

= Server.CreateObject("CrystalRuntime.Application.8&quot

end if

' Create a File System Object
set FSO = Server.CreateObject("Scripting.FileSystemObject&quot

' Determine path to application server
AppPath = Request.ServerVariables("APPL_PHYSICAL_PATH&quot

dim LeftString
dim RightString

' BARTZ
' change the /s to For i = 1 to len(AppPath)
If Mid(AppPath,i,1) = "/" Then
LeftString = Mid(AppPath,1,i-1)
RightString = Mid(AppPath,i+1,Len(AppPath))
AppPath = LeftString & "\" & RightString
end if
next

' Make sure the path ends in if right(AppPath,1) <> "\" then
AppPath = AppPath & "\"
end if

' Determine path to datapage from which this report is being run
Path = Request.QueryString("RP&quot

if right(Path,1) <> "\" then
Path = Path & "\"
end if

' Hardcoded Report Name
' ---------------------
if Reportname <> Request.QueryString("Name&quot

then
Path = "c:\inetpub\

http://wwwroot\smile"

else
Path = Path & "Reports\"
end if

if right(Path,1) <> "\" then
Path = Path & "\"
end if

if Reportname <> Request.QueryString("Name&quot

then
' . . . . . . . . . . . . . . . . . . . . . . . . . added by -dh 9/14/2000
dim qsName
dim iSlash

qsName = Request.QueryString("Name&quot

ReportName = Path & Right(qsName,len(qsName) - 3)
Path = ""

' The directory was passed so check to make sure the report exists
if not(FSO.FileExists(Path & Reportname)) then
Response.Write ("Hard coded filename not valid.<BR>&quot

Response.Write ("Error: " & Path & Reportname & " not found.<BR>&quot

Response.Write ("Path = " & Path & "<BR>&quot

Response.Write ("ReportName = " & ReportName & "<BR>&quot

set FSO = nothing

' Everything is cool, set up variables for use when opening the report
else
'ReportName = Request.QueryString("Name&quot

'I cut this -dh +++++++++++++++
'Path = ""
end if

' Look for the report in the Xtend directory, this is first place to look if not hard coded
elseif FSO.FileExists(AppPath & "xtend\reports\" & ReportName) then
Path = AppPath & "xtend\reports\"

' Look for report in the common application directory
elseif FSO.FileExists(AppPath & "common\reports\" & ReportName) then
Path = AppPath & "common\reports\"

' Look for report in reports subdirectory under the page where the report was generated
' If not found, the report was not found and there is an error condition
elseif not(FSO.FileExists(Path & ReportName)) then
Response.Write ("Error: " & Path & Reportname & " not found.<BR>&quot

set FSO = nothing
Response.end

end if

' Clean up
Set FSO = nothing
'==================================================================
' Clear report session variable
if isobject(session("oRpt&quot

) then
set session("oRpt&quot

= nothing
end if

PathReportName = Path & ReportName

on error resume next
Set session("oRpt&quot

= session("oApp&quot

.OpenReport(path & ReportName, 1)
ErrNumber = Err.Number
on error goto 0

' BARTZ
' -----
SQL = "exec dbo.rpInsertReportLog "
SQL = SQL & "'" & PathReportName & "',"
SQL = SQL & "'Creating Session(oRpt)',"
SQL = SQL & Err.Number & ","
SQL = SQL & "'" & Session("Staff_Name&quot

& "'"
set rsReportLog = DB.execute(SQL)
set rsReportLog = nothing

if ErrNumber <> 0 Then
Response.Write "<BR>An Error has occurred on the server in attempting to access the following data source - " & DSN
Response.Write "<BR>Crystal Error: " & ErrNumber
Response.End
end if

' Check for errors when opening the report
if not isobject(Session("oRpt&quot

) then
Response.write("<BR>Unable to open report " & path & ReportName)
Response.End
end if

Session("oRpt&quot

.MorePrintEngineErrorMessages = False
Session("oRpt&quot

.EnableParameterPrompting = False

Set CRTables = Session("oRpt&quot

.Database.Tables
CRTablesCnt = CRTables.Count
For i = 1 to CRTablesCnt
Set CRTable = CRTables.Item(cint(i))
CRTable.SetLogOnInfo cstr(DSN), cstr(DBName), cstr(userid), cstr(password)
Next
Set CRTables = Nothing

Set CRSections = Session("oRpt&quot

.Sections
CRSectionsCnt = CRSections.Count
For i = 1 to CRSectionsCnt
Set CRReports = CRSections.Item(CInt(i)).ReportObjects
CRReportsCnt = CRReports.Count
For j = 1 to CRReportsCnt
If CRReports.Item(CInt(j)).Kind = 5 Then
Set CRSubreport = session("oRpt&quot

.OpenSubreport(CRReports.Item(CInt(j)).SubReportName)
Set CRTables = CRSubreport.Database.Tables
CRTablesCnt = CRTables.Count
For m = 1 to CRTablesCnt
CRTables.Item(m).SetLogOnInfo cstr(DSN), cstr(DBName), cstr(userid), cstr(password)
Next
End if
Next
Next

Set StoredProcParamCollection = Session("oRpt&quot

.ParameterFields
i = 0
For each Item in StoredProcParamCollection
i = i + 1
if ubound(Parms) >= i then
Temp = Parms(i)
select case Item.ValueType

case 7
' Number field
' Need to check to see if ANY of the parameters is blank
' If it's blank, set the value to 0 so it won't cause problems
if trim(Temp) = "" Then
Temp = 0
end if
Item.SetCurrentValue cdbl(Temp)

case 16,10
' Date & DateTime fields
Temp = trim(Temp)
if instr(temp,"/&quot

< 4 then
dim TempDate
dim strTemp

TempDate = left(Temp, instr(Temp, " &quot

)
if len(month(TempDate)) < 2 then
Temp = year(TempDate) & "/0" & month(TempDate)
else
Temp = year(TempDate) & "/" & month(TempDate)
end if

if len(day(TempDate)) < 2 then
Temp = Temp & "/0" & day(TempDate)
else
Temp = Temp & "/" & day(TempDate)
end if

'add time if type DateTime, otherwise leave as just date
if Item.ValueType = 16 then
Temp = Temp & " 00:00:00.000"
end if
end if

Temp= mid(Temp,6,2) & "/" & _
mid(Temp,9,2) & "/" & _
left(Temp,4)

Item.SetCurrentValue cdate(Temp)

case else
Item.SetCurrentValue cstr(Temp)

end select

else
Item.SetCurrentValue Item.DefaultValue,Item.ValueType
end if
next

Set CRTables = Nothing
Set CRTable = Nothing
Set CRSubreport = Nothing
Set CRReports = Nothing
Set CRSections = Nothing

'==================================================================
' Retrieve the Records
On Error Resume Next

session("oRpt&quot

.ReadRecords
ErrNumber = Err.Number
On Error GoTo 0

' BARTZ
' -----
SQL = "exec dbo.rpInsertReportLog "
SQL = SQL & "'" & PathReportName & "',"
SQL = SQL & "'Reading Records',"
SQL = SQL & Err.Number & ","
SQL = SQL & "'" & Session("Staff_Name&quot

& "'"
set rsReportLog = DB.execute(SQL)
set rsReportLog = nothing

if ErrNumber <> 0 Then
Response.Write "<BR>An Error has occurred on the server in attempting to access the following data source - " & DSN
Response.Write "<BR>Crystal Error: " & ErrNumber
if ErrNumber = 20534 then
Response.Write "<BR>The stored procedure may have returned an error."
elseif ErrNumber = 20599 then
Response.Write "<BR>There may be a security issue on the server."
end if
else
if isobject(session("oPageEngine&quot

) then
set session("oPageEngine&quot

= nothing
end if
Set session("oPageEngine&quot

= session("oRpt&quot

.PageEngine
end If

DB.Close
Set DB = nothing

'==================================================================
' Display the report using a smart viewer

%>
<BODY BGCOLOR=C6C6C6 LANGUAGE=VBScript ONLOAD="Page_Initialize">
<p align="left">
<BUTTON NAME=cmdClose ACCESSKEY=C><U>C</U>lose</BUTTON>
</p>
<p align="left">

<OBJECT ID="CRViewer"
CLASSID="CLSID:C4847596-972C-11D0-9567-00A0C9273C2A"
WIDTH=100% HEIGHT=95%
codebase="../../../../../../../../../../../../../../viewer/activeXViewer/activexviewer.cab#Version=8,0,0,224">
<PARAM NAME="EnableRefreshButton" VALUE=0>
<PARAM NAME="EnableGroupTree" VALUE=1>
<PARAM NAME="DisplayGroupTree" VALUE=0>
<PARAM NAME="EnablePrintButton" VALUE=1>
<PARAM NAME="EnableExportButton" VALUE=1>
<PARAM NAME="EnableDrillDown" VALUE=1>
<PARAM NAME="EnableSearchControl" VALUE=1>
<PARAM NAME="EnableAnimationControl" VALUE=1>
<PARAM NAME="EnableZoomControl" VALUE=1>
</OBJECT>

</p>

<SCRIPT LANGUAGE="VBScript">
<!--
Sub Page_Initialize
dim Temp
Temp = location.href
Temp = left(Temp,instr(Temp,"?&quot

- 1)
Temp = left(Temp,instrRev(Temp,"/&quot

) & "rptserver.asp"
On Error Resume Next
Dim webBroker
Set webBroker = CreateObject("WebReportBroker.WebReportBroker&quot

if ScriptEngineMajorVersion < 2 then
window.alert "IE 3.02 users on NT4 need to get the latest version of VBScript or install IE 4.01 SP1. IE 3.02 users on Win95 need DCOM95 and latest version of VBScript, or install IE 4.01 SP1. These files are available at Microsoft's web site."
CRViewer.ReportName = Temp
else
Dim webSource
Set webSource = CreateObject("WebReportSource.WebReportSource&quot

webSource.ReportSource = webBroker
webSource.URL = Temp
webSource.PromptOnRefresh = True
CRViewer.ReportSource = webSource
end if
CRViewer.ViewReport
End Sub

Sub cmdClose_OnClick
window.close
End Sub

-->

</SCRIPT>

<%
' Set Server Script Timout back to default
Server.ScriptTimeout = 90
%>

</BODY>
</HTML>

gquint · May 20, 2003

hi cjlarue,

Thanks for the code, it took me a while to get some time to figure it out. I am specially interested in the part with the smart viewer where it says:

" ...
Dim webSource
Set webSource = CreateObject
"WebReportSource.WebReportSource&quot

webSource.ReportSource = webBroker
webSource.URL = Temp
webSource.PromptOnRefresh = True
CRViewer.ReportSource = webSource
end if
CRViewer.ViewReport
End Sub"

I manage to get the viewer showing in the browser but how do I load a report file? From my back end I have an *.rpt-file with data stored in a temp-file somewhere on disc. I tried the following to load the report:
webSource.URL = "file:///c:/base/http/drilldown9.rpt"
but it does not work.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

How to set up ActiveX Viewer for Web viewing

gquint

Programmer

SurfingGecko

Instructor

cjlarue

Programmer

gquint

Programmer

cjlarue

Programmer

gquint

Programmer

Similar threads

Part and Inventory Search

Sponsor