CodeWarriorで簡単? Palmプログラミング

　   Windows2000では上手く行かないところがありますので、95/98かNT4.0で実施されることをお勧めします。

　以下に、参考になる文献を紹介しておきます

• Palm Magazine Vol.1 誕生号（2000年8月）　株式会社アスキー

CodeWarrior Lite for Palm Computing Platform の使い方についての記事があります。1280円しますが、これを買った方が分かりやすいようです。CD-ROMに評価版も入ってるしね。
• Palmプログラミング　オライリージャパン出版

値段ははりますが、例題も載っていて、分かりやすいと思います。通信プログラムを参考にさせていただきました。

 2. 準備（インストール）
 3. まずは動くものを
 4. 通信の試み（メールの送信）
 5. POP3によるメールの受信

1. Palm社のソフト開発者のためのページ　Development Zone の Tools  の　CodeWarrior Lite - Free Download!　と書かれているところの Winndows か Mac をダウンロードします。ファイル名はcw_lite_palm_win.exe で、容量は 22MBほどでした。

 
2. そのままアイコンをダブルクリックして、インストールします。

　ここでは、まず動くことを確認するために、簡単に使ってみましょう。

1. 　まずは、CodeWarrior IDEを使ってプロジェクトを作ってみます
• WindowsのスタートメニューからCodeWarrior IDEを選択して起動します
• File の中の New... または、左から２番目のアイコンを選んで、新規プロジェクトを作成します
• 起動する画面はProjectタブになっていますが、この中から ただの Palm OS 3.1 （日本語でないもの）を選びます

　日本語版の方は、Palm OS 3.1（Japanese）を選ぶのでしょうかね。（よく分かりません）
• Project name に test とでも入れて、OKボタンをクリックします。Location のところに各種ファイルが作成されますので、適当なところを設定してください。デフォールトでは、C:\ 直下に以下のようなファイルが作成されます。
　
　　C:\test\test.mcp
　　C:\test\stationary Read Me.txt

　　C:\test\Src\Starter.c
　　C:\test\Src\StaterRsc.c
　　C:\test\Src\StarterRsc.h

　　C:\test\Rsc\Starter.rsrc
　　C:\test\Rsc\Resource.frk\Starter.rsrc
　　C:\test\test_Data\CWSettingsWindows.stg
　　C:\test\test_Data\Starter\TargetDataWindows.tdt
 

2. このとき左上に test.mcp と書かれた画面が表示されているはずですが、それぞれ内容を見ていきます
• AppSourceの中の Starter.c をダブルクリックすると、雛形になるソースファイルが編集可能になります。
• AppResourcesの中の Starter.rsrc をダブルクリックすると、Constructor for Palm OS が起動して、今度は画面レイアウトを編集することができるようになります。起動した画面のFormsの中のMainをクリックすると画面レイアウトが表示されます。
3. ここでは、何もいじらずに Make して実行ファイルを作成してみましょう

Project の中の Make、または先程の画面の５つのアイコンの真ん中を押すと、何やら動き始めて、以下のエラーを残して終わってしまいます

　　Link Error : Could not open file: C:\test\RESOURCE.FRK\Starter.tmp

フォルダを見ると、確かに Starter.tmp なんてファイルはありません。Make時の設定を見るために、Edit の Starter Settings...　あるいは test.mcp の画面の一番左のアイコンをクリックして、Starter Settings という画面を表示させ、確認していきます。

Target の中の 68K Target のファイル名として、「test」 が設定されており、フォルダにも「test」というファイルは存在します。
一方、Linkerの中のPalmRez Post Linker を見ると、この１行目にあるLinkerの Input File(Mac Resource Files) が「Start.tmp」と設定されており、連携がとれていません。
この対処としては、２つ考えられます。１つは、68K Target を「Starter.tmp」に書き換えることで、Palm Magazine Vol.1でも紹介されています。
もう１つは、PalmRez Post Linker の方の Input File(Mac Resource Files) を「test」にしてしまうことです。どちらにしても、右下の Save をクリックしたのち、再度Makeしてやると、問題なく実行ファイル(Starter.prc)が作成されます。

何のためにこんな設定がされているか知りませんが、初心者はこういうことであきらめてしまいがちなので、何とかしてもらいものです。
 

4. この実行ファイルを HotSync を使って Palm本体に入れると、アイコン表示のない怪しげなアプリが１つ増えています。

これを起動すると画面だけが表示されます。タイトルは StarterApp になっているはずです。

1. それでは、テキストフィールドとチェックボックス、ボタンを配置してみましょう

FormsのMainをダブルクリックするとレイアウト画面が出てきます。さらに、Window の Catalog をクリックすると UI （画面の部品）の一覧が出てきます。部品のうち Field と Checkbox と Button の３つをドラッグしてレイアウト画面に持っていって見ます。このとき番号が出ますが、じゃまなときは　LayoutのHide Object IDsで消すことができます。
最後に、File の中の Saveで保存します。このときStarter_res.hが自動的に編集されます。
 
2. IDE で Make すると Starter.prc が更新されます

これをPalm本体で見ると、テキストフィールドとチェックボックス、ボタンが表示されます。テキストフィールドは字が書き込めますし、チェックボックスはuntitledで表示されますが、チェック部分をトグル（ついたり消えたり）できます。ボタンはOKと表示され、押せますが何も起こりません。

1. ソースファイルを編集します

AppSource の+を押してStarter.cをダブルクリックするとソースファイルが編集できるようになります。
以下に、ソースの変更箇所を示します。ctlSelectEvent はコントロールボタンを押して離したときに発生しますが、これを検出して終了のイベントをキューに送ることで実現しています。
　　　　　static Boolean MainFormHandleEvent(EventPtr eventP)
　　　　　{
    　　　　　Boolean handled = false;
    　　　　　FormPtr frmP;

    　　　　　/* 以下の行を追加 */
    　　　　　EventType newEvent;

 　　　　　　switch (eventP->eType)
 　　　　　　 {
  　　　　　　　　case menuEvent:
   　　　　　　　　　return MainFormDoCommand(eventP->data.menu.itemID);

 　　　　　　　　 case frmOpenEvent:
  　　　　　　　　　 frmP = FrmGetActiveForm();
  　　　　　　　　　 MainFormInit( frmP);
  　　　　　　　　　 FrmDrawForm ( frmP);
  　　　　　　　　　 handled = true;
   　　　　　　　　　break;

  　　　　　　　　/* ここから追加 */
  　　　　　　　　case ctlSelectEvent:
      　　　　　　　　MemSet(&newEvent, sizeof(EventType), 0);
     　　　　　　　　 newEvent.eType = appStopEvent;
     　　　　　　　　 EvtAddEventToQueue(&newEvent);
   　　　　　　　　　handled = true;
   　　　　　　　　　break;
 　 　　　　　　　/* ここまで */

  　　　　　　　　default:
   　　　　　　　　　　break;

 　　　　　　 }
　　　　　　　return handled;
　　　　　}
 

2. Makeして、Palm本体で動作を確認してみてください

1. ダイアルアップ接続の実現

ダイアルアップ接続の方法がよく分かっていなかったので、以下のような実験を実施しました。何のことはなくプログラムの中で、NetLibOpenを実行するだけで接続されてしまいます。
 
「３．まずは動くものを」で使った Startrer.cに以下を加えてみます。緑の部分が、さらに追加したところです．

　　#include <NetMgr.h>
　　extern Word AppNetRefnum;
　　Err errno;

　　static Boolean MainFormHandleEvent(EventPtr eventP) {
     .....
    EventType newEvent;
    Word interfaceError;
    Err error;
    Word AppNetRefnum;
    .....

　　/* ここから追加 */
 　 case ctlSelectEvent:
　　　SysLibFind("Net.lib", &AppNetRefnum);
　　　error = NetLibOpen(AppNetRefnum, &interfaceError);　/* 接続して */
　　　NetLibClose(AppNetRefnum, true);                            /* 切断する */
  　　MemSet(&newEvent, sizeof(EventType), 0);
 　 　newEvent.eType = appStopEvent;
    　EvtAddEventToQueue(&newEvent);
    　handled = true;
    　break;
 　 /* ここまで */

 
Makeして実行してみると、ちゃんとダイアルアップ接続した後、切断します。接続先は、Palm本体のNetwork設定に従います。
 
 
2. サンプルプログラムを参考に、メールの送信をやってみましょう

以前は、Windows2000でやっていてなかなか上手くいきませんでしたが、NT4.0にしたら問題なく動きました。

まず、ダウンロードしましょう。ここをクリックしてください。オライリ社のサイトで、下の方のNov. 1, 2000のところのDownload CW R6 projects (Mac/Windows)です。

ここで注意が必要なのは、インクルードファイルの一部を修正しないとコンパイルできないことです。以下を直してください。

Program Files\Netrowerks\Incs\System\Unix\unix_stdio.h
#include <stdarg.h>   ->　 #include <unix_stdarg.h>

Program Files\Netrowerks\Incs\System\Unix\unix_string.h
#include <StdArg.h> ->　 #include <unix_stdarg.h>

さきほどダウンロードしたファイルを解凍し、cwr6projs\PalmProg\Sendmail (chapter 9)\Sendmail (R6)をダブルクリックします。このとき３つほどメッセージが出ますが、無視します。
このまま、Makeをクリックすると、実行型が出来上がります。Palmデバイスに入れて動かしてみるとちゃんとメール送信できました。
 
 

3. CWを使ってのｍａｋｅや画面の構成を確認してみましょう。
   切り出して書いてみましたので、ここを参照してください。

 

 

4. それでは、プログラムの中身を見てみましょう。

ソースは２つのファイルで構成されています。これらのファイルとその中に定義されている関数の構成を以下に示します。
mail.c
  PilotMain() -|- RomVersionCompatible() -|- FtrGet()
                    |                                        |- FrmAlert()
                    |                                        |- AppLaunchWithCommand()
                    |- StartApplication()
                    |- FrmGotoForm()
                    |- EventLoop() -|- EvtGetEvent()
                    |                      |- SysHandleEvent()
                    |                      |- MenuHandleEvent()
                    |                      |- ApplicationHandleEvent() -|- FrmInitForm()
                    |                      |                                        |- FrmSetActiveForm()
                    |                      |                                        |- FrmSetEventHandler    -|- SysLibFind()
                    |                      |                                           (MainViewHandleEvent)   |- GetLockedPtr() -|- FrmGetActiveForm();
                    |                      |                                                                              |                            |- FrmGetObjectPtr()
                    |                      |                                                                              |                            |- FldGetTextHandle()
                    |                      |                                                                              |- NetLibOpen()
                    |                      |                                                                              |- sendmail()
                    |                      |                                                                              |- NetLibClose()
                    |                      |                                                                              |- MemPtrUnlock()
                    |                      |                                                                              |- FrmDrawForm(FrmGetActiveForm())
                    |                      |- FrmDispatchEvent()
                    |- StopApplication()

MyErrorFunc() - FrmCustomAlert()
MyStatusFunc() - FrmCustomAlert()
 
 

sendmail.c
   sendmail() -|- make_connection() -|- atoport() - getservbyname()
                    |                                |- atoaddr() -|- inet_addr()
                    |                                |                  |- gethostbyname()
                    |                                |- socket()
                    |                                |- connect()
                    |                                |- bind()
                    |- GotReply() - ReadReply() - sock_gets() - read()
                    |- Send() - nwrite() - write()
                    |- SendBody() - SendSingleBodyLine() - nwrite() - write()
 
 
 


 

 
 
 

私が入っているリムネットのメールサーバに対してアクセスしてみます。ダイアルアップの接続を済ませたあとで、コマンドプロンプトから telnet を使って入り込みます。青色のところを入力しますが、エコーバックされないため、ちゃんと入っているか？てな感じです。

C:\>telnet mail.cc.rim.or.jp 110 　　 （110 は pop３ のポート番号です）

Server: +OK QPOP (version 2.53) at mail3.cc starting.
Client : USER egami3
Server: +OK Password required for egami3.
Client : PASS *******        　　　　  （******* はパスワードです）
Server: +OK egami3 has 1 message (915 octets).
Client : STAT
Server: +OK 2 1540
Client : LIST
Server: +OK 2 messages (1540 octets)
Server: 1 915
Server: 2 625
Server: .　　　　　 （ピリオドです）
Client : RETR 1
Server: +OK 915 octets
Server: Received: from serio.al.rim.or.jp (serio [202.247.191.123])
        by mx1.rim.or.jp (8.9.3+Sun/3.7W) with ESMTP id AAA15944
        for <egami3@cc.rim.or.jp>; Thu, 26 Apr 2001 00:00:25 +0900 (JST)
　　　　・・・・・・・・・・・・・・・
Content-Type: text/plain; charset="ISO-2022-JP"
Content-Transfer-Encoding: 7bit
X-UIDL: 5a73b5519fa77475d7dff22f563c27c8

@%F%9%H$G$9B　（本文ですが、日本語が化けちゃいました）

Server: .       （ピリオドです）
Client : DELE 1
Server: +OK Message 1 has been deleted.
Server: +OK Pop server at mail3.cc signing off.
Client : QUIT

ホストとの接続が切断されました。

C:\>