用C# Builder生成PDF文件

【 tulaoshi.com - 编程语言 】

　　Adobe PDF格式已经变成很多机构和公司进行跨平台制表的通用媒体格式。尽管我不是这个产品的狂热痴迷者，却不得不接受这样一个事实：用这个格式产生一个协定可能会比用Word还要好。

　　PDF的全称为Portable document．nbspFormat，即可移植文档格式，由广泛应用于专业打印领域的Postscript解释语言演化而来。为了使PDF迅速得到推广，Adobe不仅公开了技术规范，而且还免费向用户提供可以显示和打印PDF文件的Adobe Acrobat应用软件。

　　PDF最大的优势就在于其良好的一致性。PDF文档一旦创建之后，无论是在任何系统或打印设备上，都可以完好的保持最初的页面设计样式和风格，不会发生任何变化。正是由于PDF文档在格式上的一贯性，使得越来越多的网站开始提供基于PDF格式的文件和说明，从简单的宣传手册到完整的电子图书，PDF越来越受到人们的喜爱和重视。

　　事实上，除了可以用于静态信息显示之外，我们还可以通过WEB脚本程序直接直接以PDF文档形式输出，不再仅仅局限于传统的HTML页面。

　　下面就用C# Builder生成一个简单的PDF文件：

　　首先，打开C# Builder，File-＞New-＞C# Application，Name这里我们设为"MKPDF"。

　　代码如下：

using System;using System.Drawing;using System.Collections;using System.ComponentModel;using System.Windows.Forms;using System.Data;using System.IO;using System.Text;namespace MKPDF{/// ＜summary＞/// Application : Generation of PDF file from text/// Author : Pramod Kumar Singh/// Date : 25th July 2001///＜/summary＞/// ＜summary＞/// Summary description for WinForm./// ＜/summary＞public class WinForm : System.Windows.Forms.Form{/// ＜summary＞/// Required designer variable./// ＜/summary＞static float pageWidth = 594.0f;static float pageDepth = 828.0f;static float pageMargin = 30.0f;static float fontSize = 20.0f;static float leadSize = 10.0f;//Create a PDF file.//PDF on Diskstatic StreamWriter pPDF=new StreamWriter("E:myPDF.pdf");//PDF in Memorystatic MemoryStream mPDF= new MemoryStream();//Convert the Text Data to PDF format and write back to//Memory Streamstatic void ConvertToByteAndAddtoStream(string strMsg){Byte[] buffer=null;buffer=ASCIIEncoding.ASCII.GetBytes(strMsg);mPDF.Write(buffer,0,buffer.Length);buffer=null;}//Format the data length in xRef Formatstatic string xRefFormatting(long xvalue){string strMsg =xvalue.ToString();int iLen=strMsg.Length;if (iLen＜10){StringBuilder s=new StringBuilder();int i=10-iLen;s.Append('0',i);strMsg=s.ToString() + strMsg;}return strMsg;}private System.ComponentModel.Container components = null;private System.Windows.Forms.Button button1;public WinForm(){//// Required for Windows Form Designer support//InitializeComponent();//// TODO: Add any constructor code after InitializeComponent call//}/// ＜summary＞/// Clean up any resources being used./// ＜/summary＞protected override void Dispose (bool disposing){if (disposing){if (components != null){components.Dispose();}}base.Dispose(disposing);}#region Windows Form Designer generated code/// ＜summary＞/// Required method for Designer support - do not modify/// the contents of this method with the code editor./// ＜/summary＞private void InitializeComponent(){this.button1 = new System.Windows.Forms.Button();this.SuspendLayout();//// button1//this.button1.Location = new System.Drawing.Point(64, 72);this.button1.Name = "button1";this.button1.Size = new System.Drawing.Size(136, 32);this.button1.TabIndex = 0;this.button1.Text = "生成PDF";this.button1.Click += new System.EventHandler(this.button1_Click);//// WinForm//this.AutoScaleBaseSize = new System.Drawing.Size(6, 14);this.ClientSize = new System.Drawing.Size(272, 181);this.Controls.Add(this.button1);this.Name = "WinForm";this.Text = "WinForm";this.ResumeLayout(false);}#endregion/// ＜summary＞/// The main entry point for the application./// ＜/summary＞[STAThread]static void Main(){Application.Run(new WinForm());}private void button1_Click(object sender, System.EventArgs e){//Create a ArrayList for xRefs of PDF document． ArrayList xRefs=new ArrayList();//Byte[] buffer=null;float yPos =0f;long streamStart=0;long streamEnd=0;long streamLen =0;string strPDFMessage=null;//PDF文档头信息strPDFMessage="%PDF-1.1n";ConvertToByteAndAddtoStream(strPDFMessage);//ID 1 For Containt//ID 2 For Length of the Stream//write the Text//1＞ Start a new PagexRefs.Add(mPDF.Length);strPDFMessage="1 0 objn";ConvertToByteAndAddtoStream(strPDFMessage);strPDFMessage="＜＜ /Length 2 0 R ＞＞n";ConvertToByteAndAddtoStream(strPDFMessage);strPDFMessage="streamn";ConvertToByteAndAddtoStream(strPDFMessage);//Get the start of the stream////////PDF文档描述streamStart=mPDF.Length;//字体strPDFMessage="BTn/F0 " + fontSize +" Tfn";ConvertToByteAndAddtoStream(strPDFMessage);//PDF文档实体高度yPos = pageDepth - pageMargin;strPDFMessage=pageMargin + " " + yPos +" Tdn"ConvertToByteAndAddtoStream(strPDFMessage);strPDFMessage= leadSize+" TLn"ConvertToByteAndAddtoStream(strPDFMessage);//Add the text data to the PDF memory stream//实体内容strPDFMessage= "(这是一个PDF文件)Tjn"ConvertToByteAndAddtoStream(strPDFMessage);strPDFMessage= "ETn";ConvertToByteAndAddtoStream(strPDFMessage);//Get the End of the streamstreamEnd=mPDF.Length;//Get the Length of the streamstreamLen=streamEnd-streamStart;strPDFMessage= "endstreamnendobjn";ConvertToByteAndAddtoStream(strPDFMessage);//PDF文档的版本信息//Add 2 object to xRefxRefs.Add(mPDF.Length);strPDFMessage="2 0 objn"+ streamLen + "nendobjn";ConvertToByteAndAddtoStream(strPDFMessage);//Add Page to xRefsxRefs.Add(mPDF.Length);strPDFMessage="3 0 objn＜＜/Type/Page/Parent 4 0 R/Contents 1 0 R＞＞nendobjn";ConvertToByteAndAddtoStream(strPDFMessage);//Build the PagesxRefs.Add(mPDF.Length);strPDFMessage="4 0 objn＜＜/Type /Pages /Count 1n";ConvertToByteAndAddtoStream(strPDFMessage);strPDFMessage="/Kids[n3 0 Rn]n";ConvertToByteAndAddtoStream(strPDFMessage);strPDFMessage="/Resources＜＜/ProcSet[/PDF/Text]/Font＜＜/F0 5 0 R＞＞ ＞＞n";ConvertToByteAndAddtoStream(strPDFMessage);strPDFMessage="/MediaBox [ 0 0 "+ pageWidth + " " + pageDepth + " ]n＞＞nendobjn";ConvertToByteAndAddtoStream(strPDFMessage);//Add font to xRefsxRefs.Add(mPDF.Length);strPDFMessage="5 0 objn＜＜/Type/Font/Subtype/Type1/BaseFont/Courier/Encoding/WinAnsiEncoding＞＞nendobjn";ConvertToByteAndAddtoStream(strPDFMessage);//Add the catalog to xRefsxRefs.Add(mPDF.Length);strPDFMessage="6 0 objn＜＜/Type/Catalog/Pages 4 0 R＞＞nendobjn";ConvertToByteAndAddtoStream(strPDFMessage);//xRefs EntrystreamStart=mPDF.Length;strPDFMessage="xrefn0 7n0000000000 65535 f n";for(int i=0;i＜xRefs.Count;i++){strPDFMessage+=xRefFormatting((long) xRefs[i])+" 00000 n n";}ConvertToByteAndAddtoStream(strPDFMessage);//Trailer for the PDFstrPDFMessage="trailern＜＜n/Size "+ (xRefs.Count+1)+"n/Root 6 0 Rn＞＞n";ConvertToByteAndAddtoStream(strPDFMessage);//xRef location entrystrPDFMessage="startxrefn" + streamStart+"n%%EOFn";ConvertToByteAndAddtoStream(strPDFMessage);//Write the PDF from Memory Stream to File StreammPDF.WriteTo(pPDF.BaseStream);//Close the StreammPDF.Close();pPDF.Close();}}}

　　按F9运行程序，点生成PDF按钮试试。注：以上代码是网上copy来的，有兴趣的可以研究研究。