質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.75%

  • Python

    6807questions

    Pythonは、コードの読みやすさが特徴的なプログラミング言語の1つです。 強い型付け、動的型付けに対応しており、後方互換性がないバージョン2系とバージョン3系が使用されています。 商用製品の開発にも無料で使用でき、OSだけでなく仮想環境にも対応。Unicodeによる文字列操作をサポートしているため、日本語処理も標準で可能です。

  • Windows

    1363questions

    Windowsは、マイクロソフト社が開発したオペレーティングシステムです。当初は、MS-DOSに変わるOSとして開発されました。 GUIを採用し、主にインテル系のCPUを搭載したコンピューターで動作します。Windows系OSのシェアは、90%を超えるといわれています。 パソコン用以外に、POSシステムやスマートフォンなどの携帯端末用、サーバ用のOSもあります。

TkinterでDnDを実装するには(64bit Window版)

解決済

回答 1

投稿

  • 評価
  • クリップ 0
  • VIEW 1,414

IwaoWatanabe

score 41

TkinterでエクスプローラからDnDでファイルを受け取るアプリを作成してみようと思いました。

参考サイトの内容を元にコードを作成してみましたが、残念なことに 64bit Windows 10 ではうまく動作しません。

Python+TkでD&D -MasaHeroの日記より
http://d.hatena.ne.jp/MasaHero/20111201/p1

ctypesを使って、WindowsのDDLを直接操作しています。
32bit Windows7 にて、python 2.7 と 3.4で動作を確認しています。

これを64bit Windowsでも動作させるにはどのように修正すればよいでしょうか?

# -*- coding: UTF-8 -*-
# このスクリプトは OSのDDLを利用しているため、Windowsでのみ動作します。

try: import Tkinter as tk
except ImportError: import tkinter as tk
import ctypes, sys
from ctypes import c_long, WINFUNCTYPE
from ctypes.wintypes import HWND, UINT, WPARAM, LPARAM

WM_DROPFILES = 0x0233
GWL_WNDPROC = -4
FS_ENCODING = sys.getfilesystemencoding()

DragAcceptFiles = ctypes.windll.shell32.DragAcceptFiles
DragQueryFile = ctypes.windll.shell32.DragQueryFile
DragFinish = ctypes.windll.shell32.DragFinish
CallWindowProc = ctypes.windll.user32.CallWindowProcW
GetWindowLong = ctypes.windll.user32.GetWindowLongW
SetWindowLong = ctypes.windll.user32.SetWindowLongW


class TkApp(tk.Frame):
    dnd_interval = 600

    def __init__(self, *args, **kargs):
        tk.Frame.__init__(self, *args, **kargs)
        self.createwidget()
        self.dropnames = []
        win = args[0] if args else self._root()
        win = self.tw

        def drop_check():
            if self.dropnames:
                fns = self.dropnames
                self.dropnames = []
                self.dnd_notify(fns)
            win.after(self.dnd_interval, drop_check)


        @WINFUNCTYPE(c_long, HWND, UINT, WPARAM, LPARAM)
        def replace_win_proc(hwnd, msg, wp, lp):
            u"""D&D用のコールバック
    ファイルのドラッグアンドドロップイベント(WM_DROPFILES)を検出して、
    ドロップされたファイル名を保持する。
    ここでウィンドウ(tk)を使用するとハングアップするのでデータ保存だけ行う。
    """
            if msg == WM_DROPFILES:
                nf = DragQueryFile(wp, -1, None, None)
                buf = ctypes.c_buffer(260)
                fns = [ buf.value.decode(FS_ENCODING) for nn in range(nf) \
                        if DragQueryFile(wp, nn , buf, ctypes.sizeof(buf)) ]
                DragFinish(wp)
                self.dropnames.extend(fns)
                print("%s dnd_notify: %s" % (self, hwnd))

            return CallWindowProc(self.org_proc, hwnd, msg, wp, lp)


        def dnd_setup():
            "Windowsのイベント処理のフックを定義する"
            hwnd = win.winfo_id()
            DragAcceptFiles(hwnd, True)
            self.org_proc = GetWindowLong(hwnd, GWL_WNDPROC)
            self.win_proc = replace_win_proc
            SetWindowLong(hwnd, GWL_WNDPROC, self.win_proc)
            win.after_idle(drop_check)
            print("%s dnd_setup: %s,%s" % (self, hwnd, self.org_proc))

        self.pack(fill='both', expand=1)
        win.after_idle(dnd_setup)


    def createwidget(self):
        tw = tk.Text(self, width=30,height=16)
        tw.pack(fill='both', expand=1)
        self.tw = tw


    def dnd_notify(self, filenames):
        for nn in filenames:
            self.tw.insert('end',"%s\n" % nn)


if __name__ == "__main__":
    a = TkApp()
    if 0: TkApp(tk.Toplevel()) # 複数ウィンドウに対応
    a.mainloop()

実行するとウィンドウが表示されます。そちらにエクスプローラからファイルやディレクトリをドロップすると、そのファイルのパスを表示(追記)します。

UNCでもうまく動作しているようです。

64bit Windows 10 では GetWindowLong の返り値が0になっているので、その辺りを調整すればよいのでは?と思うのですが.. 

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 1

check解決した方法

0

その後の調査で、64bit版のpythonでもエクスプローラからDnDが動作するようになりました。
まずDLLからAPIのエンドポイントを取り出すところの記述を次のように修正しました。

DragQueryFile = ctypes.windll.shell32.DragQueryFile
DragQueryFile.argtypes = [ ctypes.c_void_p, UINT, ctypes.c_void_p, UINT ]
DragFinish = ctypes.windll.shell32.DragFinish
DragFinish.argtypes = [ ctypes.c_void_p ]
CallWindowProc = ctypes.windll.user32.CallWindowProcW
CallWindowProc.argtypes = [ ctypes.c_void_p, HWND , UINT, WPARAM, LPARAM ]
try: SetWindowLong = ctypes.windll.user32.SetWindowLongPtrW
except AttributeError: SetWindowLong = ctypes.windll.user32.SetWindowLongW

64bitの場合は、SetWindowLong の APIのエンドポイントが異なるのと
ポインタを操作する部分を 明示的に ctypes.c_void_p で示してやる必要がありました。

またこの利用ケースの場合、SetWindowLong はその返り値が GetWindowLong と同じであることが分かったので
GetWindowLong 関連の記述を除去して

self.org_proc = SetWindowLong(hwnd, GWL_WNDPROC, self.win_proc)


と置き換えました。

また、python 3 ではプロトタイプで UINTとしているところに Noneを渡すとエラーとなりました。
そのため DragQueryFile の呼び出しを次のように None から 0 に変えました。

nf = DragQueryFile(wp, -1, None, 0)

以上の修正で動作が確認できました。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 90.75%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る

  • Python

    6807questions

    Pythonは、コードの読みやすさが特徴的なプログラミング言語の1つです。 強い型付け、動的型付けに対応しており、後方互換性がないバージョン2系とバージョン3系が使用されています。 商用製品の開発にも無料で使用でき、OSだけでなく仮想環境にも対応。Unicodeによる文字列操作をサポートしているため、日本語処理も標準で可能です。

  • Windows

    1363questions

    Windowsは、マイクロソフト社が開発したオペレーティングシステムです。当初は、MS-DOSに変わるOSとして開発されました。 GUIを採用し、主にインテル系のCPUを搭載したコンピューターで動作します。Windows系OSのシェアは、90%を超えるといわれています。 パソコン用以外に、POSシステムやスマートフォンなどの携帯端末用、サーバ用のOSもあります。