1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

<%@ Page language="vb" 
	Codebehind="PPT2PDF.aspx.vb" 
	AutoEventWireup="false" 
	Inherits="Aspose.Slides.WF.PPT2PDF.PPT2PDF, Aspose.Slides.WF.PPT2PDF" 
	MasterPageFile="~/tpl/Demo.Master" 
	Title = "Ppt to Pdf Conversion - Aspose.Slides Demos"
	%>
<asp:Content runat="server" ContentPlaceHolderID="MainContent">
	<table width="90%" align="center" cellspacing="0" cellpadding="0" border="0">
		<tr>
			<td height="41" valign="top">
				<img src="/Common/images/heading_lft.jpg" width="19" height="41" /></td>
			<td width="100%" class="demos-heading-bg">
				<h2 class="demos-heading-bg">
					&nbsp;PPT to PDF Conversion - Aspose.Slides</h2>
			</td>
			<td valign="top">
				<img src="/Common/images/heading_rt.jpg" width="19" height="41" /></td>
		</tr>
	</table>
	<p class="componentDescriptionTxt">
		The sample demo reads / converts the uploaded presentation file to PDF
		and streams the resulting file to the client browser.</p>
	<hr />
	<div class="demoContentArea">
		<p class="componentDescriptionTxt">
			To proceed, please upload presentation file, click <b>Submit</b> to convert the
			PPT presentation to PDF. The demo will then send the resulting file back
			to the client browser.
		</p>
		<table class="genericTable" cellspacing="0" cellpadding="2">
			<tbody>
				<tr>
					<td>
						<asp:Label ID="lblFile" runat="server" Font-Bold="True">PowerPoint PPT file:</asp:Label>
						<input id="filMyFile" type="file" runat="server" name="filMyFile">&nbsp;&nbsp;&nbsp;
						<asp:Button ID="Button1" runat="server" Text="Submit"></asp:Button>
					</td>
				</tr>
		</table>
	</div>
</asp:Content>

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls

Imports Aspose.Slides
Imports Aspose.Slides.Export

Namespace Aspose.Slides.WF.PPT2PDF
	''' <summary>
	''' Summary description for WebForm1.
	''' </summary>
	Public Class PPT2PDF
		Inherits System.Web.UI.Page
		Protected lblFile As System.Web.UI.WebControls.Label
		Protected filMyFile As System.Web.UI.HtmlControls.HtmlInputFile
		Protected WithEvents Button1 As System.Web.UI.WebControls.Button

		#Region "Web Form Designer generated code"
		Overrides Protected Sub OnInit(ByVal e As EventArgs)
			'
			' CODEGEN: This call is required by the ASP.NET Web Form Designer.
			'
			InitializeComponent()
			MyBase.OnInit(e)
		End Sub

		''' <summary>
		''' Required method for Designer support - do not modify
		''' the contents of this method with the code editor.
		''' </summary>
		Private Sub InitializeComponent()
'			Me.Button1.Click += New System.EventHandler(Me.Button1_Click);

		End Sub
		#End Region

		Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
			' Check to see if file was uploaded
			If filMyFile.PostedFile IsNot Nothing Then
				' Get a reference to PostedFile object
				Dim myFile As HttpPostedFile = filMyFile.PostedFile

				' Get size of uploaded file
				Dim nFileLen As Integer = myFile.ContentLength

				' make sure the size of the file is > 0
				If nFileLen > 0 Then
					Try
						' Read uploaded file from the Stream
						' and open the presentation
						Dim pres As Aspose.Slides.Presentation = New Presentation(myFile.InputStream)
						' Send the PDF file
						pres.Save("AsposePDF.pdf", Aspose.Slides.Export.SaveFormat.Pdf,Response,False)
						Response.End()
					Catch e1 As System.Threading.ThreadAbortException

					Catch e2 As Exception

					End Try
				End If
			End If
		End Sub
	End Class
End Namespace