技術的なこと

2008年05月30日現在 Enterprise Library の場所

Fri, 30 May 2008 22:44:00 GMT

通勤途中に赤間さんの本を読んでいるのですが、
Enterprise Library に関する記述が時々出てきます。

2008年05月30日現在 Enterprise Library の場所は以下の場所です。
http://msdn.microsoft.com/en-us/library/cc467894.aspx

リレーショナル・データベースの世界

Thu, 29 May 2008 00:29:00 GMT

本当に知らない事が多いです。下記のサイトはとても勉強になります。ので自分用メモ。
リレーショナル・データベースの世界

今仕掛かり中案件にて Oracle10g を触っているのですが、最近触ったデータベースが DB2 の V8 ばっかりなので Oracle 独自構文などは忘れてしまったりします。
そんな時はいつも下記サイトにお世話になっています。これも自分用メモ。
忘れっぽいエンジニアのORACLE／オラクルSQLリファレンス
Oracle で LEFT|RIGHT OUTER JOIN が使えるのか！と知らなかったので個人的に驚きでした。

showModalDialog のダイアログ内での画面遷移

Mon, 25 Feb 2008 23:07:00 GMT

現在また JDK1.4 めいた、struts めいたお仕事をしています。

お客様のご要望で、
IE の showModalDialog でモーダルダイアログ表示した画面の中で
post で submit して別画面へ画面遷移する、という事をしなくてはならなくなりました。

ダイアログ内で画面遷移とな...。

とにかくお仕事なのでやらないといけません。
ところが、showModalDialog をまともに使った事がなかったので、下の方と同じ現象でつまづきました。
showModalDialogの遷移時に新規ウィンドウが開いてしまう問題

上記スレッドの水戸黄門さんの方法『showModalDialog で呼び出される側（showModalDialog の引数で指定される側）の head タグの中に <base target="_self"> 』で回避しました。
はずかしながら、base タグという存在を初めて知りました。なるほどなるほど。

しかし多分、今後使う事はないとは思いますがメモ。

WebBrowser で取得した HtmlDocument を編集して submit する

Wed, 14 Nov 2007 22:26:00 GMT

以下のような asp があった時に、通常のオペレーションでは Option1 ～ Option4 の値が選択されてサーバー側へ送信されますが、

<%
Dim message
If (Request.Form("requestTest_postback") <> "") Then
    message = "選択された値:" & Request.Form("test") & "<br>"
End If
%>
<html>
<head>
<title>test</title>
</head>
<body>
<form name="requestInput" method="post" action="requestTest.asp">
<%=message %>
    <select name="test">
        <option value="opt1" selected>Option1
        <option value="opt2">Option2
        <option value="opt3">Option3
        <option value="opt4">Option4
    </select>
    <input type="submit">
    <input type="hidden" name="requestTest_postback" value="true">
</form>
</body>
</html>

Select タグの中の Option タグ達にない値をサーバー側に送信したい場合、HTML を改ざんすれば OK なわけですが
WebBrowser の Navigate を呼んだ後に WebBrowserオブジェクト.Document を改ざんする事でも同様の事ができます。

Public Class Form1
    Private Sub btnNavigate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNavigate.Click
        Me.WebBrowser1.Navigate(Me.TextBox1.Text)
    End Sub


    Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
        If Me.WebBrowser1.Document Is Nothing Then Return
        Dim selects As HtmlElementCollection = Me.WebBrowser1.Document.GetElementsByTagName("select")
        For Each selectTag As HtmlElement In selects
            If selectTag.GetAttribute("name") = "test" Then
                ' select タグ かつ name 属性が test の時に option を無理やり追加してそれを選択させる
                Dim fuji As HtmlElement = Me.WebBrowser1.Document.CreateElement("option")
                fuji.SetAttribute("value", "ふじこ")
                selectTag.AppendChild(fuji)
                Dim len As String = CInt(selectTag.GetAttribute("length"))
                selectTag.SetAttribute("selectedIndex", (len - 1).ToString())
                Exit For
            End If
        Next
        Dim formElement As HtmlElement = Me.WebBrowser1.Document.Forms(0)
        formElement.InvokeMember("submit")
    End Sub
End Class

お仕事用です。
EditRequest.zip

html:checkbox を使う場合は ActionForm を継承したクラスで reset を実装しないとだめらしい

Fri, 09 Nov 2007 23:57:00 GMT

某社の拡張タグライブラリの checkbox を JSP で使ったら、チェックボックスがまともに動いてくれない。
チェックを外して画面遷移を繰り返すも、チェックが付きっぱなしになって外れない。
気になったのでソースを見てみたら org.apache.struts.taglib.html.CheckboxTag を extends しているだけだった。
なので、通常 html:checkbox と記述するのと同じ事だ。
試しにそのような記述でやってみたけれど、やはり同様な動作をする。（当たり前だけど。。。）

なんでー？と思って調べたら、ActionForm を継承したクラス内で reset メソッドをオーバーライドして
該当のメンバ変数の値をいじってやらないといけないらしい。
Apache Struts - データの受け渡し(5) チェックボックス(html:checkbox)の利用

多分しばらく触らなかったら忘れそうなのでメモ。
実験してみたコードを含む eclipse のプロジェクト。
JDK 1.4.2_15
Struts 1.2.7
Tomcat 5.0.28

あー基本的な事がいろいろ解らなくて嫌になるなぁ。頑張らなきゃ。

XA Specification

Tue, 23 Oct 2007 23:29:00 GMT

3 年前に組んだ java アプリのデータアクセス周りは ResourceBandle 使ってドライバ名やら接続文字列やら properties ファイルから引っ張り出して来て
JDBC でゴリゴリと実装していた。
けど、今やってるやつは JNDI を使って lookup して、UserTransaction やら DataSource やらを取得している。
パフォーマンスに問題があるらしいけど、単体開発環境で短期間しか使わないしまぁいいかと思って JOTM を Tomcat にあてた。

UserTransaction やら DataSource やらを Tomcat 上で使うにはどうしたらいいか調べていた時、JTA やら JTS という単語がちらほら出てくる。
JTA やら JTS は @IT なんかに情報が載ってたんだけど、
JTA やら JTS やら調べていると、今度はやたらと XA 準拠リソースだの、X/Open CAE 仕様だのという単語がでてくる。
XA って一体何？

検索しました。今の案件は MySQL を使う訳じゃないけど、MySQL のマニュアルがヒットし、
そこから辿っていくと↓の PDF 発見。
Distributed TP: The XA Specification
にほんごの PDF があればいいのになぁ。。。

JadClipse プラグインは結構いいかも。

Fri, 19 Oct 2007 12:51:00 GMT

むかーし Java 開発をやった時に、jad なる逆コンパイラ、というかまぁ
要は class ファイルから java のソースコードを生成してくれるツールがあったなぁ、、、（拡張子は jad）
と記憶のどこかに残っていたので「今もあるかな」と探してみたら、
健在だったし、eclipse プラグインもありました。

早速プラグインを当ててデバッグしてみると、いい！
他社が作った詳細不明な jar のなかの実装内容なんかも見れて、いい！
いいんだけど、時々意図しない挙動をするのは仕方ないか。

自分で jad に path 通してコマンド叩くよりははるかに楽。

JadClipse プラグイン

Java のお仕事色々メモ

Tue, 16 Oct 2007 00:25:00 GMT

えーと。。。もう初心者同然の人間に疑似疑似 WAS っぽい環境を構築しろというミッションが
かなり無理な気がしますが、、、（今回の案件に関係ない部分の環境構築はすっ飛ばした疑似疑似だったとしても、毎日朝から晩まで相当悩んでいるのであった。）

今日詰まった事等のメモ。
■8080 ポート
Oracle クライアントは今回必要ないので削除して対応。(前の案件で使ってた。面倒なので放置していた。)
Tomcatが起動しません。

■JSP の文字化け
最初にここを参照
日本語の文字化け
うーむ。ActionServlet は継承して process メソッドでそれなりの処理はやっているし、
各 JSP の先頭にも contentType やら charset やら pageEncoding を指定してる。。。
ちゃんとブラウザ側も Shift-JIS で表示しようとしている。。。
何故だ...
XML の設定内容の問題か？プラグインの設定の問題か？
Tomcatプラグイン#UnsupportedEncodingException が発生
という事で、エクリプスwiki にお世話になってみるものの、解決せず。
ビルドパスに通ってるし。
何なんだ今日は。呪われているのか？

...charset.jar? ひょっとして、この前 JRE のバージョンアップを何も考えずにやって、何も考えずにそいつを慌ててアンインストールしたから
おかしくなったのか？
という事で、j2sdk-1_4_2_15-windows-i586-p.exe を修復インストール。

依然としてばけばけの文字表示。
ぐあー。今日は文字化けが解消するまでかえらねーぞこるぁ！と気合入れて検索したら、以下のページがヒット。
TomcatでJSPが文字化け
あ、、、
JSP 全然触ってないからリコンパイルされてないよね？他は色々いじったけど。。。
ファイルの作成日時が、悩み始めた時間なのであった。
JSP の class ファイル消してリコンパイルさせたらあっさりと文字化け解消。

# 帰宅してオットに一部始終を話したら「ダセー」の一言でした。あぁダサいともさ。
# 大は小を兼ねるんだから、削除しなくてもいいじゃん。だって。あぁあぁそうともさ。
# それに filter 使えばいいじゃんって言われたけど、もうできているもののちょっとした修正のお仕事だからダメなの！＞オット
# filter に関する情報はここ文字コード宣言をフィルタで共有化する

■JDBC には 4 つのタイプがあるらしい。
JDBCドライバの種類と使い分けを教えてください
DB2 の JDBC 周りについて調べていて初めて知った。
ほっほう。と調べていたら、とてもよくまとまっているページがあったのでメモメモ。
ドライバクラス & 接続URL

はー。今日も疲れました。

ちなみに今の環境をぐちゃぐちゃやるのに使ったものたち。のメモ。
OS：Windows XP SP2
j2sdk-1_4_2_15-windows-i586-p.exe
j2sdkee-1_3_1-win.exe
jakarta-tomcat-5.0.28.exe
struts-1.2.7.zip
All-In-One-Eclipse-Setup-3.0.1.exe
tomcatPluginV321.zip
jotm-2.0.10.tgz
carol-2.0.5.tgz
# JOTM の設定方法は Tomcat5.0.30へのJOTM設定方法解説を参照しました。

MD5 の実装について調べてみた

Fri, 28 Sep 2007 16:24:00 GMT

なんだかアプリケーションのセキュリティ強化絡みの仕事がまわってきそうなので、
色々勉強しないとなぁと思っています。

とはいっても赤間さんの本ばかり眺めているとだんだん眠くなってくるので、
前の案件で特定のフィールドを MD5 で暗号化する要件があったのを思い出し、
最初に MD5CryptoServiceProvider を使ってお手軽に暗号化したものの、
複合復号化をあーじゃこーじゃやってうまくいかない。うがー。
へんてこな文字列が帰ってきたり、例外吐いたりして
もう嫌じゃーとなってきたので、10 行でズバリ!! を眺めてました。
そしたら、TripleDESCryptoServiceProvider を使っていたので
マネてそれを使ってうにゃうにゃやって、一応実装できました。

他言語での MD5 による暗号化/複合復号化の実装はどんな感じなのかなぁと思って検索したら
こんなのを見つけました。すごいぞ javascript。ワタシは好きじゃないけど。
JavaScript MD5

たぶん使わないけど一応自分用メモとしてコード書いておきます。

# 追記
# なちゃさんと凪瀬さんその他大勢のご指摘により、以下のコードはインチキな事が判明しました。
# もっと精進しないと...

Public Class MD5Test
    ''' 
    ''' MD5 によるハッシュ化(was 暗号化)←嘘
    ''' 
    ''' 暗号化する文字列
    ''' パスワード
    Public Function Encrypt(ByVal plainText As String, Optional ByVal pass As String = "") As String
        Dim provider As System.Security.Cryptography.TripleDESCryptoServiceProvider = _
        New System.Security.Cryptography.TripleDESCryptoServiceProvider()
        Dim p As System.Security.Cryptography.PasswordDeriveBytes = _
        New System.Security.Cryptography.PasswordDeriveBytes(pass, New Byte(-1) {})
        With provider
            .IV = New Byte(7) {}
            .Key = p.CryptDeriveKey("RC2", "MD5", 128, New Byte(7) {})
        End With
        Using memStream As System.IO.MemoryStream = New System.IO.MemoryStream(plainText.Length * 2)
            Using ctream As System.Security.Cryptography.CryptoStream = _
                            New System.Security.Cryptography.CryptoStream(memStream, _
                            provider.CreateEncryptor(), _
                            Security.Cryptography.CryptoStreamMode.Write)
                Dim plainBytes As Byte() = System.Text.Encoding.Default.GetBytes(plainText)
                ctream.Write(plainBytes, 0, plainBytes.Length)
                ctream.FlushFinalBlock()


                Dim encryptedBytes As Byte() = New Byte(CInt(memStream.Length) - 1) {}
                memStream.Position = 0
                memStream.Read(encryptedBytes, 0, CInt(memStream.Length))
                Return Convert.ToBase64String(encryptedBytes)
            End Using
        End Using
    End Function


    ''' 
    ''' 解読(was 復号化)
    ''' 
    ''' MD5によるハッシュ(was 暗号)化されたBase64エンコード文字列←嘘
    ''' パスワード
    Public Function Decrypt(ByVal base64Text As String, Optional ByVal pass As String = "") As String
        Dim provider As System.Security.Cryptography.TripleDESCryptoServiceProvider = _
        New System.Security.Cryptography.TripleDESCryptoServiceProvider()
        Dim p As System.Security.Cryptography.PasswordDeriveBytes = _
        New System.Security.Cryptography.PasswordDeriveBytes(pass, New Byte(-1) {})
        With provider
            .IV = New Byte(7) {}
            .Key = p.CryptDeriveKey("RC2", "MD5", 128, New Byte(7) {})
        End With
        Dim encryptedBytes As Byte() = Convert.FromBase64String(base64Text)


        Using memStream As System.IO.MemoryStream = New System.IO.MemoryStream(base64Text.Length)
            Using ctream As System.Security.Cryptography.CryptoStream = _
                            New System.Security.Cryptography.CryptoStream(memStream, _
                            provider.CreateDecryptor(), _
                            Security.Cryptography.CryptoStreamMode.Write)
                ctream.Write(encryptedBytes, 0, encryptedBytes.Length)
                ctream.FlushFinalBlock()


                Dim decreptedBytes As Byte() = New Byte(CInt(memStream.Length) - 1) {}
                memStream.Position = 0
                memStream.Read(decreptedBytes, 0, CInt(memStream.Length))
                Return System.Text.Encoding.Default.GetString(memStream.ToArray())
            End Using
        End Using
    End Function
End Class

CodeDom で遊んでみた。

Thu, 27 Sep 2007 16:33:00 GMT

ひまひまシリーズその 3。
今更ながら、System.CodeDom 名前空間の下のいくつかのクラスを使って
プログラムを組んでみました。
これ、慣れるまでには何回か組まないとコツがつかめないっぽい。
脳内でジェネレートされるプログラムを組み立てながらやったので（こんなお粗末なプログラムだが...）そのせいかも。

でも簡単な奴だったら Text ファイルなんかにテンプレート書いておいて
String.Format でやった方が楽かもしれない。

しかし、System.CodeDom.Compiler.CodeDomProvider に突っ込むオブジェクトの実態によって
C# やら VB やら複数種類のコード出力が可能なのは結構魅力的だと思いました。

ちょっと疑問な点が。
・コードに出力される Option Strict とかの設定はいったいどのオブジェクトがもっているの？
　Microsoft.VisualBasic.VBCodeProvider が持っててよさそうな感じはするんだけどなぁ。
・Property の Set にパラメータが生成されない。CodeAssignStatement じゃだめなの？

CodeDomTest.vb

Public Class CodeDomTest
    Public Sub Generate()
        Dim compileUnit As System.CodeDom.CodeCompileUnit = _
        New System.CodeDom.CodeCompileUnit()


        ' NameSpace
        Dim nmspace As System.CodeDom.CodeNamespace = _
        New System.CodeDom.CodeNamespace("CodeDomTry")
        compileUnit.Namespaces.Add(nmspace)


        ' Imports
        nmspace.Imports.Add( _
        New System.CodeDom.CodeNamespaceImport("System"))


        ' Class
        Dim cls As System.CodeDom.CodeTypeDeclaration = _
        New System.CodeDom.CodeTypeDeclaration("CodeDomSample")
        nmspace.Types.Add(cls)
        cls.Comments.Add(New System.CodeDom.CodeCommentStatement("これはクラスヘッダのコメント"))
        cls.IsClass = True
        ' Inherits
        cls.BaseTypes.Add(GetType(Object))
        ' Implements(VB の場合最後に付ける)
        cls.BaseTypes.Add(GetType(IDisposable))


        ' Constructor
        Dim constructor As System.CodeDom.CodeConstructor = _
        New System.CodeDom.CodeConstructor()
        cls.Members.Add(constructor)
        constructor.Attributes = CodeDom.MemberAttributes.Public
        constructor.Comments.Add(New System.CodeDom.CodeCommentStatement("これはコンストラクタのコメント"))
        ' CodeConstructor の場合、自動で MyBase.New() が付加される。New という名前も勝手に付けてくれる
        'constructor.Statements.Add( _
        'New System.CodeDom.CodeMethodInvokeExpression( _
        '    New System.CodeDom.CodeBaseReferenceExpression(), "New", New System.CodeDom.CodeExpression() {}))


        ' Field
        Dim field As System.CodeDom.CodeMemberField = _
        New System.CodeDom.CodeMemberField(GetType(String), "m_propertyTest")
        cls.Members.Add(field)
        field.Comments.Add(New System.CodeDom.CodeCommentStatement("これはメンバ変数のコメント"))


        ' Property
        Dim prop As System.CodeDom.CodeMemberProperty = _
        New System.CodeDom.CodeMemberProperty()
        cls.Members.Add(prop)
        prop.Comments.Add(New System.CodeDom.CodeCommentStatement("これはプロパティのコメント"))
        prop.Name = "PropertyTest"
        prop.Type = New System.CodeDom.CodeTypeReference(GetType(String))
        prop.Attributes = CodeDom.MemberAttributes.Public


        Dim getter As System.CodeDom.CodeMethodReturnStatement = _
        New System.CodeDom.CodeMethodReturnStatement()
        getter.Expression = New System.CodeDom.CodeFieldReferenceExpression( _
                                New System.CodeDom.CodeThisReferenceExpression(), field.Name)
        prop.GetStatements.Add(getter)


        Dim setter As System.CodeDom.CodeAssignStatement = _
        New System.CodeDom.CodeAssignStatement()
        setter.Left = New System.CodeDom.CodeFieldReferenceExpression( _
                        New System.CodeDom.CodeThisReferenceExpression(), field.Name)
        setter.Right = New System.CodeDom.CodePropertySetValueReferenceExpression()
        prop.SetStatements.Add(setter)


        ' Method
        Dim method As System.CodeDom.CodeMemberMethod = _
        New System.CodeDom.CodeMemberMethod()
        cls.Members.Add(method)
        method.Comments.Add(New System.CodeDom.CodeCommentStatement("これはメソッドヘッダのコメント"))
        method.Name = "TestMethod"
        method.ReturnType = New System.CodeDom.CodeTypeReference(GetType(String))
        method.Attributes = CodeDom.MemberAttributes.Public


        Dim methodParameter As System.CodeDom.CodeParameterDeclarationExpression = _
        New System.CodeDom.CodeParameterDeclarationExpression(GetType(Date), "value")
        method.Parameters.Add(methodParameter)


        Dim methodComment As System.CodeDom.CodeCommentStatement = _
        New System.CodeDom.CodeCommentStatement("これはメソッド内のコメントです")
        method.Statements.Add(methodComment)


        Dim methodResultStatement As System.CodeDom.CodeMethodReturnStatement = _
        New System.CodeDom.CodeMethodReturnStatement( _
            New System.CodeDom.CodeMethodInvokeExpression( _
                New System.CodeDom.CodeTypeReferenceExpression(methodParameter.Name), _
                    "ToString", New System.CodeDom.CodePrimitiveExpression("yyyy/MM/dd HH:mm:ss")))
        method.Statements.Add(methodResultStatement)


        ' Implementation Method
        Dim methodImple As System.CodeDom.CodeMemberMethod = _
        New System.CodeDom.CodeMemberMethod()
        cls.Members.Add(methodImple)
        methodImple.Name = "Dispose"
        methodImple.Attributes = CodeDom.MemberAttributes.Public
        methodImple.ImplementationTypes.Add(GetType(IDisposable))
        methodImple.Statements.Add(New System.CodeDom.CodeCommentStatement("TODO:実装してください"))


        ' Override Method
        Dim methodoverride As System.CodeDom.CodeMemberMethod = _
        New System.CodeDom.CodeMemberMethod()
        cls.Members.Add(methodoverride)
        methodoverride.Name = "ToString"
        methodoverride.ReturnType = New System.CodeDom.CodeTypeReference(GetType(String))
        methodoverride.Attributes = CodeDom.MemberAttributes.Public Or CodeDom.MemberAttributes.Override
        methodoverride.Statements.Add(New System.CodeDom.CodeMethodReturnStatement( _
            New System.CodeDom.CodeFieldReferenceExpression( _
                New System.CodeDom.CodeThisReferenceExpression(), field.Name)))


        ' Generate
        Dim provider As System.CodeDom.Compiler.CodeDomProvider = _
        New Microsoft.VisualBasic.VBCodeProvider
        'New Microsoft.CSharp.CSharpCodeProvider()
        Dim generateOptions As System.CodeDom.Compiler.CodeGeneratorOptions = _
        New System.CodeDom.Compiler.CodeGeneratorOptions()
        generateOptions.BlankLinesBetweenMembers = True
        generateOptions.IndentString = ControlChars.Tab
        generateOptions.VerbatimOrder = True


        provider.GenerateCodeFromCompileUnit(compileUnit, Console.Out, generateOptions)
    End Sub
End Class

生成されたコード

'------------------------------------------------------------------------------
' <auto-generated>
'     このコードはツールによって生成されました。
'     ランタイム バージョン:2.0.50727.832
'
'     このファイルへの変更は、以下の状況下で不正な動作の原因になったり、
'     コードが再生成されるときに損失したりします。
' </auto-generated>
'------------------------------------------------------------------------------


Option Strict Off
Option Explicit On


Imports System


Namespace CodeDomTry
    

    'これはクラスヘッダのコメント
    Public Class CodeDomSample
        Inherits Object
        Implements System.IDisposable
        

        'これはコンストラクタのコメント
        Public Sub New()
            MyBase.New
        End Sub
        

        'これはメンバ変数のコメント
        Private m_propertyTest As String
        

        'これはプロパティのコメント
        Public Overridable Property PropertyTest() As String
            Get
                Return Me.m_propertyTest
            End Get
            Set
                Me.m_propertyTest = value
            End Set
        End Property
        

        'これはメソッドヘッダのコメント
        Public Overridable Function TestMethod(ByVal value As Date) As String
            'これはメソッド内のコメントです
            Return value.ToString("yyyy/MM/dd HH:mm:ss")
        End Function
        

        Public Overridable Sub Dispose() Implements System.IDisposable.Dispose
            'TODO:実装してください
        End Sub
        

        Public Overrides Function ToString() As String
            Return Me.m_propertyTest
        End Function
    End Class
End Namespace