卅楼跌下的马
posts - 16, comments - 20, trackbacks - 1, articles - 1
博客园
首页
管理
订阅
用C#实现生成PDF文档
using
System;
using
System.IO;
using
System.Text;
using
System.Collections;
namespace
PDFGenerator
{
public
class
PDFGenerator
{
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
;
static
StreamWriter pPDF
=
new
StreamWriter(
"
E:\\myPDF.pdf
"
);
static
MemoryStream mPDF
=
new
MemoryStream();
static
void
ConvertToByteAndAddtoStream(
string
strMsg)
{
Byte[] buffer
=
null
;
buffer
=
ASCIIEncoding.ASCII.GetBytes(strMsg);
mPDF.Write(buffer,
0
,buffer.Length);
buffer
=
null
;
}
static
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;
}
static
void
Main(
string
[] args)
{
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.1\n
"
;
ConvertToByteAndAddtoStream(strPDFMessage);
xRefs.Add(mPDF.Length);
strPDFMessage
=
"
1 0 obj\n
"
;
ConvertToByteAndAddtoStream(strPDFMessage);
strPDFMessage
=
"
<< /Length 2 0 R >>\n
"
;
ConvertToByteAndAddtoStream(strPDFMessage);
strPDFMessage
=
"
stream\n
"
;
ConvertToByteAndAddtoStream(strPDFMessage);
/**/
/**/
/**/
//////
//PDF文档描述
streamStart
=
mPDF.Length;
//
字体
strPDFMessage
=
"
BT\n/F0
"
+
fontSize
+
"
Tf\n
"
;
ConvertToByteAndAddtoStream(strPDFMessage);
//
PDF文档实体高度
yPos
=
pageDepth
-
pageMargin;
strPDFMessage
=
pageMargin
+
"
"
+
yPos
+
"
Td\n
"
;
ConvertToByteAndAddtoStream(strPDFMessage);
strPDFMessage
=
leadSize
+
"
TL\n
"
;
ConvertToByteAndAddtoStream(strPDFMessage);
//
实体内容
strPDFMessage
=
"
(http://www.wenhui.org)Tj\n
"
;
ConvertToByteAndAddtoStream(strPDFMessage);
strPDFMessage
=
"
ET\n
"
;
ConvertToByteAndAddtoStream(strPDFMessage);
streamEnd
=
mPDF.Length;
streamLen
=
streamEnd
-
streamStart;
strPDFMessage
=
"
endstream\nendobj\n
"
;
ConvertToByteAndAddtoStream(strPDFMessage);
//
PDF文档的版本信息
xRefs.Add(mPDF.Length);
strPDFMessage
=
"
2 0 obj\n
"
+
streamLen
+
"
\nendobj\n
"
;
ConvertToByteAndAddtoStream(strPDFMessage);
xRefs.Add(mPDF.Length);
strPDFMessage
=
"
3 0 obj\n<</Type/Page/Parent 4 0 R/Contents 1 0 R>>\nendobj\n
"
;
ConvertToByteAndAddtoStream(strPDFMessage);
xRefs.Add(mPDF.Length);
strPDFMessage
=
"
4 0 obj\n<</Type /Pages /Count 1\n
"
;
ConvertToByteAndAddtoStream(strPDFMessage);
strPDFMessage
=
"
/Kids[\n3 0 R\n]\n
"
;
ConvertToByteAndAddtoStream(strPDFMessage);
strPDFMessage
=
"
/Resources<</ProcSet[/PDF/Text]/Font<</F0 5 0 R>> >>\n
"
;
ConvertToByteAndAddtoStream(strPDFMessage);
strPDFMessage
=
"
/MediaBox [ 0 0
"
+
pageWidth
+
"
"
+
pageDepth
+
"
]\n>>\nendobj\n
"
;
ConvertToByteAndAddtoStream(strPDFMessage);
xRefs.Add(mPDF.Length);
strPDFMessage
=
"
5 0 obj\n<</Type/Font/Subtype/Type1/BaseFont/Courier/Encoding/WinAnsiEncoding>>\nendobj\n
"
;
ConvertToByteAndAddtoStream(strPDFMessage);
xRefs.Add(mPDF.Length);
strPDFMessage
=
"
6 0 obj\n<</Type/Catalog/Pages 4 0 R>>\nendobj\n
"
;
ConvertToByteAndAddtoStream(strPDFMessage);
streamStart
=
mPDF.Length;
strPDFMessage
=
"
xref\n0 7\n0000000000 65535 f \n
"
;
for
(
int
i
=
0
;i
<
xRefs.Count;i
++
)
{
strPDFMessage
+=
xRefFormatting((
long
) xRefs[i])
+
"
00000 n \n
"
;
}
ConvertToByteAndAddtoStream(strPDFMessage);
strPDFMessage
=
"
trailer\n<<\n/Size
"
+
(xRefs.Count
+
1
)
+
"
\n/Root 6 0 R\n>>\n
"
;
ConvertToByteAndAddtoStream(strPDFMessage);
strPDFMessage
=
"
startxref\n
"
+
streamStart
+
"
\n%%EOF\n
"
;
ConvertToByteAndAddtoStream(strPDFMessage);
mPDF.WriteTo(pPDF.BaseStream);
mPDF.Close();
pPDF.Close();
}
}
}
Posted on 2005-04-15 15:57
tsyung
阅读(437)
评论(0)
编辑
收藏
网摘
所属分类:
.net WinForm
刷新评论列表
刷新页面
返回页首
发表评论
昵称:
[登录]
[注册]
主页:
邮箱:
(仅博主可见)
验证码:
看不清,换一个
评论内容:
登录
注册
[使用Ctrl+Enter键快速提交评论]
0
138346
hIVhzE7COVk=
链接:
切换模板
导航:
网站首页
社区
新闻
博问
闪存
网摘
招聘
找找看
Google搜索
China-pub 计算机图书网上专卖店!6.5万品种 2-8折!
China-Pub 计算机绝版图书按需印刷服务
相关文章:
最新IT新闻:
IBM发布全球首款开源智能编译器
IE颓势不减 微软下月公布最新浏览器架构
竞争日趋激烈 微软欲借 Windows 7 扭转战局
上海电信计划2012年80%用户实现100M带宽
数万名网友签名抗议星际争霸2取消局域网功能
相关链接:
<
2005年4月
>
日
一
二
三
四
五
六
27
28
29
30
31
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
1
2
3
4
5
6
7
与我联系
发短消息
搜索
常用链接
我的随笔
我的空间
我的短信
我的评论
更多链接
我的参与
我的新闻
最新评论
我的标签
留言簿
给我留言
查看留言
我参与的团队
湖南.NET俱乐部(0/0)
随笔分类
.net WinForm(3)
Asp.net(5)
HTML+CSS(3)
Others(4)
xml,xslt(1)
随笔档案
2007年11月 (1)
2006年4月 (2)
2006年3月 (1)
2006年1月 (2)
2005年11月 (1)
2005年9月 (1)
2005年8月 (3)
2005年7月 (1)
2005年6月 (1)
2005年5月 (1)
2005年4月 (2)
文章档案
2005年7月 (1)
相册
旅行轨迹
梧桐山
收藏夹
.Net2.0(2)
ASP.net 1.1(12)
asp.net 2.0(2)
C#(13)
DB Object(5)
Design Pattern(3)
Html+CSS(1)
Javascript/Ajax(4)
Links
Blogger
MSN Spaces
My CSDN Blogs
编程快乐