Programmatically adding a Word Document or PDF to a crystal report

Question

I am using Crystal XI for windows.  I have a VB.Net windows application that I am trying to insert a Word Document and/or PDF into.  I want to programmatically be able to add any file(s) to a crystal report.  Is there any sample code or guidance that can show me how to programmically add a file to a report?
In the user interface, the user can click on unlimited number of PDFs, Word Documents... to insert into a Crystal Report.  Is this possible?   If so, please show steps and some sample code how to do this.
Kind Regards,
Jeff

Answer 1

In this example, the ReportAppFactory gets initialized with the instance from the session object... If I am doing this in windows (not a web application), how would this change it if this is a windows application with no session object?
I am connecting against an  ADO.Net (XML) file on the same computer - no connection information required... I just want to open the report file, SetDataSource to a dataset ...then do the other stuff in the example.  I think after I get past connecting to the data and opening the report, the rest of working with sections and adding ole objects I can get from the examples.  All of the sample code that I found are web based and don't show how to connect if you are windows based - not over a web page.
I am not using a CMS or anything web / network based... I just want to connect to a local XML file that was generated from Visual Studio .Net 2005.   The example below is one of the Crystal Samples... they are all web based samples.  ...I am looking for a windows based sample to see how to connect and open a report file.
Example:
        If Not (Session("boEnterpriseSession") Is Nothing) Then
            boEnterpriseSession = CType(Session("boEnterpriseSession"), CrystalDecisions.Enterprise.EnterpriseSession)
        Else
            'Log on to the Enterprise CMS
            boSessionMgr = New CrystalDecisions.Enterprise.SessionMgr
            boEnterpriseSession = boSessionMgr.Logon(Request.QueryString.Item("username"), Request.QueryString.Item("password"), Request.QueryString.Item("cms"), Request.QueryString.Item("authtype"))
            Session.Add("boEnterpriseSession", boEnterpriseSession)
        End If
        'get report object from session or create a new report object
        If Not (Session("boReportClientDocument") Is Nothing) Then
            boReportClientDocument = CType(Session("boReportClientDocument"), CrystalDecisions.ReportAppServer.ClientDoc.ReportClientDocument)
        Else
            boEnterpriseService = boEnterpriseSession.GetService("", "InfoStore")
            boInfoStore = New CrystalDecisions.Enterprise.InfoStore(boEnterpriseService)
            boReportName = "SimpleRCAPIReport.rpt"
            'Retrieve the report object from the InfoStore, only need the SI_ID for RAS
            boQuery = "Select SI_ID From CI_INFOOBJECTS Where SI_NAME = '" + boReportName + _
             "' AND SI_Instance=0"
            boInfoObjects = boInfoStore.Query(boQuery)
            boInfoObject = boInfoObjects(1)
            boEnterpriseService = Nothing
            'Retrieve the RASReportFactory
            boEnterpriseService = boEnterpriseSession.GetService("RASReportFactory")
            boReportAppFactory = CType(boEnterpriseService.Interface, CrystalDecisions.ReportAppServer.ClientDoc.ReportAppFactory)
            'Open the report from Enterprise
            boReportClientDocument = boReportAppFactory.OpenDocument(boInfoObject.ID, 0)
            'First determine where to add - in this case the details Area
            boArea = boReportClientDocument.ReportDefController.ReportDefinition.DetailArea
            'Create the new section object
            boSection = New CrystalDecisions.ReportAppServer.ReportDefModel.Section
            'Set the properties for the section
            boSection.Kind = CrystalDecisions.ReportAppServer.ReportDefModel.CrAreaSectionKindEnum.crAreaSectionKindDetail
            boSection.Name = "Detail2"
            boSection.Height = 1000
            boSection.Width = 11520
            'Now add the section
            boReportClientDocument.ReportDefController.ReportSectionController.Add(boSection, boArea, -1)
            'Add the reportClientDocument to session
            Session.Add("boReportClientDocument", boReportClientDocument)
        End If
Thanks,
Jeff
Edited by: Jeff Dressing on Aug 20, 2008 10:48 AM