Created: 8/27/2009
Modified: 7/21/2014
Imports FDFApp
Imports FDFApp.FDFApp_Class
Imports FDFApp.FDFDoc_Class
Partial Public Class testForm1
Inherits System.Web.UI.Page
Private URLPath As String = ""
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
URLPath = Request.Url.AbsoluteUri.ToString & ""
URLPath = URLPath.Substring(0, URLPath.LastIndexOf("/") + 1) & ""
Try
Load_Data(URLPath & "PDFFormName.pdf", Request("id") + 0, FDFApp.FDFDoc_Class.FDFType.PDF)
Catch Ex As Exception
Response.Write("Error: " & Ex.Message)
Response.End()
End Try
End Sub
Public Sub Load_Data(ByVal PDFFile As String, ByVal ID As Integer, ByVal OutPutMIMEType As FDFApp.FDFDoc_Class.FDFType)
' DECLARE THE COMPONENTS
Dim FDFApp As New FDFApp.FDFApp_Class
Dim FDFDoc As New FDFApp.FDFDoc_Class
' INITIALIZE THE COMPONENTS
FDFDoc = FDFApp.FDFCreate
FDFDoc.FDFSetFile(PDFFile)
Dim myDA As New OleDb.OleDbDataAdapter("SELECT * FROM [TABLENAME] WHERE ID=" & ID & ";", "PROVIDER=MICROSOFT.JET.OLEDB.4.0; DATA SOURCE=" & Server.MapPath("/APP_DATA/myDATABASE.mdb") & ";")
Dim myDS As New DataSet
myDA.Fill(myDS, "TABLENAME")
' SETS VALUES FROM TABLE ROW TO FDF
FDFDoc.FDFSetValuesFromDataRow(myDS.Tables(0).Rows(0))
' WRITE THE FDF TO THE BUFFER
Response.Clear()
Select Case OutPutMIMEType
Case Global.FDFApp.FDFDoc_Class.FDFType.FDF
Response.ContentType = FDFApp.MimeFDF
Response.BinaryWrite(FDFDoc.FDFSavetoBuf(Global.FDFApp.FDFDoc_Class.FDFType.FDF, False))
Case Global.FDFApp.FDFDoc_Class.FDFType.PDF
Response.ContentType = FDFApp.MimePDF
Response.BinaryWrite(FDFDoc.PDFMergeFDF2Buf(PDFFile, False, ""))
Case Global.FDFApp.FDFDoc_Class.FDFType.XDP
Response.ContentType = FDFApp.MimeXDP
Response.BinaryWrite(FDFDoc.FDFSavetoBuf(Global.FDFApp.FDFDoc_Class.FDFType.XDP, True))
End Select
Response.End()
End Sub
End Class
Go back to Development, Design & Programming Tutorials section