FFmpegの利用

何か、いい方法ないか・・・、そうだ！
以前Linuxにインストールした、「FFmpeg」を思い出しました。

３０年前の８ｍｍビデオを無料でＤＶＤディスクへ変換。

Windowsやスマホでも、標準でMP4ファイルが再生できるので、DVD-Videoの必要は少なってきています。 ただ、古いDVDデッキで再生しようと思うと、やはりDVD-Videoメディアが必要です。 Windowsソフトでも、フリーや体験版のソフトは沢山ありますが、 せっかく、linux環境があるので、フリーライセンスで作成してみました。

www.kazuban.com

2023.08.28

この記事で紹介している、「動画リストファイル」を作成すると、連結してくれます。
ところが、今回は動画ファイルが多いので、リストファイルを手作業で作るのは面倒です。
シェルでどうにかする方法も可能ですが、Linuxマシンへの転送も面倒なので、今回は、Windows環境で作業しようと思います。

FFmpegのWindowsへのインストール方法は、ネット上にたくさん公開されていますが、基本的には実行ファイルをダウンロード・展開して利用する方法です。
標準では一般的なインストーラではないので任意のフォルダへ保存するだけで動きますが、プログラムへのパスも通っていません。
実行にはフルパスで指示するか、環境変数でパスを通す必要があります。
操作は基本的に、CUIでの作業になります。
今回のやりたい作業は撮れてた動画はTVで見たいので、「AVI」を「MP4」に連結したいです。
動画連結は、頻繁にやると思うので、連結するファイルリストとFFmpeg用のコマンドを生成するだけの仕様ですが、ソフト作りました。

FFmpeg、ダウンロード

ダウンロードはこちらからできますが、下記２つの選択があります。
・Windows builds from gyan.dev
・Windows builds by BtbN
どっちが、いいんだろう？
こちらに説明がありましたので、参考にさせていただきましたが、
私は、「Windows builds from gyan.dev」の「release builds」「ffmpeg-release-full.7z」をダウンロードしました。
「.7z」で圧縮されていますが、筆者のWindows11の環境では、エクスプローラ上でクリックすると、圧縮されているフォルダが表示されるので、適当なフォルダへドラッグ＆ドロップでコピーしました。

連結支援アプリ、FFmpegVideoMerger.exe　開発

FFmpegを利用して動画の連結させるだけのWindowsアプリです。
もちろん、FFmpeg だけでもコマンドをたたけば、連結は可能ですが、環境整えたり、ファイルリストを作成するのも面倒だったので、ソフト化しました。
通常は、下記の操作が必要です。

• 環境変数を編集し、パスを通す
• 連結する、ファイルリストをテキストファイルで作成する
• FFmpeg のコマンドで、連結を実行する

書き出してみれば、大した作業ではないですが、ファイルリストを作るのも、結構面倒です
アプリの仕様としては、連結したい動画ファイルを任意ファルダへコピーしておいて、そのフォルダをアプリ上へドロップする事で、ファイルリストを作成します。
ファイルリストの順序も変更可能にしました。
FFmpeg のパスも、コピーした実行ファイル「FFmpeg.exe」が保存されているフォルダをドロップする事で、環境変数の設定なしでも、動作できるようにしました。

FFmpegVideoMerger.exe　使い方

ダウンロード、インストール

• こちらから、ダウンロード
• ダウンロードした圧縮ファイルを、適当なフォルダへ解凍
• 解凍されたフォルダ内の、「Readme.txt」を読んでいただけると幸いです。
• 連結したい動画類をコピーした、フォルダを準備します。
• 対応拡張子
  FFmpeg はかなりのファイル形式に対応しているみたいですが、このアプリでは下記の拡張子を動画ファイルと判断し、リストを作成します。
  ” TS, MP4, MOV, MKV, AVI, FLV “
  ただし、筆者の環境では、「AVI、MP4」の結合しか確認していませんので、ご了承ください。
• フォルダ内の、「FFmpegVideoMerger.exe」で起動できます。

使用方法

簡単に説明すると、

• 「動画フォルダをドロップ」
• 「FFmpegフォルダをドロップ」
• 「ビデオファイルボタンクリック」
• 「FFmpeg実行ボタンクリック」

の手順です。
下記で、もう少し詳しく説明します。

• 動画が登録された、フォルダを①のパネルへドロップします
• 登録されている動画ファイルの一覧が、②のエディタ領域へリスト化されます
• 一般的な、エディタ的な操作になります。
  追加、削除、順序変更などが可能です。
• ③は、結合された、ファイル名です。
  ファイル名は変更可能ですが、現バージョンでは、「MP4」を想定しています。
• ④に、「ffmpeg.exe」のファイルか、登録されている親フォルダ「bin」をドロップ
• ⑤私の環境では、無変換で、結合させた動画が、「メディアプレーヤー」でうまく動作しなかったので、「H.264」でエンコードするオプションを追加しました。
  デフォルトでは、チェック状態になっていますが、エンコードは少し時間がかかるので、不要な場合には、チェックを外してください。
• 設定が正常であれば、「Create a video list file.」のボタンが表示されます。
  クリックすると、動画ファイルフォルダに、ファイルリスト「list.txt」と、実行コマンドファイル「cmd.txt」が作成されます。
• FFmpeg は、最適化や品質など、多くのパラメータがあるので、「cmd.txt」を手動編集することも可能です。
• この「cmd.txt」を、手動で一行づつ確認しながら、コマンドプロンプトで実行する事も可能ですが、表示された「Run FFmpeg」をクリックすると、実行用バッチファイルを作成し、自動実行します。
• 多少の動画ファイルの削除、追加の場合、動画フォルダに追加・削除して、エディタ等で「list.txt」を編集し、「cmd.bat」に名前変更して実行すれば、再結合する事も可能です。

あとがき

ばあちゃん宅に来てたのは、タヌキでしたぁ～
他にも、猫やカラス、イタチみたいの・・・近所に墓地公園があるので、動物には暮らしやすいと思います。

FFmpegは、CUIが基本ですが、かなり多くの機能があります。
今回公開のアプリは、GUI操作でFFmpegの結合オプションをFFmpegに渡すだけの機能ですが、FFmpegのコマンド操作を少しづつ、GUI化で支援機能を追加していけば、簡易的な動画編集アプリに進化していく可能性はありますね。
動画編集は、あまりやらないので、まったく素人ですが、またなにか必要な操作がでてきたら、ソフト化してみたいと思います。

ダウンロード

下記、「自作ソフト」ページから、ダウンロードできます。

自作ソフト

サイト内記事で紹介した、自作ソフトやデータをダウンロードできます。

www.kazuban.com

2021.07.11

C++Builder Community Edition　のライセンス更新

会社では開発環境として、「C++Builder EX6」を使用しています私はソフトウェア開発が商売ではなく、加工が楽になるような、NCデータやNC機械や測定器などのユーティリティソフトを作成していますC++の統合開発環境としては、やはりMSのVisual C++ がメジャーだと思いますが私は、二昔以...

www.kazuban.com

2019.07.29

今年は、延長の方法が変わっているようです。
検索してみると、今までは新しいバージョンをインストールする事で、
再度一年間使用できたようですが、「10.4」より新しいバージョンが公開されていない現在
ダウンロード・インストールの方法では、延長できないみたいです。

サポートページ

「embarcadero」のサポートページに情報がありました。
このページをみると

使用されているCommunity Editionのライセンスの期限が切れた後に、新しいCommunity Editionのライセンスを取得していただくことで、継続してお使いいただくことができます。

とありますから、今までは１か月程度早い時期から更新していましたが、期限がきれるまで待つことにしました。

更新

ライセンス期限が切れた後に、C++Builderを起動すると、いきなりライセンス登録画面になりました

Enbarcadero Developer Network のアカウントは作っていないので、どうしたものか？と思いながら
「詳細」をクリックすると、やはりライセンスは期限切れ状態です。

とりあえず、キャンセルしてC++Builder Community Edition 無料ダウンロードのページへ
ここで、「トライアル版」と「Community Edition」は別物なので注意してください。
「トライアル版」は、あくまで「有料製品版」の試用です。
「Community Edition」は「無料」ですが、利用資格がありますので注意してください。

ダウンロードページでは必要事項を入力し「ダウンロード」すると、ほどなくＥメールが届きます。
Ｅメールには、Serial Number　が書かれているので、再度上記の製品登録画面の「Serial Number」に
入力します。
すると、気になっていた「Enbarcadero Developer Network」の入力項目は無効になり
「登録」ボタンが有効になりました。

登録完了

これで、後１年遊べます。
「C++Builder Community Edition」は、無料ながら、ランタイムを必要としないWindowsネイティブな「exe」実行ファイル作成できます。
場面まわりもの簡単にレイアウトできますし、C++言語でプログラムできます。

エディタ部分のフォントを変更する

C++Builder でフォントを変更するには、「FontDialog」コンポーネントを使用すれば、簡単に実現できます。
例としては、Form に、FontDialogコンポーネントとTMemoやTRichEditを配置して、Fontプロパティに「FontDialog」からのFontを代入するだけです。

if(FontDialog1->Execute()){
  Memo1->Font = FontDialog1->Font;
}

単純にフォントだけを変更する場合はこれでいいのですが、
私は「TRichEdit」で、カーソル位置の色を変更したりしているのが原因か？
そのカーソル行だけ、うまく変更してくれません。
たぶん、「RichEdit1->SelAttributes」などで、きちんと処理すればよさそうな気もしますがよくわからなかったので、一度エディタ部の内容を一時ファイルへ保存して、フォントを変更後、再度その一時ファイルから、エディタ部へ読み込むような邪道な処理をしています。

UnicodeString temp = "TempFileForFont.txt";
RichEdit1->Lines->SaveToFile(temp);
RichEdit1->Font = FontDialog1->Font;
RichEdit1->Lines->Clear();
RichEdit1->Lines->LoadFromFile(temp);
DeleteFile(temp);

なので、一時的に、実行ファイルと同じ場所に一時ファイルが作成されます。
また、再度ファイルの読み書き処理をするので、処理時間を懸念しましたが、私の環境ではそれほど気にならなかったので、こんな処理としました。

ＩＮＩファイルの作成

起動時に前回の状態を再現するには、その状態を記憶しておく必要があります。
市販のアプリケーションでは、システムレジストリへ記録しておく場合がよくありますが、このような小さなツールでレジストリを汚したくないので、ＩＮＩファイル仕様で行こうと思います。

ＩＮＩファイル名

INIファイルのファイル名は何がいいでしょう？
通常は実行プログラム名の拡張子を「INI」に変換した名前が一般的だと思います。

自分の実行プログラムの場所を知る

プログラムを実行する場合、そのEXEファイルをクリックして実行する場合や、必要なファイルをドロップしたり、コマンドラインからパラメータを追加して実行する場合などがあります。
その場合、パラメータは「ParamStr(int)」で取得できますが
自分自身の実行プログラムのパスは「ParamStr(0)」で知ることができます。
また「Application->ExeName」プロパティでも取得できます。

UnicodeString MyPath1 = ParamStr(0);
UnicodeString MyPath2 = Application->ExeName;

さらに、ファイルパスから、上層のディレクトリ名を知りたい場合には、
「ExtractFileDir(UnicodeString)」関数が使えます。

UnicodeString MyDir = ExtractFileDir(MyPath1);

INIファイル名を取得する

INIファイル名は、自分自身の実行ファイルパス名から、拡張子のみを変更した名前にする事にします。
結構面倒だな～と思っていたら、便利な関数がありました。
「ChangeFileExt(UnicodeString FileName, UnicodeString Extension)」です。
最初の引数に「ファイル名」、次に「拡張子」を与えます。
ここで注意！指示する「拡張子」には、「.」が必要です。

UnicodeString IniFilePath = ChangeFileExt(MyPath1,".INI");

INIファイルの読み・書き

最初は、WindowsSDK の「GetPrivateProfileString」と「WritePrivateProfileString」を利用してプログラムしていましたが
な～んだ、C++Builder にも「TIniFile」クラスが用意されていました。
INIファイルは、基本的には「セクション名」「識別キー」「値」の３要素で構成されます。
作成するソフトでは、起動時のWindowの「場所」「幅」「フォント属性」が記録されるようにします。

・

[WINDOW]
Top=120
Left=80
Width=1174
Height=752
[FONT]
Name=Tahoma
Size=10
Bold=0
Italic=0
UnderLine=0
StrikeOut=0

INIファイルを反映

C++では、起動時にはまずコンストラクタが呼ばれますから、コンストラクタで読み込んで反映させます。

アプリのwindow位置設定

アプリの表示位置は、Formの「Top」「Left」「Width」「Height」で設定できます。
説明サイトを参考に「ReadInteger」で識別キーの整数値が取得できます。
上の例では、

Top = ini->ReadInteger("WINDOW","Top",100);
Left = ini->ReadInteger("WINDOW","Left",100);

でアプリウィンドウの左上が決定できます。
幅、高さも同様です。

フォントの設定

フォントサイズやフォント名は、同様に「ReadInteger」「ReadString」で取得できます。
ちょっと変数形式が違うのが、「スタイル」や「文字飾り」です。
このプロパティには「集合型」が使われているようです。
「集合型」は、「<<」と「>>」演算子を使って、追加、削除します。
フォントのスタイルには、「太字」「斜体」「取り消し線」「下線」がありますが、それぞれ「fsBold」「fsItalic」「fsStrikeOut」「fsUnderline」で設定します。

FontDialog1->Font->Style = FontDialog1->Font->Style << fsBold;
FontDialog1->Font->Style = FontDialog1->Font->Style << fsItalic;
FontDialog1->Font->Style = FontDialog1->Font->Style >> fsStrikeOut;

状態を保存して終了

C++Builder では、フォームが閉じられる時に「FormDestroy」イベントが発生しますから、この場所に、INIファイルへの書き込み処理を定義します。

INIファイルへ書き出し

書き出しも、読込みと同様に、「TIniFile」クラスを利用します。

ini->WriteInteger("WINDOW","Top",Top);
ini->WritwInteger("WINDOW","Left",Left);

前回公開のNcCheck2Dxf.exe にVer3.41として入れ替えました。

上述のC++Builderの機能を使用して、前回終了時の状態を再現できるような処理を加えてみました。

こちらから、ダウンロードできます。

バージョン２での変更点

キャンパスサイズ変更

ウィンドウサイズを変更する事で、図形描画領域を変更できるようになりました。
エディタ領域も変更できます。

この機能の実現は、なかなかできませんでした。
イメージとしての拡大・縮小は簡単ですが、そうすると、図形が変形されてしまいます。
図形としての、拡大縮小の方法が見つかりませんでしたが
やっと見つけた、こちらサイトの記事が参考になりました。
インターネット様様ですねぇ～
詳細は後ほど覚書として、書き残しておきます。

拡大・縮小

マウスの「MouseWheel」イベントを利用して実現しました。
ただし、描画レスポンスが悪いため、データ量が多いとホイール操作への追従が即座に反映されません。
下段の「SetScale」横で、拡大率を入力したほうが速く描画できます。
「MouseWheel」イベントはC++Builderで は大元の「Form」しか、このイベントがありません。
図形を描くキャンパス上でのみマウスホイールに対応したい場合には、マウスの位置がキャンパス上がどうかの監視が必要になります。
この方法も、後ほど書いておこうと思います。

移動

「移動」は、マウスクリック位置をキャンパス中心に移動するような操作になります。
通常のCADのような、マウス右でのドラッグのような操作は実現できませんでした。

真円

始点・終点が同一の円弧補間指令の真円指令に対応しました。

ダウンロード

Vector へは、現在登録申請中です。
登録完了しましたら、お知らせします。
登録されました、こちらからもダウンロードできます

• こちらからダウンロードできます(Ver2.6)
• 始めて実行する時には、セキュリティのメッセージが出ると思います。
• 「詳細情報」から「実行」をクリックしてください。

C++BuilderでＧコード図形化の方法

NCファイル読み込みの高速化

このソフトの全体の流れとしては、
・ドロップされた、NCファイルを読み込み
・一ブロックごとに、座標やGコードを分析し
・図形データへ変換
・Image Canvasで描画
の流れで、処理しています。
そんな事もあり、NCファイルは一度「TStringList」へ登録し、その「TStringList」から、一行ずつ、「TRichEdit」へ追加後
さらに「TStringList」から、一行ずつ、NCデータ分析処理を行っていました。

TStringList *list = new TStringList;
reditNcFile->Lines->Clear();
list->LoadFromFile(FilePath);
for(int i=0; i < list->Count; i++){
  reditNcFile->Lines->Add(list->Strings[i]);
}

「TRichEdit」への読み込みは、こんな感じです。
「TStringList」は便利なので、結構よく使います。
ところが、大きめのファイルを読み込んでみると、結構時間がかかります。
読込み後のNCデータの分析ルーチンは、私が書いたコードなので、ここが遅いのは私のレベルの問題でしょうがないとしても、「TRichEdit」への読み込み時点で結構時間がかかっていました。
いろいろ検索しても、前回の公開時には見つからず、このまま公開しましたが、なんの事はない、「TRichEdit」から直接ファイルを読み込めば、瞬時に読み込みは完了し、「TRichEdit」の「Lines」を「TStrings *」で参照するほうがはるかに高速なのに気が付きました。

reditNcFile->Lines->Clear();
reditNcFile->Lines->LoadFromFile(FilePath) ;　//直接読込む
TStrings *list;
list = reditNcFile->Lines;

さらに、NCデータファイルから一行ずつ文字列として取り出す場合
TStringList の、Strings[i]　で取り出していましたが、
Ｃ言語標準の、FILE * でfopen し、fgets で取り出したほうがデータによっては高速でした

私の環境では、1MBのデータで、前バージョンでは
読込み：56秒 + 図形分析：76秒 = 132秒でしたが
今回のバージョンでは、
読込みは瞬時に終了し分析完了まで、約77秒ぐらいでした。
さらに、データの最後をクリックして、全体表示させてみると
前バージョンでは、5分以上でしたが、今回バージョンでは、２秒程度でした。
図形表示に関しては、前回はNCの一ブロックずつ描画処理していましたが
今回からは、処理した図形データを保存しておいて、一気に描画するような仕様に変更したのでクリック描画はかなり高速になりました。
分析処理ももう少し速くしたいのですが、この部分の改善には最初からの見直が必要で、継ぎ足し継ぎ足しでかなり肥大化してしまっているので、今更難しいかなぁと思っているところです。

エディタや図形領域のリサイズ

「Form」に「Memo」や「Image」を配置する際、まず土台として「TPanel」コンポーネントでレイアウトし、その上にImageコンポーネントを配置するようにします。
土台の「TPanel」は、「Align」プロパティで、「alTop」「alLeft」「alClient」などに設定しておくと、ウィンドウのリサイズ時に追従していきます。

C++Builderに図形を描かせる

C++Builder には、TCanvasオブジェクトが用意されているので、これを使用すれば簡単に図形を描く事ができます。
TCanvasは、TFormやTImage などのプロパティとして用意されているので、まずは対象のオブジェクトを配置して、そこに描く事になります。
例えば、上でPanelを２個配置しましたが、TPanelにはCanvasプロパティはないので、その上にTImage を配置して、そこに図形を描いてみます。
Panel2の上に、Image1を配置して、「Align」プロパティを「alClient」に設定します。
その後、Form1のFormCreateイベントに、線を描く指令を追加すると起動した時に図形が描画されます。

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Image1->Canvas->MoveTo(100,100);
  Image1->Canvas->LineTo(200,200);
  Image1->Canvas->AngleArc(200,200,60,10,300);
  Image1->Canvas->LineTo(300,300);
}

こんな感じで、簡単に図形を描くことができます。
ただし、Canvas の座標系は一般的な数学の座標系と方向が違いますので
ＮＣデータの図形化のような、数学座標系で図形を描きたい場合には、数学座標をCanvas座標系への変換が必要になります。

Canvas 座標系

数学座標系

一般的にＮＣ機械のＸＹ平面の
座標系は数学座標系と同じなので
（最近では稀ですが違う機械も存在します）
ＮＣデータを描画させる時には、NC座標からCanvas座標への変換が必要になります。
これ単純にY軸の符号を変換だけでなく、原点をキャンパスのどこへもっていくかなど、ちょっと面倒です。

図形のリサイズ

図形を描いた、ウィンドウをリサイズしてみます。

あれぇ～
Panelはリサイズに追従しているのに、Image1上の図形は追従しません。
「Align」プロパティも「alClient」に設定しているのに何でだろう？
ここで結構悩みました。
実は、TImage のStretchプロパティをtrue に設定すれば追従するようになります。

ところが、画像としての追従なので、形状が歪になったり、線の太さが変わってしまったり、図形としては成り立たなくなります。
じゃぁどうすればいいのか？
やっと見つけたのが、こちらのブログでした。
「Delphi言語」の記事だったので、なかなか検索できなかったのでしょう。
言語の構文は違いますが、クラス名やプロパティはC++Builder も大差ないので参考にさせていただきました。

TBitmap *ImageA = new TBitmap;
ImageA->Width = Panel2->Width;
ImageA->Height = Panel2->Height;
Image1->Picture->Bitmap = ImageA;
delete ImageA;

こんな感じで、Image1 の土台であるPanel2 の現状サイズを取得して
新規に生成した、ImageAのサイズを合わせ
そのImageAを、Image1->Picture->Bitmap へ代入する事で実現できました。

マウスホイールの利用

マウスホイールで拡大・縮小をさせたいと思います。
マウスホイールは、TForm のMouseWheelイベントでは処理できますが
図形キャンパスの、TImageにはこのイベントがありません。
したがって、図形キャンパス内での、マウスホイール動作を処理したい場合には
マウスがTImage内かどうかの判定をする必要があります。
コントロール内でマウスを移動させたか？は
TImageの、onMouseMoveイベントで処理できます。
コントロール外へ移動したか？は
onMouseLeaveイベントで処理できます。
これを利用して、グローバル変数でマウス位置の状態を記録しておいて
コントロール内でのマウスホイール操作の場合のみ、拡大・縮小処理を行いました。

C++Builderのサンプルソース添付

以上の機能を盛り込んだ、サンプルソースファイルを添付します
数学座標系指令をキャンパス座標系へ変換し、リサイズやマウスでの拡大・縮小ができます。

C++Builder のサンプルソースファイルは、左よりダウンロードできます

C++Builder は最高！

プログラミングに興味がある方で、とりあえず簡単にビジュアル的なプログラムを作成してみたいと思っている人にとっては、最適なツールだと思います。
少し複雑な処理をさせようと思うと、C++の知識は必要になってきますが、
ちょっとした計算をさせたい場合は、エクセルマクロ的な操作で実行ファイル「EXE」を作成できます。
ＤＬＬのいらない、ネイティブな実行ファイルが作成できるので、エクセルを立ち上げないと動作しないエクセルマクロよりも簡単に利用できます。
こんな素晴らしいツールが個人使用なら無料で使用できますから、プログラムに興味あるかたは是非体験してみてください。

EMBACADERO サポートサイト

発売元のサポートサイトに情報がありました。
C++Builderがサポートしていない機能は、 Performメソッド を使って、Windowsクラスへのメッセージを利用して実現させるようです。

関数プロトタイプ

上記のメッセージを参考に、関数を作成しました。

 //-----------------------------------------------------------------
 // Memo
 // http://support.embarcadero.com/jp/article/35940
 //---------------------------------------------------------------
 // Memoの行数を返す
 int kMemoLineCount(TCustomMemo *memo);

 // Memoのカーソル行番号を返す
 int kMemoCurrentRowNumber(TCustomMemo *memo);

 // Memoの先頭にカーソルを移動する
 void kMemoMoveTop(TCustomMemo *memo);

 // Memoの指定行番号にカーソルを移動する、省略＝トップ
 void kMemoMoveRowNumber(TCustomMemo *memo,int row=1);

 // Memoのカーソル行を指定行だけ下に移動する、省略＝１行
 void kMemoMoveDown(TCustomMemo *memo,int number=1);

 // Memoのカーソル行を指定行だけ上に移動する、省略＝１行
 void kMemoMoveUp(TCustomMemo *memo,int number=1);

 // Memoの指定行を選択する、省略＝トップ
 void kMemoSelectRowNumber(TCustomMemo *memo,int row=1);

 // Memoの指定行の文字数、省略＝カレント行
 int kMemoGetCharCount(TCustomMemo *memo,int row=0);

 // Memoのカーソル行の指定位置から指定文字数を選択する、省略＝すべて
 void kMemoSelectCurrentRow(TCustomMemo *memo,int start=0,int length=0);

 // Memoの1行下が見えるようにスクロールします。
 void kMemoScrollLineDown(TCustomMemo *memo);

 // Memoの1行下が見えるようにスクロールします。
 void kMemoScrollLineDown(TCustomMemo *memo);

 // Memoの1行上が見えるようにスクロールします
 void kMemoScrollLineUp(TCustomMemo *memo);

 // Memoの1ページ下が見えるようにスクロールします。
 void kMemoScrollPageDown(TCustomMemo *memo);

 // Memoの1ページ上が見えるようにスクロールします。
 void kMemoScrollPageUp(TCustomMemo *memo)
;
 // Memoの左右上下にスクロールさせます。
 void kMemoScrollRowCol(TCustomMemo *memo,int col,int row);

 // Memoのカーソルより次へ文字列を検索します。
 void kMemoSearchNext(TCustomMemo *memo,UnicodeString Key,bool select=true);

 // Memoのカーソルより前方向に文字列を検索します。
 void kMemoSearchPrevious(TCustomMemo *memo,UnicodeString Key,bool select=true);

 // Memoの実際に目にみえている最初の行の行番号を返します（最初の行は0）
 int kMemoGetPageTopRow(TCustomMemo *memo);

 // RichEditの指定行の色を変更する
 TColor kRichEditChangeColor(TRichEdit *richedit,TColor color,int row=1);

関数の実装

 //--------------------------------------------------------------
 //-------- Memo ------------------------
 //-------------------------------------------------------------
 // TMemo の行数
 int kMemoLineCount(TCustomMemo *memo)
 {
     int count = memo->Lines->Count;
     return count;
 }

 // TMemo の現在のカーソル行位置（最初は１）
 int kMemoCurrentRowNumber(TCustomMemo *memo)
 {
     int row = memo->Perform(EM_LINEFROMCHAR,-1,0)+1;
     return row;
 }

 // Memoの先頭にカーソルを移動する
 void kMemoMoveTop(TCustomMemo *memo)
 {
     memo->SelStart = memo->Perform(EM_LINEINDEX,0,0);
 }

 // Memoの指定行番号にカーソルを移動する、省略＝トップ
 void kMemoMoveRowNumber(TCustomMemo *memo,int row)
 {
     memo->SelStart = memo->Perform(EM_LINEINDEX,row-1,0);
     memo->SetFocus();
 }

 // Memoのカーソル行を指定行だけ下に移動する、省略＝１行
 void kMemoMoveDown(TCustomMemo *memo,int number)
 {
     int current = kMemoCurrentRowNumber(memo);
     kMemoMoveRowNumber(memo,current+number);
 }

 // Memoのカーソル行を指定行だけ上に移動する、省略＝１行
 void kMemoMoveUp(TCustomMemo *memo,int number)
 {
     int current = kMemoCurrentRowNumber(memo);
     kMemoMoveRowNumber(memo,current-number);
 }

 // Memoの指定行を選択する、省略＝トップ
 void kMemoSelectRowNumber(TCustomMemo *memo,int row)
 {
     int count = memo->Lines->Count;
     if(count<1) return;    
     UnicodeString str = memo->Lines->Strings[row-1];
     int len = str.Length();
     kMemoMoveRowNumber(memo,row);
     memo->SelLength = len;
 }

 // Memoの指定行の文字数、省略＝カレント行
 int kMemoGetCharCount(TCustomMemo *memo,int row)
 {
     int rength = 0;
     if(row == 0){
         row = kMemoCurrentRowNumber(memo);
     }
     if(row>0){
         rength = memo->Lines->Strings[row-1].Length();
     }
     return rength;
 }

 // Memoのカーソル行の指定位置から指定文字数を選択する、省略＝すべて
 void kMemoSelectCurrentRow(TCustomMemo *memo,int start,int length)
 {
     if(start==0 && length==0){
         kMemoSelectRowNumber(memo);
         return;
     }
     int row = kMemoCurrentRowNumber(memo);
     int len = kMemoGetCharCount(memo,row);
     kMemoMoveRowNumber(memo,row);
     if((start+length)>len){
         length = len-start+1;
     }
     memo->SelStart += (start-1);
     memo->SelLength = length;
 }

 // Memoの1行下が見えるようにスクロールします。
 void kMemoScrollLineDown(TCustomMemo *memo)
 {
     memo->Perform(EM_SCROLL, SB_LINEDOWN, 0);
 }

 // Memoの1行上が見えるようにスクロールします
 void kMemoScrollLineUp(TCustomMemo *memo)
 {
     memo->Perform(EM_SCROLL, SB_LINEUP, 0);
 }

 // Memoの1ページ下が見えるようにスクロールします。
 void kMemoScrollPageDown(TCustomMemo *memo)
 {
     memo->Perform(EM_SCROLL, SB_PAGEDOWN, 0);
 }

 // Memoの1ページ上が見えるようにスクロールします。
 void kMemoScrollPageUp(TCustomMemo *memo)
 {
     memo->Perform(EM_SCROLL, SB_PAGEUP, 0);
 }

 // Memoの上下左右にスクロールさせます。
 void kMemoScrollRowCol(TCustomMemo *memo,int row,int col)
 {
     memo->Perform(EM_LINESCROLL, row, col);
 }

 // Memoの実際に目にみえている最初の行の行番号を返します（最初の行は1）
 int kMemoGetPageTopRow(TCustomMemo *memo)
 {
     int row = memo->Perform(EM_GETFIRSTVISIBLELINE, 0, 0);
     return row+1;
 }

 // Memoのカーソルより次へ文字列を検索します。
 void kMemoSearchNext(TCustomMemo *memo,UnicodeString Key,bool select)
 {
     int count = memo->Lines->Count;
     int current = kMemoCurrentRowNumber(memo);
     UnicodeString str;
     int pos;
     int len = Key.Length();
     for(int i= current;iLines->Strings[i];
         pos = str.Pos(Key);
         if(pos){
             kMemoMoveRowNumber(memo,i+1);
             if(select){
                 kMemoSelectCurrentRow(memo,pos,len);
             }
             break;
         }
     }
 }

 // Memoのカーソルより手前に文字列を検索します。
 void kMemoSearchPrevious(TCustomMemo *memo,UnicodeString Key,bool select)
 {
     int count = memo->Lines->Count;
     int current = kMemoCurrentRowNumber(memo)-1;
     UnicodeString str;
     int pos;
     int len = Key.Length();
     for(int i= current;i>=0;i--){
         str = memo->Lines->Strings[i-1];
         pos = str.Pos(Key);
         if(pos){
             kMemoMoveRowNumber(memo,i);
             if(select){
                 kMemoSelectCurrentRow(memo,pos,len);
             }
             break;
         }
     }
 }

 // RichEditの指定行の色を変更する
 TColor kRichEditChangeColor(TRichEdit *redit,TColor color,int row)
 {
     TColor cl = redit->SelAttributes->Color;
     kMemoSelectRowNumber(redit,row);
     redit->SelAttributes->Color = color;
     redit->SelLength = 0;
   return cl;
 }

完成

とりあえず、作ってみましたが、簡単にしか検証していません。
もし、使用する場合には、ご注意ください。

C++Builder Community Edition　は、個人使用の場合には無料で使用できます

会社で使用している、 「C++Builder EX6」 はもちろん有料版ですが、自宅で使用する場合には、個人使用の場合、無料で使用できる、C++Builder Community Editionを使用させてもらっています
ライセンス的には、会社の 「C++Builder EX6」 を自宅PCにインストールして会社と自宅で使用する事もできるみたいですが、 自宅では趣味としてCommunity Edition を使っています

ソースコード的には互換性あり

Community Edition は最新盤ですが、私が書く程度のコードであれば、 C++Builder EX6と双方向でほとんど問題なくどちらでもコンパイルできるはずです。
基本的に自宅では、暇つぶし的にフリーソフトを作ったり、ネット上のコードを打ち込んで勉強したりする程度で、切り分けて使っています。

一年間のライセンス

ただし、 Community Edition は、１年間のみのライセンスです。
今回は、年間のライセンスが切れてしまうので、更新してみました

更新の方法は？

更新方法はネット上で検索してもなかなか見つかりませんでしたが、embarcaderoのFAQページ　の一番下にありました
どうも、更新と言うスタイルではなくて、最新バージョンをダウンロード・インストールするようです

Community Edition をダウンロード

始めての場合でも、更新の場合でも、まずは、ダウンロードが必要です
こちらから、名前やメールアドレスなど必要事項を記入してダウンロードできますが、その前に、こちらで利用資格を確認してください。
必要事項を入力し、「今すぐダウンロード」をクリックすると、入力したアドレスにメールが自動送信されます

メール確認

メールには、「インストール番号」や「ログイン名」などの情報が書かれているのでなくさないようにしてください
このメールの中でよく分からなかったのが、

添付ファイル (nullnull) で Embarcadero 製品が起動できます。

の所です。
私のメール環境では、ファイルは添付されていませんでしたが、その下のほうに、

この e-mail にファイルが添付されていない場合には，この e-mail をテキ
ストファイルとしてホームディレクトリに (nullnull) という名前で保存してください。

とあります。
なんだかよくわかりませんでしたが、とりあえず言われるままに、このEメールをテキストに貼り付けて、「C:\Users\＜ユーザー名＞」の下に「 nullnull 」と言うファイル名にして保存しました。
その後、

ソフトウェアのダウンロードがまだ完了していない、あるいは再度ダウンロードする必要がある場合は、以下のリンクをクリックしてください:

の、リンクから、ダウンロードしたファイルを実行しました。
前回は、この「nullnull」ファイルを保存する場所かタイミングが悪かったのか、ライセンスが中々うまく反映されませんでしたが
今回はすんなり、インストールは終了しました

インストール完了

これで、あと１年は遊べます。
ただし、前のバージョンもまだ生きていますね。
ライセンスが切れたら、削除しようと思います