aceさん、こんばんは。

大変お返事が遅くなり申し訳ありません。
本件、いったん開発がストップしておりましたが、最近再開し、
また取り掛かっております。

ace様ご教授のとおり、あるスクリプト上に
下記のように記載し、通信ポートのOpenまでは上手くいきました。

このあと、着信が入ると
「OnPhoneDetect」という「イベント」が発生するよう
なのですが、このイベントの取得方法がわかりません。

http://www.hitwareland.jp/products/alohapc1commx/manual/html/index.html

こちらに該当のイベントの記述方法が、VB、Delphiの例のみ
載っています。

これをPowerBuilder上で実施する方法はありませんでしょうか。
たびたび申し訳ありませんが、よろしくお願いいたします。

---------------------------------------------------------------

integer iRet
OLEObject objAloha
objAloha = CREATE OLEObject
iRet = objAloha.ConnectToNewObject(\"NDAAlohaPC1.AlohaPC1CommX\")
IF iRet < 0 THEN
//エラー処理
END IF

boolean lb_port, lb_open, lb_close
integer li_end

//通信ポート検索
lb_port = objAloha.FindPort()

If lb_port = TRUE Then
messagebox(\"成功\",\"成功\")
messagebox(\"ポート番号\",string(objAloha.PortName))
Else
messagebox(\"失敗\",\"失敗\")
End If

//通信ポートOpen
lb_open = objAloha.Open()

If lb_open = TRUE Then
messagebox(\"Open成功\",\"Open成功\")
Else
messagebox(\"失敗\",\"失敗\")
End If

---------------------------------------------------------------