RAD PDF - Interactive Demonstrations

Basic Demo | Customized PDF Viewer | Integration | PDF Document Editor | PDF Form Filler

In this example, we use the RAD PDF server-side SaveComplete event to get the saved PDF and notify the Windows Event Log about this newly saved file.

RAD PDF Sample Source Files

C#
VB.NET

Default.aspx

<%@ Page Language="C#" CodeFile="Default.aspx.cs" Inherits="_Default" %>

<%@ Register Assembly="RadPdfLibrary" Namespace="RadPdfLibrary.Web.UI" TagPrefix="radPdf" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>RAD PDF Sample</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <radPdf:RadPdfWebControl id="RadPdfWebControl1" runat="server" height="600px" width="100%"
             OnSaveComplete="SaveComplete" />
    </div>
    </form>
</body>
</html>

Default.aspx.cs

using System;
using RadPdfLibrary.Web.UI;

partial class _Default : System.Web.UI.Page
{
    protected void Page_Load(object sender, EventArgs e)
    {
        if (!IsPostBack) 
        {
            this.RadPdfWebControl1.CreateDocument("filename", System.IO.File.ReadAllBytes(@"C:\demo.pdf"));
        }
    }

    protected void SaveComplete(object sender, SaveCompleteEventArgs e)
    {
        //check what raised the SaveComplete event
        switch(e.SaveType)
        {
            //when we are saving or downloading
            case SaveType.Save:
            case SaveType.Download:

                //get saved PDF
                byte[] PdfData = e.PDF;

                //get it's size
                int PdfSize = PdfData.Length;

                //create our message
                string Message = string.Format("A PDF file of {0} bytes was just saved or downloaded!", PdfSize);

                //Add event to the Windows Application Log
                System.Diagnostics.EventLog.WriteEntry("RAD PDF", Message, System.Diagnostics.EventLogEntryType.Information);
                break;

            default:

                //Ignore all other save types (Print, etc)
                break;
        }
    }
}

Default.aspx

<%@ Page Language="VB" CodeFile="Default.aspx.vb" Inherits="_Default" %>

<%@ Register Assembly="RadPdfLibrary" Namespace="RadPdfLibrary.Web.UI" TagPrefix="radPdf" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>RAD PDF Sample</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <radPdf:RadPdfWebControl id="RadPdfWebControl1" runat="server" height="600px" width="100%"
             OnSaveComplete="SaveComplete" />
    </div>
    </form>
</body>
</html>

Default.aspx.vb

Option Explicit On
Option Strict On

Imports RadPdfLibrary.Web.UI

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not IsPostBack Then

            Me.RadPdfWebControl1.CreateDocument("filename", System.IO.File.ReadAllBytes("C:\demo.pdf"))

        End If
    End Sub

    Protected Sub SaveComplete(ByVal sender As Object, ByVal e As SaveCompleteEventArgs)

        'check what raised the SaveComplete event
        Select Case e.SaveType

            'when we are saving or downloading
            Case SaveType.Save, SaveType.Download
                
                'get saved PDF
                Dim PdfData As Byte() = e.PDF
                
                'get it's size
                Dim PdfSize As Integer = PdfData.Length
                
                'create our message
                Dim Message As String = String.Format("A PDF file of {0} bytes was just saved or downloaded!", PdfSize)
                
                'Add event to the Windows Application Log
                System.Diagnostics.EventLog.WriteEntry("RAD PDF", Message, System.Diagnostics.EventLogEntryType.Information)
                Exit Select

            Case Else
                
                'Ignore all other save types (Print, etc)
                Exit Select
        End Select
    End Sub
End Class