博客园_.net BI

c# 調用sql

2012-02-03T00:39:00Z

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Configuration;
using System.Data;
using System.Data.SqlClient;
using System.Collections;


using System.IO;
using System.Text;
using System.Data.SqlClient;
using System.Xml;

/// <summary>
    /// SQLHelper 的摘要描述
    /// </summary>
public class SQLHelper
{

    private static readonly string ConnectionString = ConfigurationManager.ConnectionStrings["LocalSqlServer"].ConnectionString;

    

    #region ExecuteReader():執行并返回一個數據集


    /// <summary>
    /// 執行一段SqlCommand并返回一個結果集
    /// </summary>
    /// <param name="strSql">sql語句</param>
    /// <param name="Parms">參數</param>
    /// <returns></returns>
    public SqlDataReader ExecuteReader(string strSql, SqlParameter[] Parms)
    {
        try
        {
            using (SqlConnection conn = new SqlConnection(ConnectionString))
            {
                if (conn.State == ConnectionState.Open)
                {
                    conn.Close();
                }

                using (SqlCommand cmd = new SqlCommand())
                {
                    cmd.Connection = conn;
                    cmd.CommandText = strSql;
                    cmd.CommandType = CommandType.StoredProcedure;

                    cmd.Parameters.AddRange(Parms);
                    conn.Open();
                    SqlDataReader rdr = cmd.ExecuteReader(CommandBehavior.CloseConnection);
                    cmd.Parameters.Clear();
                    return rdr;
                    conn.Close();
                }
            }
          
        }
        catch (Exception ex)
        {
            //fn_share fn_share = new fn_share();
            systemErrorLog(strSql + ex.Message);

            return (SqlDataReader)null;
        }

        
    }
    #endregion

   
    #region ExecuteNonQuery():執行并返回一個結果，1代表成功，-1代表失敗
    
    /// <summary>
    /// 執行并返回一個結果，1代表成功，-1代表失敗
    /// </summary>
    /// <param name="strSql"></param>
    /// <param name="Parms"></param>
    /// <returns></returns>
    public int ExecuteNonQuery(string strSql, SqlParameter[] Parms)
    {
        try
        {
            int retcount = -1;
            using (SqlConnection conn = new SqlConnection(ConnectionString))
            {
                if (conn.State == ConnectionState.Open)
                {
                    conn.Close();
                }

                using (SqlCommand cmd = new SqlCommand())
                {
                    cmd.Connection = conn;
                    cmd.CommandText = strSql;
                    cmd.CommandType = CommandType.StoredProcedure;

                    cmd.Parameters.AddRange(Parms);
                    conn.Open();
                    retcount = cmd.ExecuteNonQuery();
                    conn.Close();
                    cmd.Parameters.Clear();

                }
            }

            return retcount;
        }
        catch (Exception ex)
        {
            systemErrorLog(strSql + ex.Message);

            return -1;
        }
   
    }
    #endregion

    #region ExecuteScalar():返回數據集第一行第一列的數據
    
    /// <summary>
    /// 返回數據集第一行第一列的數據
    /// </summary>
    /// <param name="strSql"></param>
    /// <param name="Parms">參數</param>
    /// <returns></returns>
    public object ExecuteScalar(string strSql, SqlParameter[] Parms)
    {
        object retobject = null;
        try
        {
            using (SqlConnection conn = new SqlConnection(ConnectionString))
            {
                if (conn.State == ConnectionState.Open)
                {
                    conn.Close();
                }

                using (SqlCommand cmd = new SqlCommand())
                {
                    cmd.Connection = conn;
                    cmd.CommandText = strSql;
                    cmd.CommandType = CommandType.StoredProcedure;

                    cmd.Parameters.AddRange(Parms);
                    conn.Open();
                    retobject = cmd.ExecuteScalar();
                    conn.Close();
                    cmd.Parameters.Clear();

                }
            }
        }
        catch (Exception ex)
        {
            systemErrorLog(strSql + ex.Message);


            
        }


        return retobject;
    }
    #endregion

    #region GetDataTable():根據sql返回一個數據表

    /// <summary>
    /// 根據sql返回一個數據表
    /// </summary>
    /// <param name="strSql"></param>
    /// <param name="Parms"></param>
    /// <returns></returns>
    public DataTable GetDataTable(string strSql, SqlParameter[] Parms)
    {
        try
        {
            DataTable dt = new DataTable();
            using (SqlConnection conn = new SqlConnection(ConnectionString))
            {
                if (conn.State == ConnectionState.Open)
                {
                    conn.Close();
                }

                using (SqlCommand cmd = new SqlCommand())
                {
                    cmd.Connection = conn;
                    cmd.CommandText = strSql;
                    cmd.CommandType = CommandType.StoredProcedure;

                    cmd.Parameters.AddRange(Parms);
                    conn.Open();
                    SqlDataReader dr = cmd.ExecuteReader();
                    dt.Load(dr);
                    conn.Close();

                    cmd.Parameters.Clear();

                }
            }
            return dt;

        }
        catch (Exception ex)
        {
            systemErrorLog(strSql + ex.Message);

            return (DataTable)null;
        }
        
    }
    #endregion

    #region GetDataSet():根據sql返回一個數據集

    /// <summary>
    /// 根據sql返回一個數據集
    /// </summary>
    /// <param name="strSql"></param>
    /// <param name="Parms"></param>
    /// <returns></returns>
    public DataSet GetDataSet(string strSql, SqlParameter[] Parms)
    {
        
        try
        {
            DataSet ds = new DataSet();
            using (SqlConnection conn = new SqlConnection(ConnectionString))
            {
                if (conn.State == ConnectionState.Open)
                {
                    conn.Close();
                }
                using (SqlCommand cmd = new SqlCommand())
                {
                    cmd.Connection = conn;
                    cmd.CommandText = strSql;
                    cmd.CommandTimeout = 0;
                    cmd.CommandType = CommandType.StoredProcedure;

                    cmd.Parameters.AddRange(Parms);

                    SqlDataAdapter da = new SqlDataAdapter(cmd);

                    da.Fill(ds);
                    conn.Close();
                    cmd.Parameters.Clear();
                }
            }
            return ds;
        }
        catch(Exception ex)
        {
            systemErrorLog(strSql + ex.Message);


            return (DataSet)null;
        }
        
    }
    #endregion

    public void systemErrorLog(string msg)
    {
        //sqlconn_Close();
        string filename = ConfigurationManager.AppSettings["UploadFilePath"].ToString() + @"\file\log\weblog_" + DateTime.Today.ToString("yyyyMMdd") + ".txt";

        if (File.Exists(filename.Trim()))
        {
            StreamWriter sw = File.AppendText(filename.Trim());
            sw.WriteLine("\n");
            sw.WriteLine(DateTime.Now.ToString() + msg);
            sw.Close();
        }
        else
        {
            StreamWriter sw = new StreamWriter(filename, false, Encoding.UTF8);
            sw.Write(msg);
            sw.Close();

        }


    }

}

public DataSet UserCart_List(string flag, string Guid, string UserCode, string DirectorCode, string SendNum, string paravalue)
    {

        SqlParameter[] param = new SqlParameter[]
         {
                        new SqlParameter("@flag",flag),
                        new SqlParameter("@Guid",Guid),
                        new SqlParameter("@UserCode",UserCode),
                        new SqlParameter("@DirectorCode",DirectorCode),
                        new SqlParameter("@SendNum",SendNum),
                        new SqlParameter("@paravalue",paravalue)
         };

        DataTable dt = new DataTable();
        return SQLHelper.GetDataSet("usp_BCC_Send_UserCart_List", param);


        //try
        //{
        //    sqlcomm("usp_BCC_Send_UserCart_List");
        //    mycomm.Parameters.AddWithValue("@flag", flag.Trim());
        //    mycomm.Parameters.AddWithValue("@Guid", Guid.Trim());
        //    mycomm.Parameters.AddWithValue("@UserCode", UserCode.Trim());

        //    mycomm.Parameters.AddWithValue("@DirectorCode", DirectorCode.Trim());
        //    mycomm.Parameters.AddWithValue("@SendNum", SendNum.Trim());
        //    mycomm.Parameters.AddWithValue("@paravalue", paravalue.Trim());


        //    SqlDataAdapter da = new SqlDataAdapter(mycomm);
        //    DataSet ds = new DataSet();

        //    da.Fill(ds, "DeptAssistant_List");

        //    sqlconn_Close();
        //    return ds;
        //}
        //catch (Exception ee)
        //{
        //    systemErrorLog("UserCart_List" + ee.Message);
        //    sqlconn_Close();
        //    return (DataSet)null;

        //}
    }

本文链接

MSFT Outlook VBA处理新邮件的方法

2012-01-19T08:15:00Z

俺们有两个邮箱，1个外部的邮箱1（outlook），1个内部邮箱0（lotus notes）。想要outlook邮箱收到新邮件之后判断一下subject的内容，如果是"kkk:"开头，则将"kkk:"后面的内容作为to发到lotus notes的邮箱里面去。

测试环境（xp＋msft outlook），按alt+F11进入VBA编辑。注意要在工具 -> 宏 -> 安全性中设置为低。部分代码如下（手抄的，可能有错哦～～）：

option explicit

public WithEvents outApp as Outlook.Application

Sub Initialite_handle ()

　　set outApp = Application

End Sub

' 打开OutLook的时候调用，注册application引用

private sub Application_Startup ()

　　Initialize_handle

End Sub

'注意函数命名，收到新邮件的时候自动调用

Private sub outApp_NewMailEx (ByVal EntryIDCollection As String)

　　Dim mai As Object

　　Dim intInitial As Integer

　　Dim intFinal As Integer

　　Dim strEntry As String

　　Dim intLength As Integer

　　intInitial - 1

　　intLength = Len(EntryIDCollection)

　　intFinal = InStr(intInitial, EntryIDCollection, ",")

　　Do While intFinal <> 0

　　　　strEntryID = Stringmid(EntryIDCollection, intInitial, (intFinal - intInitial))

　　　　set mai = Application.Session.GetItemFromID(strEntryID)

　　　　newmail_proc mai

　　　　intInitial = intFinal +1

　　　　intFinal = inStr(intInitial, EntryIDCollection, ",")

　　Loop

　　strEntryID = String.mid(EntryIDCollection, intInitial, (intLength - intInitial)+1)

　　set mai = Application.Session.GetItemFromID(strEntryID)

　　newmail_proc mai

End Sub

private sub newmail_proc (ByVal mai As Object)

　　Dim itm As Object

　　Dim result As Integer

　　Dim str_kkk As String

　　Dim str_subject As String

　　Dim len_subject As Integer

　　Dim str_body As String

　　Dim str_reception As String

　　str_subject = mai.subject

　　len_subject = Len(str_subject)

　　str_kkk = String.mai(str_subject, 1, 4)

　　result = String.strComp(str_kkk, "kkk:", vbTextComare)

　　if result <> 0 then

　　Else

　　　　String_reception = String.mid(str_subject, 5, (len_subject-4)+1)

　　　　str_body = mai.body

　　　　set Itm = outApp.CreateItem(0)

　　　　with Itm

　　　　　　.subject = "new mail from a@a.com"

　　　　　　.to = str_reception

　　　　　　.body = str_body

　　　　　　.send

　　　　End With

　　End if

End Sub

本文链接

在Outlook中用VBA导出HTML格式邮件

2012-01-19T08:14:00Z

我每天所收到的e-mail中，订阅的电子杂志占了很大的比例。其中既有新闻也有电脑技术或娱乐性文章，加在一起竟有上百封。后来我知道单位里许多人同我一样也喜欢看，而且有的人还订了同样的杂志，所以我就每天收到邮件后把它们整理到局域网上去。只是这么多的邮件，整理起来工作量可不小，怎么解决一下呢？

这些邮件通常都是HTML格式的，用Outlook通常的方法不能正确的导出，而且分布在许多下层子夹中，导出很麻烦。我在OUTLOOK中，用VBA实现了HTML邮件导出并自动发布到网络上。

要对邮件箱里的邮件进行操作，首先要取得Outlook MAPI名字空间。可以使用下面的语句：

Dim mobjOutlook As Outlook.NameSpace

Dim objOutlook As New Outlook.Application

mobjOutlook=objoutlook.GetNameSpace(“MAPI”)

用mobjOutlook的GetDefaultFolder方法。可以取得收件箱的MAPIFolder对象：

Dim objFolder As Outlook.MAPIFolder

ObjFolder=mobjOutlook.GetDefaultFolder(6)

其中参数6代表收件箱，其他参数的意义如下表：

常量	数值	描述
OlFolderDeletedItems	3	已删除邮件
OlFolderOutbox	4	发件箱
OlFolderSentMail	5	已发件邮件
olFolderInbox	6	收件箱
OlFolderCalendar	9	日历
OlFolderContacts	10	联系人
olFolderJournal	11	日记
olFolderNotes	12	便笺
olFolderTasks	13	任务
olFolderDrafts	16	草稿

在objFolder的属性包含邮件项集合即ITEMS，也包含所有下一级子夹的集合Folders。

对每一个邮件，首先取得邮件的接收时间，如果是当天收到的就创建并打开一个HTML文件，以其主题Subject为文件名，把它的HTML格式的内容，即HTMLBody属性的值写入这个文件，然后关闭并处理下一个。

对下一级子夹，用递归调用的方式，可以遍历收件箱中每一层夹中的所有邮件。在生成邮件文件时，还同时生成索引文件。

完整的程序如下：

Private mobjOutlook As Outlook.NameSpace

Private fs, fo

Private Sub GetOutlook()

Dim objOutlook As New Outlook.Application

Set mobjOutlook = objOutlook.GetNamespace("MAPI")

End Sub

Sub ListMailFolders(objFolder As Outlook.MAPIFolder)

Dim objItem As Object

Dim f

Dim str1, str2, str3 As String

For Each objItem In objFolder.Items

If (FormatDateTime(objItem.ReceivedTime, vbShortDate) = FormatDateTime(Date, vbShortDate)) Then

str2 = objItem.Subject

str1 = "j:wwwrootnews" + str2 + ".htm"

Set f = fs.OpenTextFile(str1, 2, True, TristateFalse)

f.Write objItem.HTMLBody

f.Close

str3 = "< p>< a href='" + objItem.Subject + ".htm'>" + objItem.Subject + "< /a>< /p> "

fo.Write str3

End If

Dim objf As Outlook.MAPIFolder

For Each objf In objFolder.Folders

ListMailFolders objf

Set objItem = Nothing

End Sub

Sub ListMailItems(longFolder As Long)

Dim objFolder As Outlook.MAPIFolder

Dim f

If mobjOutlook Is Nothing Then

GetOutlook

End IF

Set objFolder = mobjOutlook.GetDefaultFolder(longFolder)

ListMailFolders objFolder

End Sub

Private Sub storemail()

Set fs=CreateObject(“Scripting.FileSystemObject”)

Set fo=fs.OpenTextFile(“j:wwwrootnewsindex.html”,2,True,TristateFalse)

fo.Write “< HTML>< HEAD>< META content=’text/html; charset=gb2312’ http-equiv=Content-Type> < TITLE>< /TITLE>< /HEAD>< BODY>

ListMailItems(6)

fo.Write “< /BODY>< /HTML>”

fo.Close

End Sub

在Outlook2000中创建一个新的宏，用VB编辑器编辑它，把上面的程序拷贝到同一模块，注意把生成文件的目录名改为自己WEB服务器上的WWW服务根文件夹名。在宏中调用storemail，执行宏，就可以导出当天收到的所有邮件。

所有指向这些HTML文件的链接放在同一目录下的index.html中，这样每个人都可以在网上浏览这些文章了。

本文链接

在 Visual Basic 或從 ASP 的 Microsoft Access & VBScript VBA

2011-05-05T04:37:00Z

Dim Conn1 As ADODB.Connection
   Dim Cmd1 As ADODB.Command
   Dim Rs1 As ADODB.Recordset


   Dim strTmp As String


   Dim Connect As String
   Dim Drop As String
   Dim Create As String
   Dim sp as string


   Dim i As Integer
   Dim l As Long


   sConnect= "driver={sql server};" &amp; _


             "server=server_name;" &amp; _
             "Database=pubs;UID=uder_id;PWD=password;"


   sCreate = "create proc sp_AdoTest( @InParam int, " &amp; _


             "@OutParam int OUTPUT ) " &amp; _
             "as "  &amp; _
             "select @OutParam = @InParam + 10 " &amp; _
             "SELECT * FROM Authors WHERE "   &amp; _
             "State <> 'CA' "  &amp; _
             "return @OutParam +10"


   sDrop   = "if exists "  &amp; _


             "(select * from sysobjects where "  &amp; _
             "id = object_id('dbo.sp_AdoTest') and " &amp; _
             "sysstat &amp; 0xf = 4)"  &amp; _
             "drop procedure dbo.sp_AdoTest"


   sSP     = "sp_Adotest"


   ' Establish connection.
   Set Conn1 = New ADODB.Connection
   Conn1.ConnectionString = sConnect
   Conn1.Open


   ' Drop procedure, if it exists &amp; recreate it.
   Set Rs1 = Conn1.Execute(sDrop, l, adCmdText)
   Set Rs1 = Nothing


   Set Rs1 = Conn1.Execute(sCreate, l, adCmdText)
   Set Rs1 = Nothing


   ' Open recordset.
   Set Cmd1 = New ADODB.Command
   Cmd1.ActiveConnection = Conn1
   Cmd1.CommandText = "sp_AdoTest"
   Cmd1.CommandType = adCmdStoredProc
   Cmd1.Parameters.Refresh
   Cmd1.Parameters(1).Value = 10
   Set Rs1 = Cmd1.Execute()


   ' Process results from recordset, then close it.
   RS1.Close
   Set Rs1 = Nothing


   ' Get parameters (assumes you have a list box named List1).


   Debug.print vbTab &amp; "RetVal Param = " &amp; Cmd1.Parameters(0).Value
   Debug.print vbTab &amp; "Input  Param = " &amp; Cmd1.Parameters(1).Value
   Debug.print vbTab &amp; "Output Param = " &amp; Cmd1.Parameters(2).Value

本文链接

读取PDF的文字--zt

2011-01-28T01:17:00Z

1.下载PDFBox 0.7.3 sourceforge.net/project/showfiles.php

2.复制并加载如下5个DLL文件到bin目录下面

IKVM.GNU.Classpath.dll

PDFBox-0.7.3.dll

FontBox-0.1.0-dev.dll

IKVM.Runtime.dll

bcprov-jdk14-132.dll

using System;
using org.pdfbox.pdmodel;
using org.pdfbox.util;
namespace PDFReader
{
    class Program
    {
        static void Main(string[] args)
        {
            PDDocument doc = PDDocument.load("lopreacamasa.pdf");
            PDFTextStripper pdfStripper = new PDFTextStripper();
            Console.Write(pdfStripper.getText(doc));
        }
    }
}

本文链接

PdfSharp.dll 更改pdf 設置如不能複製，列印等

2011-01-28T00:55:00Z

下載并引用PdfSharp.dll

using PdfSharp.Pdf;

using System.IO;

public string PDFSecurity(string strSourcePDFFile, string strDestPDFFile, bool AddUserPassword, string strPassword)
        {

            try
            {

                PdfSharp.Pdf.PdfDocument pdfsourcedoc = PdfSharp.Pdf.IO.PdfReader.Open(strSourcePDFFile, PdfSharp.Pdf.IO.PdfDocumentOpenMode.Modify);

                pdfsourcedoc.SecuritySettings.DocumentSecurityLevel = PdfSharp.Pdf.Security.PdfDocumentSecurityLevel.Encrypted128Bit;

                pdfsourcedoc.SecuritySettings.OwnerPassword = "adamtest";

                pdfsourcedoc.SecuritySettings.PermitAccessibilityExtractContent = false;

                pdfsourcedoc.SecuritySettings.PermitAnnotations = false;

                pdfsourcedoc.SecuritySettings.PermitAssembleDocument = false;

                pdfsourcedoc.SecuritySettings.PermitExtractContent = false;

                pdfsourcedoc.SecuritySettings.PermitFormsFill = false;

                pdfsourcedoc.SecuritySettings.PermitFullQualityPrint = false;

                pdfsourcedoc.SecuritySettings.PermitModifyDocument = false;

                pdfsourcedoc.SecuritySettings.PermitPrint = false;

                if (AddUserPassword == true)
                {

                    pdfsourcedoc.SecuritySettings.UserPassword = strPassword;

                }

                pdfsourcedoc.Save(strDestPDFFile);

                return "";

            }

            catch (Exception ex)
            {

                return ex.ToString();

            }
        
        }

本文链接

PDF元件 PDFBox --zt

2011-01-27T09:00:00Z

需求:
1. 從pdf裏截取出文字.
2. 產生pdf的縮圖

或許你知道的是ITextSharp，不過 ITextSharp的主要是"產生"pdf，他在讀取pdf方面是不大行的(我實在搞不懂他的PdfReader要怎麼用)

PDFBox 是用 java開發的，但他有特意搭配 IKVM(一個讓java的類別可對應到.net的library) ，讓你在.net 上也可以順利使用。

總共要加入參考5個dll，IKVM的dll，下載PDFBox裏面就有了
PDFBox-0.7.3.dll
IKVM.Runtime.dll
IKVM.GNU.Classpath.dll
IKVM.AWT.WinForms.dll
FontBox-0.1.0-dev.dll

網址 http://www.pdfbox.org/

那我先從轉換文字檔的部份先試起，還蠻慢的，或許是我選了一個8MB的pdf關係吧，不過可以順利轉喔。

/// 
    /// 將 PDF 檔轉換成文字檔
    /// 
    /// 
    /// 
    public void PdfToText(string pdfFile, string txtFile) {
        PDDocument doc = PDDocument.load(pdfFile);
        PDFTextStripper stripper = new PDFTextStripper();
        string str = stripper.getText(doc);
        StreamWriter sw = new StreamWriter(txtFile);
        sw.WriteLine("作者:" + doc.getDocumentInformation().getAuthor());
        sw.WriteLine("標題:" + doc.getDocumentInformation().getTitle());
        sw.WriteLine(str);
        sw.Close();
    }

接下來才是我真的想要的，將PDF的第1頁，轉換成縮圖，放在網頁當索引，
可是... 當我按圖索code操作時，他很爽快的丟出 exception給我「type not implemented yet 」
哎..是誰是誰搞的鬼啊，是PDFBox? 是IKVM? 還是我??
好吧，慢慢追，PDFBox雖然說 convertToImage 目前還在beta階段，但是PdPage.java底下，的確有該段code，
而且"看起來"也很合理(其實java我看不大懂:p)。
那他在初始BufferedImage是出了什麼問題? 接下來往IKVM 裏面追，這時就該 .Net Refactor 出動啦
(因為我沒下載ikvm的原始碼啦，這時也懶的下載了)，挖出傢伙挖開IKVM.GNU.Classpath.dll來瞧瞧。

BufferedImage裏面有一種type 還沒實作@@, 而且就是PDFBox 要用的那種(TYPE_BYTE_INDEXED) -_-|||，
好吧，我的好奇心告一段落，我要等下個版本的IKVM，看會不會實作這，或是PDFBox改成用別種Image型態....

底下是失敗的程式碼

/// 
    ///  將 PDF 轉換成 JPG 圖片
    /// 
    /// 
    /// 
    /// 第幾頁
    public void PdfToJpg(string pdfFile,string jpgFile,int pageIndex) {
        PDDocument doc = PDDocument.load(pdfFile);
        java.util.List pages = doc.getDocumentCatalog().getAllPages();
        if (pages.size() > 0) {
            PDPage page = (PDPage)pages.get(pageIndex);
            BufferedImage image = page.convertToImage();
            java.awt.Graphics gc = image.getGraphics();
            Bitmap bitmap = ((ikvm.awt.NetGraphics)gc).getBitmap();
            bitmap.Save(jpgFile);
        }
    }

殘念...

本文链接

用 iTextSharp 修改 PDF 文件的属性--》只能看，不能复制，列印

2011-01-27T07:21:00Z

using iTextSharp.text;

using iTextSharp.text.pdf;

public void pdfreadonly(string pdfname)

{

string pdfFile = pdfname;// "d:\\sample.pdf";

//把文件读入内存可立即释放文件句柄，方便信息覆盖原文件

PdfReader reader = new PdfReader(File.ReadAllBytes(pdfFile));

//获取到本文件的 MetaData 信息

Dictionary<string, string> info = reader.Info;

reader.Close();

//覆盖掉原 PDF 文件中

PdfStamper stamper = new PdfStamper(reader, new FileStream(pdfFile, FileMode.Create, FileAccess.Write));

stamper.MoreInfo = info;

stamper.SetEncryption(PdfWriter.STRENGTH40BITS, null, null, PdfWriter.AllowScreenReaders);

stamper.Close();

}

本文链接

HTML转PDF（C#---itextsharp--zt

2011-01-26T09:01:00Z

一、需求：将HTML转PDF打印。Web项目中总是有这样的需求，很是让人苦恼。
二、分析：如何完成这个工作？
1、需要解析HTML，然后利用itextsharp绘制pdf文档。解析HTML是一个很难完成的任务，各个浏览器对HTML的解析五花八门就知道这不好解决。这条路不好走，但也是可以完成的，通过webbrowser类可以解析HTML获取各对象的位置，然后绘制到pdf中。方法是可行，其中的复杂度不小。
2、将HTML保存为图片，然后插入到pdf文档中，这里将介绍这种方法。随之而来的问题：如何将HTML保存为图片呢？
三、解决办法：
1、将HTML保存为图片：需要用到webbrower类，将指定的HTML载入webbrower，然后调用其DrawToBitmap方法获取图片。代码如下：
private System.Drawing.Bitmap bitmap;
    private string url;
    private int w = 760, h = 900;//A4纸张对应的分辨率大概就是760*900
    public void setBitmap()
    {
        using (WebBrowser wb = new WebBrowser())
        {
            wb.Width = w;
            wb.Height = h;
            wb.ScrollBarsEnabled = false;
            wb.Navigate(url);
            //确保页面被解析完全
            while (wb.ReadyState != WebBrowserReadyState.Complete)
            {
                System.Windows.Forms.Application.DoEvents();
            }
            bitmap = new System.Drawing.Bitmap(w, h);
            wb.DrawToBitmap(bitmap, new System.Drawing.Rectangle(0, 0, w, h));
            wb.Dispose();
        }
    }
2、如何调用WebBrowser？直接在web页面用的话，会出现错误：“当前线程不在单线程单元中,因此无法实例化 ActiveX 控件”。这需要创建一个单线程单元，在此单元内调用，方法如下while循环确保线程执行完成，也就是确保bitmap已经被初始化了：
            url = Server.MapPath("s.html");
            Thread thread = new Thread(new ThreadStart(setBitmap));
            thread.SetApartmentState(ApartmentState.STA);
            thread.Start();
            while (thread.IsAlive)
                Thread.Sleep(100);
            bitmap.Save(Server.MapPath("t.bmp"));
3、插入图片到PDF：
iTextSharp.text.Image img = iTextSharp.text.Image.GetInstance(bitmap, System.Drawing.Imaging.ImageFormat.Bmp);
            img.ScalePercent(75);//pdf分辨率要大一些，需要缩小以恢复正常PDF是96DPI，IE是72DPI
            doc.Add(img);
四、完整代码如下：
using System;
using System.Data;
using System.Web;
using iTextSharp.text.pdf;
using iTextSharp.text;
using System.IO;
using System.Windows.Forms;
using System.Threading;
public partial class HTML2PDF : System.Web.UI.Page
{
    protected void Page_Load(object sender, EventArgs e)
    {

    }
    protected void Button1_Click(object sender, EventArgs e)
    {
        CreatPdf();
    }
    private System.Drawing.Bitmap bitmap;
    private string url;
    private int w = 760, h = 900;
    public void setBitmap()
    {
        using (WebBrowser wb = new WebBrowser())
        {
            wb.Width = w;
            wb.Height = h;
            wb.ScrollBarsEnabled = false;
            wb.Navigate(url);
            //确保页面被解析完全
            while (wb.ReadyState != WebBrowserReadyState.Complete)
            {
                System.Windows.Forms.Application.DoEvents();
            }
            bitmap = new System.Drawing.Bitmap(w, h);
            wb.DrawToBitmap(bitmap, new System.Drawing.Rectangle(0, 0, w, h));
            wb.Dispose();
        }
    }
    private void CreatPdf()
    {
        Document doc = new Document(PageSize.A4, 9, 18, 36, 36);//左右上下
        MemoryStream ms = new MemoryStream();
        try
        {
            PdfWriter writer = PdfWriter.GetInstance(doc, ms);
            writer.CloseStream = false;
            doc.Open();
            url = Server.MapPath("s.html");
            Thread thread = new Thread(new ThreadStart(setBitmap));
            thread.SetApartmentState(ApartmentState.STA);
            thread.Start();
            while (thread.IsAlive)
                Thread.Sleep(100);
            bitmap.Save(Server.MapPath("t.bmp"));

            iTextSharp.text.Image img = iTextSharp.text.Image.GetInstance(bitmap, System.Drawing.Imaging.ImageFormat.Bmp);
            img.ScalePercent(75);//560 630
            doc.Add(img);
        }
        catch (Exception err)
        {
            throw new Exception(err.Message);
        }
        finally
        {
            doc.Close();
            using (FileStream fs = new FileStream(Server.MapPath("out.pdf"), FileMode.Create))
            {
                ms.Position = 0;
                byte[] bit = new byte[ms.Length];
                ms.Read(bit, 0, (int)ms.Length);
                fs.Write(bit, 0, bit.Length);
            }
            ViewPdf(ms);
        }
    }

    private void ViewPdf(Stream fs)
    {
        Response.Clear();
        //中文名的话
        //Response.AppendHeader("Content-Disposition", "attachment;filename=" +
        //             HttpUtility.UrlEncode(fileName, System.Text.Encoding.UTF8) + ";charset=GB2312");
        Response.AddHeader("Content-Disposition", "attachment;FileName=out.pdf");
        Response.AddHeader("Content-Length", fs.Length.ToString());
        Response.ContentType = "application/pdf";
        long fileLength = fs.Length;
        int size = 10240;//10K一--分块下载，10K为1块
        byte[] readData = new byte[size];
        if (size > fileLength)
            size = Convert.ToInt32(fileLength);
        long fPos = 0;
        bool isEnd = false;
        while (!isEnd)
        {
            if ((fPos + size) >= fileLength)
            {
                size = Convert.ToInt32(fileLength - fPos);
                isEnd = true;
            }
            readData = new byte[size];
            fs.Position = fPos;
            fs.Read(readData, 0, size);
            Response.BinaryWrite(readData);
            Response.OutputStream.Flush();
            fPos += size;
        }
        fs.Close();
        Response.OutputStream.Close();
        Response.End();//非常重要，没有这句的话，页面的HTML代码将会保存到文件中
        Response.Close();
    }
}

五、至此工作完成，转载注明出处，谢谢。2009-9-17

六、2009-12-23补充说明：增加pdf打印清晰度，对于图片，要想在pdf上打印的更清晰需要生成大图，然后等比例缩放存放在pdf里面，这样pdf打印出来的图会很清晰，基本是缩放比例越大越清晰，对于图形报表特别有效。对于本文介绍的方法，也可以生成大图缩放到pdf里面。

本文链接

ppt-->PDF

2011-01-26T07:44:00Z

下载并安装SaveAsPDF.exe

需要安装Office 2007和Microsoft提供的“Microsoft Save as PDF or XPS Add-in for 2007 Microsoft Office programs”组件，可以从官网下载。
以下是代码（我用的Chrome浏览器，无法添加程序块，面前看吧。代码是我正在用的，无错误，直接复制过来）
//ppt转pdf

using Microsoft.Office.Interop.PowerPoint;

using Microsoft.Office.core;
protected void PPTToPDF(string fileNameDateTime, string fileNameDateTimeWithoutExtension)
{
string paramSource = Server.MapPath("~/materials/internalPDF/") + fileNameDateTime;
string paramTarget = Server.MapPath("~/materials/internalPDF/") + fileNameDateTimeWithoutExtension + ".pdf";

Microsoft.Office.Interop.PowerPoint.ApplicationClass application = null;
Microsoft.Office.Interop.PowerPoint.Presentation presentation = null;
try
{
application = new Microsoft.Office.Interop.PowerPoint.ApplicationClass();
presentation = application.Presentations.Open(paramSource, MsoTriState.msoTrue, MsoTriState.msoFalse, MsoTriState.msoFalse);
presentation.SaveAs(paramTarget, PpSaveAsFileType.ppSaveAsPDF, MsoTriState.msoTrue);
}
catch (Exception ex)
{
throw new Exception(ex.Message);
}
finally
{
if (presentation != null)
{
presentation.Close();
presentation = null;
}
if (application != null)
{
application.Quit();
application = null;
}
GC.Collect();
GC.WaitForPendingFinalizers();
GC.Collect();
GC.WaitForPendingFinalizers();
}

}
注意添加对Microsoft.Office.Interop.PowerPoint的引用

本文链接

博客园_.net BI

c# 調用sql

MSFT Outlook VBA处理新邮件的方法

在Outlook中用VBA导出HTML格式邮件

在 Visual Basic 或從 ASP 的 Microsoft Access & VBScript VBA

读取PDF的文字--zt

PdfSharp.dll 更改pdf 設置 如不能複製，列印等

PDF元件 PDFBox --zt

用 iTextSharp 修改 PDF 文件的属性--》只能看，不能复制，列印

HTML转PDF（C#---itextsharp--zt

ppt-->PDF

PdfSharp.dll 更改pdf 設置如不能複製，列印等