投稿

4月, 2011の投稿を表示しています

androidアプリケーションを作成しました!

イメージ
4月ももう半ばだというのに、なかなか暖かくなりませんね。
風邪など引かないように、気をつけてお過ごしください。

これから暖かくなりますように・・・と祈りながら、ボタンをクリックしてください。
きっと暖かい日が来ます。



さて、今日は告知です。
Lotus Notes/DominoのAndroidアプリケーションを作成しました!

と言っても、大したものではありません。ノーツDBのブックマークソフトです。

Web対応してあるノーツDBをアプリケーション上にあらかじめ登録しておくことで、次回からはダイレクトにアクセスできるというものです。

下図はスクリーンショットです。

(図1 メイン画面)
メイン画面では、登録したノーツDBがアイコン、タイトル、ファイル名という形で表示されます。
アイコンを表示することで、社内でノーツクライアントを利用しているのと同じ感覚になります。


(図2 ノーツDB追加画面)
ノーツDBを追加するためには、ノーツDBのファイル名が必須です。タイトルは任意でつけられます。
入力しない場合、ノーツDBから引用してきます(DBによっては引用できないものもあります)。

(図3 ノーツDBの読み込み)
図1の中からアクセスしたいノーツDBをタップすると、DBの読込が始まります。
読込が完了するとプログレスバーが消えます。

(図4 ノーツDBの表示画面)
これは筆者がサンプルとして作成したノーツDBです(xPagesで作成してあります)。
正しく表示されているのが分かりますでしょうか?


本アプリケーションは、IS01ユーザでも利用できるようにと、Android 1.6にも対応しています!(え!?筆者が持っているからだろって?・・・そうです!)
また、アプリケーション終了時に、履歴やクッキーも削除するようにしてあります。

Webブラウザにブックマークしておくのも良いですが、多すぎて普通のブックマークと混同してしまい、わからん!!というお客様にはもってこいだと思います。

本件に関するお問い合わせは、筆者もしくは株式会社エフまでお願いします。
なお、Android Marketへは未登録ですので、探しても見つかりません。悪しからず・・・
2011/04/20 Android Marketへ登録しました。「Bookmark for Notes」というタイトルです。 Andr…

設計情報の抽出

イメージ
気がついたら4月です。
3月は、社会的にも個人的にも色々とありまして記事を書くことが出来ませんでした。
中には「あぁ。このブログももう終わりかぁ」なんて思った方もいらっしゃるかと思いますが、そんなことはありません!頑張って書いていきます!

ちなみに、当ブログもすでに4年目に突入しています!まだまだLotus Notes/Dominoで押していきますのでよろしくお願いします。

筆者を応援するためのボタンはこちら!




さて、今日は設計情報の抽出にチャレンジしてみましょう。

ノーツDBにはフォームやらビューやらエージェントやら、色々な設計情報があります。
LotusScriptのNotesNoteCollectionクラスを使うことにより、どんな設計情報があるのかを調べることが可能になります。

今回のサンプルは、ノーツDBの中に、何個のフォームがあり、それの名称および別名を取得して画面に表示するというものです。
Sub Click(Source As Button)     Dim session As New NotesSession     Dim db      As     NotesDatabase     Dim ndocs   As     NotesNoteCollection     Dim ndoc    As     NotesDocument     Dim nid     As     String     Dim i       As     Integer     Dim ret     As     String     Dim tmpData As     String         Set db = session.CurrentDatabase     ' フォームだけのコレクションとする     Set ndocs = db.CreateNoteCollection( False )     ndocs.SelectForms = True     Call ndocs.BuildCollection()         i = 1     nid = ndocs.GetFirstNoteId()     Do While nid <> ""         Set ndoc = db.…