Delphi 買ったけど。。 

Delphi 買ったけど。。2007/02/13

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
           Delphi 買ったけど。。No.0197
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
だも(^O^)／ TERRY です(^-^)

人間はどんな所でも学ぶことができる。
知りたいという心さえあれば。

    「MASTER キートン」ユーリー・スコット


┏━┓
┃フ┃ァイラーに持ってこい！
┗━┛
以前は、Ｍ＆Ｉ さんの ReadDoc コンポーネント
http://m-and-i.cocolog-nifty.com/freetalk/ を使って Word ファイルを
表示していましたが、先日……

Delphi-ML
「[Delphi:89251] Re: Word、Excel、PDFの中身をテキストで取得したい」

で、xdoc2txt というソフトウェア
http://www31.ocn.ne.jp/~h_ishida/xdoc2txt.html
を呼び出し、PDF,WORD,EXCEL,一太郎などのテキスト表示をする。

という投稿がありましたので早速試してみました。

上記 URL から「xdoc2txt」をゲットします。
xdoc2txt.exe 本体をパスの通ったところに解凍します。

準備はこれだけです。

xdoc2txt はコマンドラインアプリですのでコマンドプロンプトで、

xdoc2txt test.pdf

とかすれば、標準出力されますし、

xdoc2txt test.pdf >c:\test.txt

とかすればファイルにはき出してくれます。

┏━┓
┃こ┃れを Delphi でするために、やはり Delphi-ML で投稿された
┗━┛

[Delphi-ML:31027] [Tips] ConsoleRedirect Library
http://www2.big.or.jp/~osamu/Delphi/delphi-browse.cgi?index=031027

で、起動して取得します。


ファイルを開いてみるのにオープンダイアログは邪魔くさいので、Win3.1
タブにある、
TDriveComboBox 、TDirectoryListBox 、TFileListBox を使いましょう。
テストにはお気軽です。

三つのコンポーネントを貼り付けたら、
DriveComboBox の DirList プロパティ、DirectoryListBox の FileList
プロパティをそれぞれＷクリックして関連づけてください。

フォームをＷクリックして、FileListBox のマスク（表示される種類）
を設定します。（今回は HTML MHT は除外しました）

procedure TDelxdoc2txtMainForm.FormCreate(Sender: TObject);
begin
  FileListBox1.Mask:=
    '*.rtf;'+//    リッチテキスト
    '*.doc;'+//    Microsoft WORD ver5*.0/95/97/2000/XP/2003
    '*.xls;'+//    Microsoft Excel ver5*.0/95/97/2000/XP/2003
    '*.ppt;'+//    Microsoft PowerPoint 97/2000/XP/2003
    '*.jaw;'+
    '*.jtw;'+//    一太郎 ver5
    '*.jbw;'+
    '*.juw;'+//    一太郎 ver6
    '*.jfw;'+
    '*.jvw;'+//    一太郎 ver7
    '*.jtd;'+
    '*.jtt;'+//    一太郎 ver8/9/10/11/12
    '*.oas;'+
    '*.oa2;'+
    '*.oa3;'+//    OASYS/Win
    '*.bun;'+//    新松/松5/松6
    '*.wj2;'+
    '*.wj3;'+
    '*.wk3;'+
    '*.wk4;'+
    '*.123;'+//    Lotus 123
    '*.wri;'+//    Windows3*.1 Write
    '*.pdf;'+//    Adobe PDF
    '*.eml';//    OutlookExpressのエクスポート形式
end;

あいたところに TMemo を貼り付けて、FileListBox をＷクリックします。

procedure TDelxdoc2txtMainForm.FileListBox1Change(Sender: TObject);
var
  StdIn,StdOut,StdErr:string;
begin
  RedirectExec('xdoc2txt "'+
               (Sender as TFileListBox).FileName+
               '"',
               StdIn,StdOut,StdErr);
  Memo1.Lines.Text:=StdOut;
end;

これだけです。凄いです。
※文字列のない画像だけの PDF の場合、落ちたりしますが、Delphi ソ
  フトに影響はありません。


┏━┓
┃ア┃イデア次第でまだまだ楽しめる。Delphi
┗━┛
だぶるまうす 〜デスクトップに第二のマウスを。
http://www.geocities.co.jp/SiliconValley/1367/

というソフトの紹介を読みました。Delphi 製です。

最近は結構マウス主体のアプリも多くなってきましたので二つのソフト
で行ったり来たりしているとマウスをグリィーーーンっと持ってきたり
するのがぢゃま臭くなってきて、（特にマルチディスプレイでの CAD と
か）『もう一つあっちに待機させておこうよ、マウスカーソル』という
ソフトです。

この思いつきがすばらしいですね。ここから、

→ ならどうすればいい？

→ 俺の Delphi で作れっかな？

→ ダミーのカーソルを置いて、呼び出したらそこに SetCursorPos すれば
   いいんでないか？移動した瞬間に元の場所にダミーを移動しておいて。
   ああ、それがメインウィンドウでいいか。

→ 呼び出すのにショートカット使っていては意味がないから真ん中ボタンで

→ なら、それをフックしなくては。

と行った流れで、あとはドンドン膨らんで、調べなくてはいけないこと
も自然と整理されてきます。これも普段から頭の中に Delphi の血が流
れているからなんですね。

あ、紹介記事を読んで興味を持っただけで落としていません。
発想の流れは私の想像です(^^;

皆さんもドンドン Delphi で Windows を快適にしていってください。


そりでは(^.^)/~~

_________________________________________________________________
★わからない点などありましたら、メールしてください。
★メッセージボードはスパム投稿があまりに増えたのでアドレスを少しだ
  け変更しました。私のトップページ
  http://www.vector.co.jp/authors/VA009187/
  から入ってください。

  あるいは↓の「*」を「.」に変更してください。
  http://hpcgi3*nifty*com/teriard/honey/honey-mk2*cgi
*****************************************************************

発行者：TERRY                                   teriard@nifty*com
スパム対策です。               「*」を「.」に変更してください↑

★ 登録 or 解除はこちらから↓
                http://www.vector.co.jp/authors/VA009187/delkedo/
★バックナンバー
                 http://backno.mag2.com/reader/Back?id=0000016258
*****************************************************************
　★なるべくＭＳゴシックなどの「等幅フォント」でお読み下さい★
_________________________________________________________________
このメールマガジンは、
・インターネットの本屋さん『まぐまぐ』
  http://www.mag2.com/       ID:0000016258
・melma!
  http://www.melma.com/      ID:m00001349
で発行しています。
_________________________________________________________________

• 前の記事
• 最新の記事
• 次の記事

規約に同意して

登録した方には、まぐまぐの公式メルマガ（無料）をお届けします。