RadStudio – 算譜とドリア

文字列をフォームファイル(DFM)形式に変換する[C++Builder]

「えーと●●●って選択肢のあるRadioGroupはどのフォームだったっけ」とか探したくなることがたまにある。
C++Builderでは(Delphiも)フォーム情報がテキスト形式(DFM)で保存されているので、ソースのあるフォルダでgrepかければ一発、のはずなのだが、英数・記号以外の文字は数値変換されているので、見つからないことがままある。

たとえば変な例だが「叱るButtonＡtype」みたいなCaptionはdfmファイルに
Caption = #21489#12427'Button'#65313'type'
と保存される。（”Ａ”も全角なので数値変換されている）

たぶん
・半角英数・記号はそのまま（シングルクオーテーション囲み）
・それ以外は文字コード番号の10進数表記（個々の先頭に”#”）
・さらにサロゲートペアは分割して変換（例の「叱(U+20B9F)」は「#21489#12427」）
というルールっぽい。

というわけで、変換関数を作った。
以下、コード。

String StringToDfmStyle( String OrgStr )
{
    if( OrgStr.IsEmpty() )
        return OrgStr;

    String RetStr; // 返値
    bool IsBeforeAlpha = false; // 英数・記号の前後にシングルクオーテーションを付けるためのフラグ

    while( !OrgStr.IsEmpty() )
    {
        // 半角の英数・記号の場合、そのまま出力
        if( OrgStr[1] <= L'~' )
        {
            if( !IsBeforeAlpha ) // 半角英数・記号の始まりにシングルクオーテーション
                RetStr += L"'";
            // １文字目をそのまま追加
            RetStr += OrgStr.SubString( 1,1 );
            // 文字列の先頭１文字を削除
            OrgStr = OrgStr.SubString( 2, OrgStr.Length() - 1 );
            IsBeforeAlpha = true; // フラグ
        }
        // その他の場合
        else
        {
            if( IsBeforeAlpha ) // 前の英数記号の末尾にシングルクオーテーション
                RetStr += L"'";

            // 記号(#)と文字コードの10進
            RetStr += String( L"#" ) + IntToStr( OrgStr[1] );
            // サロゲートペアの場合
            if( System::Character::IsSurrogate( OrgStr, 1 ) )
            {
                // サロゲートペア後半部も同様処理
                RetStr += String( L"#" ) + IntToStr( OrgStr[2] );
                // 文字の先頭２文字分を削除
                OrgStr = OrgStr.SubString( 3, OrgStr.Length() - 2 );
            }
            else
            {
                // 文字の先頭削除
                OrgStr = OrgStr.SubString( 2, OrgStr.Length() - 1 );
            }

            IsBeforeAlpha = false;
        }
    }

    if( IsBeforeAlpha ) // 末尾が半角英数・記号の場合、シングルクオーテーション付加
        RetStr += L"'";

    return RetStr;
}

String StringToDfmStyle( String OrgStr )

{

if( OrgStr.IsEmpty() )

return OrgStr;

String RetStr; // 返値

bool IsBeforeAlpha = false; // 英数・記号の前後にシングルクオーテーションを付けるためのフラグ

while( !OrgStr.IsEmpty() )

{

// 半角の英数・記号の場合、そのまま出力

if( OrgStr[1] <= L'~' )

{

if( !IsBeforeAlpha ) // 半角英数・記号の始まりにシングルクオーテーション

RetStr += L"'";

// １文字目をそのまま追加

RetStr += OrgStr.SubString( 1,1 );

// 文字列の先頭１文字を削除

OrgStr = OrgStr.SubString( 2, OrgStr.Length() - 1 );

IsBeforeAlpha = true; // フラグ

}

// その他の場合

else

{

if( IsBeforeAlpha ) // 前の英数記号の末尾にシングルクオーテーション

RetStr += L"'";

// 記号(#)と文字コードの10進

RetStr += String( L"#" ) + IntToStr( OrgStr[1] );

// サロゲートペアの場合

if( System::Character::IsSurrogate( OrgStr, 1 ) )

{

// サロゲートペア後半部も同様処理

RetStr += String( L"#" ) + IntToStr( OrgStr[2] );

// 文字の先頭２文字分を削除

OrgStr = OrgStr.SubString( 3, OrgStr.Length() - 2 );

}

else

{

// 文字の先頭削除

OrgStr = OrgStr.SubString( 2, OrgStr.Length() - 1 );

}

IsBeforeAlpha = false;

}

if( IsBeforeAlpha ) // 末尾が半角英数・記号の場合、シングルクオーテーション付加

RetStr += L"'";

return RetStr;

}

[boost]サイト上のシリアライズデータをダウンロードせずにデシリアライズする[C++Builder]

boost::serializatioでシリアライズしたデータがweb上(例えば自分のサイト)にあり、PC上のプログラムから利用したい場合、一時的にダウンロードしてデシリアライズすれば簡単なのだが、後で一時ファイルを削除する手間が生じる。

以下、ダウンロードしないまま利用する方法をメモ。

手順は以下の３ステップ。
(1)UrlからデータをTStreamに読み込む
(2)TStreamからバイト列(char配列)に書き込む
(3)バイト列からデシリアライズ(boost::iostreamsを使う)

#include <System.Net.HttpClient.hpp> // THTTPClient:
#include <memory>
#include <boost/archive/binary_iarchive.hpp>
#include <boost/iostreams/device/array.hpp>
#include <boost/iostreams/stream.hpp>
// シリアライズ対象のクラス
#include "test_serialize_class.h"

int _tmain(int argc, _TCHAR* argv[])
{
    // 指定urlからファイルをTStreamに読み込む
    // ------------------------------------------------
    // サイト上にあるシリアライズデータのurl
    String Url( L"https://www.xxxxxxxx.com/xxxxxxxx/xxxxxxx.dat" );

    std::unique_ptr<THTTPClient> HttpClient( THTTPClient::Create() );
    auto Response = HttpClient->Get( Url ); // _di_IHTTPResponse型

        // Response->StatusCodeで"404"等のStatusCodeが取れる(ここでは省略)

    // TStreamからchar配列に書き込み
    // ------------------------------------------------
    const auto size = Response->ContentStream->Size; // Response->ContentStreamでTStream*が取れる
    char* buffer = new char[size];
    Response->ContentStream->Read( buffer, size );

    // char配列からデシリアライズ
    // ------------------------------------------------
    boost::iostreams::basic_array_source<char> sr( buffer, size );
    boost::iostreams::stream<boost::iostreams::basic_array_source<char>> source( sr );
    boost::archive::binary_iarchive ia( source );
    delete [] buffer;   // 後始末

    // デシリアライズ対象のクラス
    test_serialize test_class;
    try{
        ia >> test_class; // デシリアライズ
    }catch(...){
        return 0; // 何かエラー処理
    }
    return 0;
}

#include <System.Net.HttpClient.hpp> // THTTPClient:

#include <memory>

#include <boost/archive/binary_iarchive.hpp>

#include <boost/iostreams/device/array.hpp>

#include <boost/iostreams/stream.hpp>

// シリアライズ対象のクラス

#include "test_serialize_class.h"

int _tmain(int argc, _TCHAR* argv[])

{

// 指定urlからファイルをTStreamに読み込む

// ------------------------------------------------

// サイト上にあるシリアライズデータのurl

String Url( L"https://www.xxxxxxxx.com/xxxxxxxx/xxxxxxx.dat" );

std::unique_ptr<THTTPClient> HttpClient( THTTPClient::Create() );

auto Response = HttpClient->Get( Url ); // _di_IHTTPResponse型

// Response->StatusCodeで"404"等のStatusCodeが取れる(ここでは省略)

// TStreamからchar配列に書き込み

// ------------------------------------------------

const auto size = Response->ContentStream->Size; // Response->ContentStreamでTStream*が取れる

char* buffer = new char[size];

Response->ContentStream->Read( buffer, size );

// char配列からデシリアライズ

// ------------------------------------------------

boost::iostreams::basic_array_source<char> sr( buffer, size );

boost::iostreams::stream<boost::iostreams::basic_array_source<char>> source( sr );

boost::archive::binary_iarchive ia( source );

delete [] buffer; // 後始末

// デシリアライズ対象のクラス

test_serialize test_class;

try{

ia >> test_class; // デシリアライズ

}catch(...){

return 0; // 何かエラー処理

}

return 0;

}

C++Builder10.2.3 (Boost1.55.0) / Windows10(22H2)で確認。

［Vcl］AcrobatDCを利用したPDF印刷が失敗する対策

Adobe Acrobatはクラウド版(Acrobat DC)になってから使っていなかったのだが、アプリケーションの印刷ダイアログで選択して使用すると、PDF作成に失敗するようになっていた。

以下は、四角形を１つ描くだけの単純なテストプログラム。

void __fastcall TForm1::Btn1Click(TObject *Sender)
{
    if( PrintDialog->Execute() )
    {
        TPrinter* printer = Printer();

        printer->BeginDoc();

        printer->Canvas->Rectangle( 100, 100, 500, 600 );

        printer->EndDoc();
    }
}

void __fastcall TForm1::Btn1Click(TObject *Sender)

{

if( PrintDialog->Execute() )

{

TPrinter* printer = Printer();

printer->BeginDoc();

printer->Canvas->Rectangle( 100, 100, 500, 600 );

printer->EndDoc();

}

PrintDialogでAdobe PDFを選択すると、下記のダイアログが出たまま止まる。

Microsoft Print to PDF および JUST PDF4 だと問題なくPDFが作成された。

Acrobat DCは最近のアップデートで、どうやら「文書名」が空のままだとダメになったらしい。
というわけで、以下のようにTitleを適当に付加すると正常にPDFが作成された。

void __fastcall TForm1::Btn1Click(TObject *Sender)
{
    if( PrintDialog->Execute() )
    {
        TPrinter* printer = Printer();

        printer->Title = L"Print";   // これを追加

        printer->BeginDoc();

        printer->Canvas->Rectangle( 100, 100, 500, 600 );

        printer->EndDoc();
    }
}

void __fastcall TForm1::Btn1Click(TObject *Sender)

{

if( PrintDialog->Execute() )

{

TPrinter* printer = Printer();

printer->Title = L"Print"; // これを追加

printer->BeginDoc();

printer->Canvas->Rectangle( 100, 100, 500, 600 );

printer->EndDoc();

}

C++Builder10.2.3/Windows10(64bit/バージョン21H2)で確認。

[FireMonkey] ImageとBitmapの大きさを揃える

簡単そうなことなのに、ちょっとハマったのでメモ。

FireMonkeyでTImageに文字や図形などを初めて描く場合は、先にImage->Bitmapのサイズを指定する必要がある。
ImageとBitmapのサイズが異なってもよいが（WrapModeで描画結果が変わる）、ここはシンプルに同じ大きさを指定したい場合の話。たとえば以下のように書けば何の問題もない。

Image->Bitmap->Width  = Image->Width;
Iamge->Bitmap->Height = Image->Height;

1 2	Image->Bitmap->Width = Image->Width; Iamge->Bitmap->Height = Image->Height;

だがちょっとまだるっこしいので１行で書きたい。こうも書ける。

Image->Bitmap->SetSize( Image->Width, Image->Height );

1	Image->Bitmap->SetSize( Image->Width, Image->Height );

Imageの名前（この例では”Image”だが）を３回も書くのも面白くない。TImageにもTBitmapにもSizeプロパティがある。これを使おうと、以下のように書いてみると、エラーになる。

Image->Bitmap->Size = Image->Size; //エラー

1	Image->Bitmap->Size = Image->Size; //エラー

TSizeとTSizeF

FireMonkeyの場合、TImageに限らず、TMemoやTButtonなどTControl派生のコンポーネントは、位置やサイズ情報を実数値（float）でも持つ。VclのTSizeでなくTSizeF、TPointでなくTPointF、そしてTRectの代わりにTRectF。
ところがTControl派生でないTBitmapの場合、Sizeプロパティは整数型のTSize。このため単純な代入は出来ない。
たとえば、四角形の領域を、指定されたビットマップから現在のビットマップへコピーするCopyFromBitmapメソッドの宣言。RectもPoint(X,Y)も整数になっている。

void __fastcall CopyFromBitmap(TBitmap* const Source, 
                const System::Types::TRect &SrcRect, 
                int DestX, int DestY)

void __fastcall CopyFromBitmap(TBitmap* const Source,

const System::Types::TRect &SrcRect,

int DestX, int DestY)

で、こうした実数型のクラスには整数型に変換するメンバ関数Round/Trunk/Ceilingが用意されている。それぞれ四捨五入、切り捨て、切り上げ。
　・
というわけで、以下のように書き換えてみる。

Image->Bitmap->Size = Image->Size.Round(); // エラー

1	Image->Bitmap->Size = Image->Size.Round(); // エラー

やはりエラー。

TSizeFとTControlSize

実はTControl派生クラスのSizeプロパティはTSizeFでなくTControlSizeだった。
このTControlSizeはPixel値(整数)のメンバHeight / Widthと、TSizeF型のメンバSizeを持つ。ややこしい。

というわけで、ImageのサイズにImage->Bitmapのサイズを合わせるシンプルなコードは以下の通り。

Image->Bitmap->SetSize( Image->Size->Size.Round() );

1	Image->Bitmap->SetSize( Image->Size->Size.Round() );

微妙にシンプルでもない気もする。