☆英単語の検索

CodeGearのニュースグループを始め、英文に触れる機会が多いですよね。
わからない英単語を調べるのに私は、英辞郎 on the WEBを利用させて頂いてます。

今回は、英辞郎 on the WEBを利用する処理を考えてみます。
Edit1, WebBrowser1, Button1をフォームに配置し、次の処理をさせます。

uses
  HTTPApp;

procedure TForm1.Button1Click(Sender: TObject);
const
  S1 = 'http://eow.alc.co.jp/';
  S2 = '/UTF-8/';
var
  S: String;
begin
  S := S1 + HTTPEncode(AnsiToUtf8(Edit1.Text)) + S2;
  WebBrowser1.Navigate(S);
end;

これだけで、英和・和英の辞書が完成します。
しかし、不明な単語をいちいちコピーして、貼り付けて、検索させるとなると面倒ですよね。
私は、クリップボードを監視して、コピーされたときに自動で検索させるようにしています。
ぜひ実装してみて下さい。

※英辞郎 on the WEBでは、データの転載は禁じられていますので、ご注意を。
※今後、アドレス変更他の理由により、この処理では利用できなくなることもあります。


SPACE ALC
英辞郎 on the WEB
http://www.alc.co.jp/

Delphi Tips
クリップボードが更新された時のイベントを取得する
http://www2.big.or.jp/~osamu/Delphi/Tips/key.cgi?key=10