前回の「Scala 実践編(3) biz-Stream Webサービスサーバを使った例<前編>」は，Webサービスサーバへ送信するためのSOAPメッセージを構築するところまで説明しました．
その際に，指定したファイル名でPDFファイルをWebサービスサーバ上のコンテンツリポジトリへ出力するように指示していましたが，せっかくなので今回はWebサービスサーバのクライアント側にPDFファイルデータを返す例にSOAPメッセージ部分を変更しました．

出力例は次のとおりです．

《 Scalaからbiz-Streamへデータを流し込んで作成したPDF(Webサービスサーバ版) 》

ソースコードは次のようになります．

《 Scalaからbiz-Stream Webサービスサーバへデータを送りPDFを生成するソースコード(完全版) 》

package wssclient

import dispatch.{:/, Http}
import java.io._

object wss_client {
  val FILE_NAME = "output_test.pdf"

  val DATASOURCE_NAME = "app-resource"
  val COL1 = "col1"
  val COL2 = "col2"
  val COL3 = "col3"

  val RESOURCE_NAME = "resource1"

  def main(args: Array[String]) {
    val layoutXml =
    <fo:root xmlns:fo="http://www.w3.org/1999/XSL/Format" xmlns:pdf="http://www.brainsellers.com/schema" xmlns:svg="http://www.brainsellers.com/schema" xmlns:bs="http://www.brainsellers.com/schema" xmlns:form="http://www.brainsellers.com/schema">
      <bs:datasource-master-set>
          <bs:application-data-resource-master master-name={DATASOURCE_NAME}/>
        <bs:application-data-master master-name="app-field">
            <bs:application-data-statement master-reference={DATASOURCE_NAME}/>
        </bs:application-data-master>
        <bs:datasource-master master-name="app-source" position="inherit">
            <bs:application-data-master-reference master-reference="app-field"/>
        </bs:datasource-master>
      </bs:datasource-master-set>
      <fo:layout-master-set>
        <fo:simple-page-master master-name="A4" page-height="297mm" page-width="210mm">
          <fo:region-body>
            <fo:region-before extent="0">
              <fo:region-after extent="0">
                <fo:region-start extent="0">
                  <fo:region-end extent="0">
                  </fo:region-end>
                </fo:region-start>
              </fo:region-after>
            </fo:region-before>
          </fo:region-body>
        </fo:simple-page-master>
      </fo:layout-master-set>
      <fo:page-sequence master-reference="A4">
        <fo:flow flow-name="xsl-region-body">
          <bs:block-container>
            <!-- ページレイアウト定義開始 -->
            <Layout width="210mm" height="297mm" xmlns:fo="http://www.w3.org/1999/XSL/Format" xmlns:bs="http://www.brainsellers.com/schema" xmlns:svg="http://www.brainsellers.com/schema" xmlns:form="http://www.brainsellers.com/schema" xmlns:pdf="http://www.brainsellers.com/schema">
              <flow-area name="flow-area" x="14" y="280" width="180" height="260" master-reference="app-source" no-data-disabled="false">
                <flow-table line-height="10" record-type="header" view="page" border-color="0,255,255">
                  <flow-table-cell cell-width="60" align="horizon" text-align="left" cell-align="bottom" narrow="size">
                    <Label Width="60" Height="10" Horizon="center" Vertical="center" Vector="horizon" FontSize="12" FontStyle="BOLD" Narrow="horizon">col1</Label>
                  </flow-table-cell>
                  <flow-table-cell cell-width="30" align="horizon" text-align="left" cell-align="bottom" narrow="size">
                    <Label Width="30" Height="10" Horizon="center" Vertical="center" Vector="horizon" FontSize="12" FontStyle="BOLD" Narrow="horizon">col2</Label>
                  </flow-table-cell>
                  <flow-table-cell cell-width="90" align="horizon" text-align="left" cell-align="bottom" narrow="size">
                    <Label Width="90" Height="10" Horizon="center" Vertical="center" Vector="horizon" FontSize="12" FontStyle="BOLD" Narrow="horizon">col3</Label>
                  </flow-table-cell>
                </flow-table>
                <flow-table record-type="details" view="layout">
                  <flow-table-cell cell-width="60" border-color="0,255,255" cell-align="top" narrow="size">
                      <multi-text name={COL1} cell-width="60" font-size="11" margin="start:1;end:1;top:1;bottom:1"/>
                  </flow-table-cell>
                  <flow-table-cell cell-width="30" border-color="0,255,255" cell-align="top" narrow="size">
                      <multi-text name={COL2} cell-width="30" font-size="11" margin="start:1;end:1;top:1;bottom:1"/>
                  </flow-table-cell>
                  <flow-table-cell cell-width="90" border-color="0,255,255" cell-align="top" narrow="size">
                      <multi-text name={COL3} cell-width="90" font-size="11" margin="start:1;end:1;top:1;bottom:1"/>
                  </flow-table-cell>
                </flow-table>
              </flow-area>
            </Layout>
            <!-- ページレイアウト定義完了 -->
          </bs:block-container>
        </fo:flow>
      </fo:page-sequence>
    </fo:root>

    val layoutString = layoutXml.toString

    val records = List(
      Map(1 -> "data1", 2 -> "data2", 3 -> "data3"),
      Map(1 -> "data2_1", 2 -> "data2_2", 3 -> "data2_3"),
      Map(1 -> "data3_1", 2 -> "data3_2", 3 -> "data3_3"))

    val soapMessage =
    <soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns="http://schemas.brainsellers.com/webservices/bizstream/2006-10" xmlns:ns1="http://schemas.brainsellers.com/webservices/common/2006-10" xmlns:xm="http://www.w3.org/2005/05/xmlmime">
        <soap:Header/>
      <soap:Body>
        <generateDataRequest
        xmlns="http://schemas.brainsellers.com/webservices/bizstream/2006-10"
        xmlns:common="http://schemas.brainsellers.com/webservices/common/2006-10">
          <dataType>
            <pdf/>
          </dataType>
          <resource>
            <resourceData name={RESOURCE_NAME}>
              <applicationData masterName={DATASOURCE_NAME}>
                <recordData>
                  <header>
                      <headerColumn value={COL1}/>
                      <headerColumn value={COL2}/>
                      <headerColumn value={COL3}/>
                  </header>{records.map(record =>
                  <detail>
                      <detailColumn value={record(1)}/>
                      <detailColumn value={record(2)}/>
                      <detailColumn value={record(3)}/>
                  </detail>)}
                </recordData>
              </applicationData>
            </resourceData>
          </resource>
          <layoutData>
            <layoutDefinition dataReference={RESOURCE_NAME}>
              {layoutString}
            </layoutDefinition>
          </layoutData>
        </generateDataRequest>
      </soap:Body>
    </soap:Envelope>

    val tempStream = new ByteArrayOutputStream
    val http = new Http
    val url = :/("wss_server_host_name", 8080) / "axis2/services/bizstream.BizstreamSOAP12port/"
    val authed = url as ("bizuser1", "bizuser1")
    val req = authed <:< Map("content-type" -> """application/soap+xml;charset=utf-8;action="urn:generateData"""")
    val soapReq = req << soapMessage.toString
    http(soapReq >>> tempStream)
    extractPdfFile(tempStream.toByteArray, FILE_NAME)
 }
  
 def extractPdfFile(bytes : Array[Byte], outputFileName : String) = {
    val outputFile = new FileOutputStream(outputFileName)
    val START = "%PDF"
    val END = "%%EOF"
    var foundStart = false
    var foundEnd = false
    var i = 0
    for (i <- 0 to bytes.length - 1 if !foundEnd) {
        if (!foundStart) {
            var notFound = false
            for (j <- 0 to START.length - 1 if !notFound) {
                if (bytes(i+j) != START(j))
                    notFound = true
                else if (j == START.length - 1) {
                    foundStart = true
                    outputFile.write(bytes(i))
                }
            }
        } else {
            var notFound = false
            outputFile.write(bytes(i))
            for (j <- 0 to END.length - 1 if !notFound) {
                if (bytes(i+j) != END(j))
                    notFound = true
                else if (j == END.length - 1) {
                    foundEnd = true
                    for (k <- 1 to END.length - 1)
                        outputFile.write(bytes(i+k))
                }
            }
        }
    }
    outputFile.close
 }
}

WebサービスサーバへはdispatchというScala用のライブラリを利用して，サーバにSOAPメッセージを送信します．

• 122行: サーバから返ってくるPDFデータはひとまずtempStreamで受け取ります．
• 123行: httpはdispatchでのHTTP通信のためのクラスです．
• 124行: urlにてWebサービスサーバのホスト名，ポート番号，SOAPポートを指定します．
• 125行: また，サーバへのアクセスは認証が必要なので，authedではユーザ名とパスワードを指定しています．
• 126行: さらに，HTTPヘッダのContentTypeにSOAPメッセージであることを表す「application/soap+xml」，文字コードがUTF-8であることを表す「charset=utf-8」，SOAPのアクション(generateData)を表す「action="urn:generateData"」 を設定します．
• 127行: soapReqでは，上記までで設定したHTTPリクエストのためのオブジェクトにSOAPメッセージを設定します．
• 128行: そして，httpにsoapReqを渡し，HTTP送信を行った後，tempStreamにその返信内容を格納します．
• 129行: tempStream内には，PDFファイル自体以外の情報も含まれているので，extractPdfFile()にてPDFデータのみを抽出し，ファイルに出力します．

今回も，依存するライブラリがあるため，sbtにて簡単にビルド，実行するためのファイルを用意しました．
実行方法は，展開後，README.txtをご覧ください．
biz-scala4.zip

　biz-Stream4.5.3のリリースも無事行われ、製品開発部では一息
つきたい所ですが、biz-Streamの今後やこれから新しく開発する製品や
サービスについて、昼夜休まず議論が繰り広げられています。

その製品開発会議の中でも、このiPadの話が出たのですが、数名の新し物好きな社員が
個人的に購入してはいたものの、社内では未だ触れた事の無い人間がほとんどでした。

まずは使ってみてどういう物かを知らなければ始まらないだろう。。
と言う事で先日、「製品開発テスト用」という名目で1台導入されました。

さて。。届いたiPadを実際手に取り、「もうちょっと軽ければ。。」とか「デフォルトでUSBポートが
あれば。。」等々、個人的な感想もあるのですが、それはさておき。。

　QAとしてまず気になったのはやはり、biz-Streamが使えるか？と言う事。

もちろん、iPad用のアプリではないので、現状のままでは、例えばライブラリや、ダイレクト印刷の
機能をiPad本体の中で動かす事は出来ません。

しかし、biz-Stream Webサービスサーバ（以下「WSS」）に対するクライアントとして使用するのであれば、
ブラウザ上でJSPやServletさえ動かせれば良いのだから、使用可能なのでは？と、思い立ちました。

懸念されるのは、iPadで使用するブラウザであるSafari上で動くだろうか？
という点です。

　そこで、早速試してみました。

　WindowsServer上にWSSと製品付属のサンプルアプリケーションの環境を構築、iPadを
クライアントとして使用してアクセスし、WSS_Sample1を実行してみます。

うまく出力出来たようです。リポジトリ上にPDFが生成されました。

リポジトリにアクセスする際に聞かれるユーザーIDとパスワードを
入力します。
この設定は、biz-Stream導入時のデフォルトの設定のままにしてあります。

出力したPDFがブラウザ上に表示されました。
もちろん、上記はWSSのサンプルのうちの1つを実行出来たのに過ぎませんが、
このサンプルを応用してレイアウトのパターンを変える事で、通常のリリーステストで使用する
全てのデータパターンをリポジトリにPDF出力したり、出力したPDFをメールに添付して送信
する事が出来ました。

　出力したPDFの表示については、特殊な仕掛けが施してあるPDF、例えばJavaScriptが
埋め込まれていたり、透かしが入っていたり。。というPDFについては、Scriptが有効になら
なかったり、透かしが表示されなかったり。。と、PCで表示させた場合と若干異なる部分が
ありましたが、概ね表示させる事が出来ました。

　同様にExcel出力も試してみました。（WSS_Sample2）

　こちらのサンプルはアプリケーションのローカルドライブにファイルを出力する仕様になっているのですが、
出力先をTomcatのROOTディレクトリ上に指定してブラウザ上で確認出来るように細工してみました。
PCで見た場合と表示が多少異なるデータパターンはありましたが、見る事が出来ました。

（但し、出力したファイルをブラウザ上で閲覧するには、あらかじめiPadにPDFや
Excelファイルを再生出来るアプリケーションがインストールされている必要があります。）

　ブラウザ経由ではなく、ライブラリからiPad本体へ出力したPDFやExcelファイルをそのまま
保存したり、iPad本体からWSSへsoapメッセージを直接送信したり、ダイレクト印刷を実行する
ような機能は、iPadと連携する機能が実装出来ていない今の段階では使えないようです。

そのため現状ではiPadはWSSのクライアントとして「要件を満たしています」とは言い切れないのですが、
今後、iPadが何処までビジネスの領域で導入されるのか？
　も含めて検討する必要に迫られた場合、iPad上でも使用出来るアプリとしてバージョンアップ
する事も可能だと思われます。

Clojureは、Java VM 上で動作する言語で、
簡単にJavaのライブラリを読み込んで使用することができます。
そこで、Javaライブラリとして提供されている、
弊社製品biz-Streamの機能をClojureのプログラム呼び出す例を見てみましょう。

以下のbiz-StreamのJavaサンプルプログラムは、

《 biz-Stream Javaサンプルプログラム 》

import java.util.Hashtable;
import com.brainsellers.xml.JaxpXML;
import com.brainsellers.xml.common.XMLSuper;

class sample1 {

    public static void main(String args[]){
        new sample1(args);
        System.exit(0);
    }
    public sample1(String args[]){
        try {
            XMLSuper xml = new JaxpXML(
                "${base-dir}/sample/java/sample1.xml",
                "${base-dir}/sample/java/sample1.pdf");

            xml.parse();
            xml.setAutoResize();

            for(int i=0; i<3; i++){
                if(i != 0){
                    xml.newPage();
                }

                xml.setPageSize();

                Hashtable ht = new Hashtable();
                ht.put("company", "ブレインセラーズ・ドットコム株式会社");
                ht.put("address", "東京都千代田区九段北XX-XX-XX");
                ht.put("phone",   "TEL.XX-XXXX-XXXX");
                ht.put("fax",     "FAX.XX-XXXX-XXXX");

                xml.toPDF(ht);
                xml.flush();
            }

            xml.close();

        } catch(java.lang.Exception e) {
            e.printStackTrace();
        }
    }
}

Clojureでは、以下のように書けます。

《 biz-Stream Clojureサンプルプログラム 》

(import [java.util Hashtable])
(import [java.io IOException])
(import [com.brainsellers.xml JaxpXML])
(import [com.brainsellers.xml.common XMLSuper])

(defn func-sample1 [ags]
  (try
    ( (def xml (JaxpXML. "${base-dir}/sample/java/sample1.xml" "${base-dir}/sample/java/sample1.pdf"))
      (. xml parse)
      (. xml setAutoResize)
      (loop [x 3]
        (if-not (zero? x)
          (let [ht (Hashtable.)]
            (. ht put "company" "ブレインセラーズ・ドットコム株式会社")
            (. ht put "address" "東京都千代田区九段北XX-XX-XX")
            (. ht put "phone" "TEL.XX-XXXX-XXXX")
            (. ht put "fax" "FAX.XX-XXXX-XXXX")
            (if-not (= x 1) (. xml newPage))
            (. xml setPageSize)
            (. xml toPDF ht)
            (. xml flush)
            (recur (dec x)))))
      (. xml close))
    (catch IOException e (. e printStackTrace))))

(defn main [args]
  (func-sample args))

なんとなく、さっぱりしたように感じませんか？
まだ慣れていないので、あまり凝ったことはできませんから、
Clojure的に美しいコードとは言えないのかもしれませんが、
なんとなく、Clojure感がつかめるコードとなっているかと思います。

２つのソースコードを見比べながら、徐々に、Clojureのコードになれて下さい。
次回以降は、Clojureの開発環境などについてみていきましょう。

前編ではまずbiz-Stream Webサービスサーバへ送るSOAPメッセージの作成について解説します．
実際にサーバへメッセージを送る部分ついては後編で解説する予定です．

biz-Stream Webサービスサーバとは，biz-Streamをアプリに組み込むのではなく，別サーバに設置して動作させるためのものです．SOAPメッセージをサーバに送ることによって生成する内容の指示を行ないます．

一番始めの部分(layoutXml)は，biz-Streamのレイアウト定義を直接ソースコード内に 記述しています．
これは前回と同様，レイアウト定義は通常２種類(ドキュメントレイアウト定義，ページレイアウト定義)の別ファイルで構成されますが，ここではそれらを１つに結合しています．

次にrecordsは上記のXMLレイアウトに流しこむデータを定義しています．
実際のアプリでは，ここは動的にデータ内容を生成するロジックがコーディングされる部分です．

soapMessageでは、Webサービスサーバへ送信するためのSOAPメッセージを構築しています．
指定したファイル名でPDFファイルをWebサービスサーバ上のコンテンツリポジトリへ出力するように指示しています．

次回は，前回も使用しました，dispatchというScala用のライブラリを利用して，サーバにSOAPメッセージを送信したいと思います．

ソースコードは次のようになります。

《 Scalaからbiz-Stream Webサービスサーバへデータを送りPDFを生成するソースコード(SOAPメッセージの構築) 》

package wssclient

object wss_client {
  val FILE_NAME = "output_test.pdf"

  val DATASOURCE_NAME = "app-resource"
  val COL1 = "col1"
  val COL2 = "col2"
  val COL3 = "col3"

  val RESOURCE_NAME = "resource1"

  def main(args: Array[String]) {
    val layoutXml =
    <fo:root xmlns:fo="http://www.w3.org/1999/XSL/Format" xmlns:pdf="http://www.brainsellers.com/schema" xmlns:svg="http://www.brainsellers.com/schema" xmlns:bs="http://www.brainsellers.com/schema" xmlns:form="http://www.brainsellers.com/schema">
      <bs:datasource-master-set>
          <bs:application-data-resource-master master-name={DATASOURCE_NAME}/>
        <bs:application-data-master master-name="app-field">
            <bs:application-data-statement master-reference={DATASOURCE_NAME}/>
        </bs:application-data-master>
        <bs:datasource-master master-name="app-source" position="inherit">
            <bs:application-data-master-reference master-reference="app-field"/>
        </bs:datasource-master>
      </bs:datasource-master-set>
      <fo:layout-master-set>
        <fo:simple-page-master master-name="A4" page-height="297mm" page-width="210mm">
          <fo:region-body>
            <fo:region-before extent="0">
              <fo:region-after extent="0">
                <fo:region-start extent="0">
                  <fo:region-end extent="0">
                  </fo:region-end>
                </fo:region-start>
              </fo:region-after>
            </fo:region-before>
          </fo:region-body>
        </fo:simple-page-master>
      </fo:layout-master-set>
      <fo:page-sequence master-reference="A4">
        <fo:flow flow-name="xsl-region-body">
          <bs:block-container>
            <!-- ページレイアウト定義開始 -->
            <Layout width="210mm" height="297mm" xmlns:fo="http://www.w3.org/1999/XSL/Format" xmlns:bs="http://www.brainsellers.com/schema" xmlns:svg="http://www.brainsellers.com/schema" xmlns:form="http://www.brainsellers.com/schema" xmlns:pdf="http://www.brainsellers.com/schema">
              <flow-area name="flow-area" x="14" y="280" width="180" height="260" master-reference="app-source" no-data-disabled="false">
                <flow-table line-height="10" record-type="header" view="page" border-color="0,255,255">
                  <flow-table-cell cell-width="60" align="horizon" text-align="left" cell-align="bottom" narrow="size">
                    <Label Width="60" Height="10" Horizon="center" Vertical="center" Vector="horizon" FontSize="12" FontStyle="BOLD" Narrow="horizon">col1</Label>
                  </flow-table-cell>
                  <flow-table-cell cell-width="30" align="horizon" text-align="left" cell-align="bottom" narrow="size">
                    <Label Width="30" Height="10" Horizon="center" Vertical="center" Vector="horizon" FontSize="12" FontStyle="BOLD" Narrow="horizon">col2</Label>
                  </flow-table-cell>
                  <flow-table-cell cell-width="90" align="horizon" text-align="left" cell-align="bottom" narrow="size">
                    <Label Width="90" Height="10" Horizon="center" Vertical="center" Vector="horizon" FontSize="12" FontStyle="BOLD" Narrow="horizon">col3</Label>
                  </flow-table-cell>
                </flow-table>
                <flow-table record-type="details" view="layout">
                  <flow-table-cell cell-width="60" border-color="0,255,255" cell-align="top" narrow="size">
                      <multi-text name={COL1} cell-width="60" font-size="11" margin="start:1;end:1;top:1;bottom:1"/>
                  </flow-table-cell>
                  <flow-table-cell cell-width="30" border-color="0,255,255" cell-align="top" narrow="size">
                      <multi-text name={COL2} cell-width="30" font-size="11" margin="start:1;end:1;top:1;bottom:1"/>
                  </flow-table-cell>
                  <flow-table-cell cell-width="90" border-color="0,255,255" cell-align="top" narrow="size">
                      <multi-text name={COL3} cell-width="90" font-size="11" margin="start:1;end:1;top:1;bottom:1"/>
                  </flow-table-cell>
                </flow-table>
              </flow-area>
            </Layout>
            <!-- ページレイアウト定義完了 -->
          </bs:block-container>
        </fo:flow>
      </fo:page-sequence>
    </fo:root>

    val layoutString = layoutXml.toString

    val records = List(
      Map(1 -> "data1", 2 -> "data2", 3 -> "data3"),
      Map(1 -> "data2_1", 2 -> "data2_2", 3 -> "data2_3"),
      Map(1 -> "data3_1", 2 -> "data3_2", 3 -> "data3_3"))

    val soapMessage =
    <soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns="http://schemas.brainsellers.com/webservices/bizstream/2006-10" xmlns:ns1="http://schemas.brainsellers.com/webservices/common/2006-10" xmlns:xm="http://www.w3.org/2005/05/xmlmime">
        <soap:Header/>
      <soap:Body>
        <generateOutputRequest
        xmlns="http://schemas.brainsellers.com/webservices/bizstream/2006-10"
        xmlns:common="http://schemas.brainsellers.com/webservices/common/2006-10">
          <output>
            <pdf>
                <file name={FILE_NAME}/>
            </pdf>
          </output>
          <resource>
            <resourceData name={RESOURCE_NAME}>
              <applicationData masterName={DATASOURCE_NAME}>
                <recordData>
                  <header>
                      <headerColumn value={COL1}/>
                      <headerColumn value={COL2}/>
                      <headerColumn value={COL3}/>
                  </header>{records.map(record =>
                  <detail>
                      <detailColumn value={record(1)}/>
                      <detailColumn value={record(2)}/>
                      <detailColumn value={record(3)}/>
                  </detail>)}
                </recordData>
              </applicationData>
            </resourceData>
          </resource>
          <layoutData>
            <layoutDefinition dataReference={RESOURCE_NAME}>
              {layoutString}
            </layoutDefinition>
          </layoutData>
        </generateOutputRequest>
      </soap:Body>
    </soap:Envelope>

    print(soapMessage)
 }
}