P013-URLをドラッグ＆ドロップ

今日の目標→

UnicodeのBOMについて探求する前にちょっと脇道へ。 いちいちURLを入力するのが面倒になってきたので、 今回はWebブラウザからURLをドラッグ＆ドロップできるようにプログラムを改造してみる。

●Webブラウザからのドラッグデータを受け取るには

最近のWebブラウザは、 画面上のリンクや画像などをドラッグ＆ドロップで持ち出せるので非常に便利である。 問題は、Webブラウザのドラッグ＆ドロップには標準的な手法が決まっておらず、 各陣営が好き勝手にやっているという点だ。

試しにフォームのDragDropイベントに次のようなコードを書いて実行してみるといい。

private void Form1_DragDrop(object sender, DragEventArgs e) { this.Activate(); MessageBox.Show( string.Join("\n", e.Data.GetFormats()), "取得できるデータ形式"); }

ブラウザ画面から上記のフォームにリンクか何かをドラッグ＆ドロップすると、 いろいろな形式のデータが取得可能なことがわかる。 ただし種類はFireFoxとChromeとMS Edgeでバラバラだ。 唯一共通しているのは、

UniformResourceLocator

という形式のドロップデータである。 これは字面からわかる通りURLを表している。 この形式のドロップデータからURLを文字列として取り出すには次のように書く。

private void Form1_DragDrop(object sender, DragEventArgs e) { if (e.Data.GetDataPresent("UniformResourceLocator")) { string URL = (string)e.Data.GetData(DataFormats.Text); // なにかURLを使った処理 } }

URL以外のデータにも便利なものがありそうで、 たとえばブラウザから画像をドラッグ＆ドロップした場合、 ローカルPCのキャッシュデータなんかもとれるみたいだが、 ブラウザごとに挙動が変わるのが困るなあ。 まあURLさえわかってれば、もっかいデータを読みにいけばいいんだし…。

●プロジェクトの作成

というわけで、前々回（P011～）で作成したNetJob2を改造する。

1. プロジェクト作成ウィンドウを開く
2. 「Windowsフォームアプリケーション」テンプレート、名前は「NetJob3」でプロジェクトを作る
3. Form1.csを開き、NetJob2のFomr1.csをコピペし、次のように改造する

// プロジェクト：NetJob3 // ファイル名：Form1.cs using System; using System.Drawing; using System.IO; using System.Net; using System.Text; using System.Windows.Forms; using MarugeProject; namespace NetJob3 { public partial class Form1 : Form { // コントロールなど private SplitContainer MySplitBox; private RichTextBox MyReportBox; private RichTextBox MyWebTextBox; private TextBox MyInputBox; private Button MyGetButton; private RichReporter MyReporter; // フォームのコンストラクタ public Form1() { InitializeComponent(); // タイトルバーにプログラム名を表示する this.Text = Application.ProductName; // ウィンドウサイズを400x400にする this.Width = 400; this.Height = 400; // 上下分割コンテナを作る MySplitBox = new SplitContainer(); MySplitBox.Name = "MySplitBox"; MySplitBox.Anchor = AnchorStyles.Left | AnchorStyles.Right | AnchorStyles.Top | AnchorStyles.Bottom; MySplitBox.Left = 8; MySplitBox.Top = 8; MySplitBox.Width = this.ClientSize.Width - 16; MySplitBox.Height = this.ClientSize.Height - 40; MySplitBox.BorderStyle = BorderStyle.FixedSingle; MySplitBox.Orientation = Orientation.Horizontal; MySplitBox.SplitterDistance = 200; // 分割コンテナの上側にネットデータ表示用のRichTextBoxを配置する MyWebTextBox = new RichTextBox(); MyWebTextBox.Name = "MyWebTextBox"; MyWebTextBox.BorderStyle = BorderStyle.None; MyWebTextBox.Dock = DockStyle.Fill; MyWebTextBox.DetectUrls = false; MySplitBox.Panel1.Controls.Add(MyWebTextBox); // 分割コンテナの下側にレポート出力用のRichTextBoxを配置する MyReportBox = new RichTextBox(); MyReportBox.Name = "MyReportBox"; MyReportBox.BorderStyle = BorderStyle.None; MyReportBox.Dock = DockStyle.Fill; MySplitBox.Panel2.Controls.Add(MyReportBox); // 「テキストを読み込む」ボタンを作る MyGetButton = new Button(); MyGetButton.Name = "MyGetButton"; MyGetButton.Anchor = AnchorStyles.Right | AnchorStyles.Bottom; MyGetButton.Left = this.ClientSize.Width - 128; MyGetButton.Top = this.ClientSize.Height - 30; MyGetButton.Width = 120; MyGetButton.Text = "テキストを読み込む(&R)"; MyGetButton.Click += MyGetButton_Click; // テキスト入力ボックスを作る MyInputBox = new TextBox(); MyInputBox.Name = "MyInputBox"; MyInputBox.Anchor = AnchorStyles.Left | AnchorStyles.Right | AnchorStyles.Bottom; MyInputBox.Left = 8; MyInputBox.Top = MyGetButton.Top + 2; MyInputBox.Width = this.ClientSize.Width - MyGetButton.Width - 18; MyInputBox.Text = "http://"; // 各コントロールをフォームに配置する this.SuspendLayout(); this.Controls.Add(MySplitBox); this.Controls.Add(MyGetButton); this.Controls.Add(MyInputBox); this.ResumeLayout(); // テキスト出力の準備 MyReportBox.DetectUrls = false; MyReportBox.Font = new Font("MS UI Gothic", 12); MyReporter = new RichReporter(MyReportBox); // 初期メッセージを出力 MyReporter.Print("使用方法：\n"); MyReporter.Print("URLを入力 → 「テキストを読み込む」をクリック\n"); MyReporter.Print("または、WebブラウザからURLをドラッグ＆ドロップ\n"); // フォームへのドラッグ＆ドロップの準備 this.AllowDrop = true; this.DragEnter += Form1_DragEnter; this.DragDrop += Form1_DragDrop; // リッチテキストボックスへのドラッグ＆ドロップを禁止 MyWebTextBox.ReadOnly = true; MyWebTextBox.AllowDrop = false; MyWebTextBox.EnableAutoDragDrop = false; } // 「テキストを読み込む」ボタンをクリック private void MyGetButton_Click(object sender, EventArgs e) { MyReportBox.Clear(); MyReporter.Print("接続します\n"); byte[] data = ReadNetData(MyInputBox.Text); if (data != null) { Encoding enc = EncodingChecker.GetEncoding(data); MyReporter.Print("成功しました\n"); MyReporter.Print("文字コードは " + enc.EncodingName + " です\n"); MyWebTextBox.Text = enc.GetString(data); } else { MyReporter.ColorPrint(Color.Red, "失敗しました\n"); } } // ネットからバイナリテキストを読み込む private byte[] ReadNetData(string URL) { try { // ネットからデータを読み込み、byte配列として返す WebClient client = new WebClient(); return client.DownloadData(URL.Trim()); } catch { // 読み込み失敗ならnullを返す return null; } } // フォームへのドラッグ開始 private void Form1_DragEnter(object sender, DragEventArgs e) { e.Effect = e.AllowedEffect; } // フォームへのドロップ private void Form1_DragDrop(object sender, DragEventArgs e) { if (e.Data.GetDataPresent("UniformResourceLocator")) { string URL = (string)e.Data.GetData(DataFormats.Text); // URLを入力して「テキストを読み込む」ボタンを押したことにする MyInputBox.Text = URL; MyGetButton_Click(MyGetButton, EventArgs.Empty); } } } }

プログラムを実行し、ブラウザからURLをドラッグ＆ドロップできることを確認する。やっぱドラッグ＆ドロップは便利だなあ。