インストールマニアックス ～ グレープシティコンポーネント meets Windows Azure

ActiveReports for .NET 6.0JのAzure動作検証

　ActiveReportsは、日本独自の帳票文化における高い要求を叶えることができる筆者愛用のコンポーネントです。Webアプリケ―ションと言えども、PDFなどで印刷可能な品質の出力機能が求められるときには、必須のコンポーネントです。

　ActiveReportsは、以前もWindows Azure上で動作させる方法を紹介しましたが、フルIISモードでどれだけ手間がかからないようになったかを確認したいと思います。

ActiveReportsをWindows Azure開発環境で動作させてみる

　フルIISモードになったとしても、Windows Azureの実環境にはActiveReportsはインストールされていないので、WebRole側のプロジェクトで参照設定の追加と各DLLの［ローカルコピー］プロパティをTrueにする作業を行います。

図11 参照設定

　次に、aspxファイルを新規追加して、ActiveReportsを使ってPDFを返却するページを作成します。

リスト2 ActiveReportsを使ってPDFを返却する例

Imports DataDynamics.ActiveReports
Imports DataDynamics.ActiveReports.Export.Pdf

Public Class CZ1102ActiveReports
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object,
                            ByVal e As System.EventArgs) _
                        Handles Me.Load
        If Not Me.IsPostBack Then
            Call GetRecords(False)
        End If
    End Sub

    Private Function GetRecords(ByVal isEmbedFonts As Boolean) As Boolean
        Using webClient As New System.Net.WebClient
            Dim userID As String = My.User.Name
            Dim pdfStream() As Byte
            Dim pdf() As Byte = System.Text.Encoding.UTF8.GetBytes("%PDF")

            pdfStream = GetPdfDatas(isEmbedFonts)
            If pdfStream(0) = pdf(0) AndAlso pdfStream(1) = pdf(1) AndAlso pdfStream(2) = pdf(2) AndAlso pdfStream(3) = pdf(3) Then
                ' ブラウザに対してPDFドキュメントの適切なビューワを使用するように指定します。
                Response.ContentType = "application/pdf"
                Response.AddHeader("content-disposition", "inline; filename=AzureActiveReports.PDF")
            End If
            ' 出力ストリームにPDFのストリームを出力します。
            Response.BinaryWrite(pdfStream)
            ' バッファリングされているすべての内容をクライアントへ送信します。
            Response.End()
        End Using
        Return True
    End Function

    ''' <summary>
    ''' PDFデータを取得する
    ''' </summary>
    Private Function GetPdfDatas(ByVal isEmbedFonts As Boolean) As Byte()
        Dim memStream As System.IO.MemoryStream
        Dim ds As DataSet

        Using _proc As New CZ1102DataClass
            ds = _proc.GetRecords
        End Using
        Using _rpt As New CZ1102Reports
            _rpt.Document.Printer.PrinterName = ""
            _rpt.PageSettings.PaperKind = System.Drawing.Printing.PaperKind.A4
            _rpt.PageSettings.Orientation = Document.PageOrientation.Portrait
            _rpt.PageSettings.Margins.Top = ActiveReport.CmToInch(0.5F)
            _rpt.PageSettings.Margins.Bottom = ActiveReport.CmToInch(0.5F)
            'データを割り当てる
            _rpt.DataSource = ds.Tables("Enviroment")
            ' レポートを作成します。
            _rpt.Run(False)
            ' PDFエクスポートオブジェクトを生成します。
            Using _pdf = New PdfExport
                ' PDFの出力用のメモリストリームを作成します。
                memStream = New System.IO.MemoryStream
                'フォントを非埋め込みにする
                If Not isEmbedFonts Then
                    _pdf.NeverEmbedFonts = "*"
                End If
                ' メモリストリームにPDFエクスポートを行います。
                _pdf.Security.Use128Bit = True
                _pdf.Security.OwnerPassword = "hatsune"
                _pdf.Security.Permissions = PdfPermissions.AllowPrint
                _pdf.Security.Encrypt = True
                _pdf.Export(_rpt.Document, memStream)
            End Using
        End Using
        Return memStream.ToArray()
    End Function
End Class

　準備ができたのでWindows Azure開発環境のEmulatorで動作するかを確認してみると、該当のaspxにアクセスすればPDFがダウンロードされ、表示されることが確認できます。

ActiveReportsをWindows Azureにデプロイして動作させてみる

　ローカル開発環境での実行が確認できたので、ソリューションにあるWindwos Azureプロジェクトを右クリックして、［発行］メニューを選択します。発行が完了したらWindows Azureにアクセスして、動作を確認します。

図12 ActiveReportsのWindows Azure実環境での実行結果

　文字化けなどもなく、非常にスムーズに開発環境・実環境ともに正常動作しました。前回の苦労が嘘のようです。