ソースが公開されているソフト、ユーティリティについて、適当すぎる改造を加えてみるテストです。 有用なソフトを作成し、公開されている作者さんに深く感謝いたします。
なお、オリジナルのソースやプログラム言語等の仕様について熟知している訳ではなく、当方で適当に改造してみただけですので、プログラムの動作、実行した結果については何ら保証できません。 というか、普通の方はオリジナル版をご利用になることをお勧めします。 動作におかしなところがあっても、当方でエンバグしている可能性大ですので、確認せずにいきなりオリジナルの作者さんにご迷惑をおかけしないようご注意ください。
聞々ハヤえもんは、再生速度・再生周波数・音程等を自由に変更できるMP3プレイヤーで、mp4等の動画ファイルもサポートしている高機能なソフトです。 私は仕事でテープ起こしをする時とかにも使ってます。再生速度を下げたり、ショートカットキーを設定してキー一発で5秒戻すとか、色々できて便利なんですよね。
作者のりょーたさんによりプログラムのソースも公開されているので、Visual Studio 2017でビルドしたり、64ビット版ができないか試行錯誤してみました。 例によって、BASSのAPIとか、変数の型とかロクに理解せずに適当にイジってるので動作無保証です。 当然ですが、普通に使いたい人はオリジナルの聞々ハヤえもんを使うべきです。
ハヤえもんで利用するライブラリを、2018年4月現在、利用可能な最新のものに入れ替えています。
私は市販やシェアウェアのWYSIWYGなHTMLエディタにはどうも馴染めないので、ホームページはテキストエディタでひたすら手打ちで作っています。 はたから見てると非効率なのかもしれませんけど、私にとってはこれが一番やりやすいんです。 ただ、普段の更新でもリンクを打ち間違える心配がありますし、サイトの構成を変えたりするとチェックが非常に辛くなるのが泣き所ですね。
で、私が長年愛用してきたのがHiroshi Sakuraiさんの孤島発見器です。 このソフトは、ホームページ内のリンク切れや、使われていないファイルを見つけだすことができ、私にとっては非常に使いやすいものでした。 この手のソフトっていろいろあるんですけど、以外に自分の欲しい機能をきちんと備えたものって少ないんですよね。
ところが、私のページをHTML4.01準拠に書き直していく中で問題が出てきました。 今まではページ内のリンクは name を使うのが一般的でしたが、HTML4.01では非推奨になってしまったんですね。 孤島発見器はidに対応していないため、チェックができません。 Sakuraiさんのホームページは1年以上更新されておりませんし、アップデートの望みは低そうです。 でも、Sakuraiさんは孤島発見器のソースファイルも公開してくださっているので、そのソースを元にいじってみようと思い立ったわけです。 まさに本来の意味での(つまり単に「無料」という意味ではない)フリーソフトだったおかげですね。 素晴らしいソフトを公開してくださったSakuraiさんに感謝します。
元々はタグをいくつか追加したかっただけなんですが、FormRgnやjconvertライブラリへの参照を削ったせいか、Delphi6の旧バージョンとの互換性の問題なのか、いくつかおかしな動作があった点を修正しています。 ろくにDelphiを理解していないのに、ソースを斜め読みして直感で修正しているため、エンバグしてしまっているかもしれません(^^;。 一応、自分で使った範囲では正常に動作はしているようですが。
使ってみたい方は、下の実行バイナリをダウンロードして、lha形式で圧縮してあるので適当なフォルダに解凍し、できあがったuokotou.exeを実行するだけです。 また、プログラムの説明やヘルプファイルの類は用意していませんので、必要な方はオリジナルの孤島発見器を入手して参照して頂ければと思います(一応、このページの存在はオリジナル作者の桜井さんに報告済みです)。
で、私が新たに追加し、認識できるようになったタグは以下のとおりです。
Delphiが分かってるヒトには分かりきったことですが、念のため。
2002/07/20 | 2.754.5 |
[ mainform/MarkTopClick,PopupMenu1Popup etc. ] TOPページの追加 or 消去の判定が動作せず、追加ができなくなっていた不具合を修正 [ readFileAll ] 孤島ではjconvertを使う必要がないと判断して削除 |
2002/07/13 | 2.754.4 |
[ OpenFiles/MakeAFileObject ] 初期値を再度変更 |
2002/07/06 | 2.754.3 |
[ OpenFiles/MakeAFileObject ] 初期値を変更(何故か全てのファイルが青、アンカー付で表示されてしまう為) [ FindUnreach/FindUnreachable ] else以下の指定を追加 |
2002/06/15 | 2.754.2 |
[ fileobject ] 検索対象にするタグを追加(H1等でのIDに対応) |
2002/06/01 | 2.754.1 |
[ UProjectForm ] FormRgnは昔のDelphi用ライブラリで、現在の環境で動かすのはちょっと難しそうだったので削除(^^; 無茶してますがとりあえず動作はしてるみたい) Delphi6でのコンパイルに成功 |
本家2.754のソースを元に、Delphi6(personal)環境で実験開始 |