市販のアプリケーションソフトの中ではDDEが利用できるものとできないものがあり、 できないソフトはどうしようもありませんが、WordやExcelなど、 簡単に言えば「リンクはりつけ」できるアプリケーションは DDE通信でデータを相手に送る機能をもっており、DDEソースになることができます。 また、VisualBasic、Delphi、PowerBuilderなどの言語処理系で書いたプログラムは、 DDEソースにもDDEデスティネーションにもなることができます。 特殊な例としてWordやExcelはマクロ言語がDDE処理を記述できる言語VBA なので、アプリケーションとしてDDEソースになれるほか、 マクロがDDEデスティネーションになれます。 そして、ここで扱う我らがTcl/Tkで書いたプログラムも、少し制限はありますが、 DDEソースにもDDEデスティネーションにもなれます。

  package require dde
  set r [dde request Excel "\[Book1\]Sheet1" R5C5]

  dde poke Excel "\[Book1\]Sheet1" R5C5 {Hello}

(*1)dde pokeサブコマンドはTcl 8.2でサポートされたので、以前の版では使えません。

  # 新規ブック作成
  dde execute Excel System {[NEW(1)]}
  # ブックを開く
  dde execute Excel System {[OPEN("\usr\me\data.xls")]}
  # マクロを実行する
  dde execute Excel System {[RUN("data.xls!macro1")]}
  # 指定したセルを選択状態にする
  dde execute Excel System {[SELECT("R5C5")]}
  # セルを挿入する
  dde execute Excel System {[INSERT(1)]}
  # Excel上で指定したキーの並びが押されたかのような動作をさせる
  dde execute Excel System {1243{ENTER}}

Private Sub UserForm_Activate()
    Dim fd As Integer

'まず通信相手と接続します。
    fd = DDEInitiate("TclEval", "TclTkDDESample")
'Tcl/Tkから情報をとってきて、Excelのセルに書きこみます。
    result = DDERequest(fd, "SampleValue")
    For i = LBound(result) To UBound(result)
        Worksheets("Sheet1").Cells(i, 2).Formula = result(i)
    Next
'Tcl/Tk上でコマンドを実行させます。
    'DDEExecute fd, "tk_messageBox -message hello"
    'DDEExecute fd, "SampleProc 1"
'Tcl/Tkスクリプトにキーを送ります。
    AppActivate "TclScriptWindowName"
    SendKeys "x{ENTER}"

    DDETerminate (fd)
End Sub

  package require dde
  dde servername TclTkDDESample
  set SampleValue 12345
  proc SampleProc {args} {
    # ...
  }
  wm title . TclScriptWindowName
  bind .  {
    # ...
  }
  # ...

　まず、PowerBuilderのウィンドウペインタで次のような画面を作ります。 PowerBuilderはVisualBasic同様、 マウス操作でこういう画面が作れてこれはこれでとてもベンリです。

　ウィンドウの「プロパティ」で名前を「window1」、 シングルラインエディット(Tcl/Tkで言うエントリ、VisualBasicで言うテキストボックスのこと)の方も「プロパティ」で名前を「text1」 としておきます。 そして、ウィンドウに焦点を合わせ「スクリプト」でコードを編集します。

// window1.Open():
StartServerDDE("PowerBuilder", "PBDDESERV", "Value")

// window1.RemoteExec():
String command, clientname
GetCommandDDEOrigin(clientname)
GetCommandDDE(command)
if left(command, 3) = "SET" then
    window1.text1.text = mid(command, 5)
    RespondRemote(TRUE)
else
    RespondRemote(FALSE)
end if
// end.

// window1.RemoteRequest():
SetDataDDE(window1.text1.text)
// end.

さて、PowerBuilderでアプリケーションが書けたら、 それを実行状態にしたまま、wish(Tcl/Tk)を起動してコマンドを下のように叩き、 接続してみます。

# DDEは外部パッケージとして提供されるので、最初にこのコマンドが必要
# 意味がわからなくても、とりあえず毎回これでＯＫですよ
package require dde
# ＯＫ。上のRemoteRequestイベントに書いた通り、シングルラインエディット
# text1の内容が送られてくる
set v [dde request PowerBuilder PBDDESERV Value]
# エラー。
set v [dde request PowerBuilder PBDDESERV DetaramenaAtai]
# ＯＫ。上のRemoteExecイベントに書いた通り、シングルラインエディットに
# 指定した文字列が書き込まれる。
dde execute PowerBuilder PBDDESERV {SET Take the long way home}
# エラーではないが、何も起こらない…
dde execute PowerBuilder PBDDESERV {DetarametaCommand}

// window1.button1.clicked()
int handle, r
handle = OpenChannel("TclEval", "WISHDDESERV")
if handle < 0 then
    MessageBox("Error", "DDE接続に失敗しました", Exclamation!)
    return
end if
r = ExecRemote(text1.text, handle)
if r < 0 then MessageBox("Error", "失敗しました。")
CloseChannel(handle)
// end.

今度はウィンドウの下側のボタンが押されたときのイベントハンドラ button2.Clicked です。 これは、WISHDDESERVという名前で待機しているTcl/Tkアプリケーションに接続し、 その左側のシングルラインエディットに入力された文字列の名前のTcl変数の値をもらってきて、一番下のマルチラインエディット(Tcl/Tkで言うテキストです) に書き出します。

// window1.button2.clicked():
int handle, r
handle = OpenChannel("TclEval", "WISHDDESERV")
if handle < 0 then
    MessageBox("Error", "DDE接続に失敗しました", Exclamation!)
    return
end if
r = GetRemote(text2.text, text3.text, handle)
if r < 0 then MessageBox("Error", "失敗しました。")
CloseChannel(handle)
// end.

package require dde
dde servername WISHDDESERV

(first uploaded 1999/07/03 last updated 1999/11/03, Urano398)