C++Builder – 算譜とドリア

文字列をフォームファイル(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］

C++Builderで、表示した画像をじわじわ消していくのはFireMonkeyならほぼコードいらずで可能だが、VCLだと自前で処理する必要がある。いろんな方法を試してみたので暫定まとめ。使いどころはよく分からないが。

0.事前準備

TFormにTImageを置く。
ちらつき防止のためFormのDoubleBufferedプロパティをtrueにしておく。

1.ランダムにPixel操作(力業)

画像がぽつぽつと白くなっていく効果。
画像のPixel分の数値配列をシャッフルして、順番に白くしていくだけのシンプルな力業だが、実際にやってみると一手間かけないと自然な効果が出ない。

基本形

まず基本形。
手順は単純で
　①画素数分の数値配列を作ってシャッフル
　②シャッフルした数値のPixelをループで白くする
だけ。

    // ①画像のピクセル数分のランダムな数値配列を作る
    //---------------------------------------------------
    const auto width  = Image->Picture->Width;
    const auto height = Image->Picture->Height;
    std::vector<int> rv( width * height );
    std::iota( rv.begin(), rv.end(), 0 );
    std::mt19937 engine( time(0) ); // "time(0)"はclang用:
    std::shuffle( rv.begin(), rv.end(), engine );

    // ②ひとつずつ白くしていく
    //---------------------------------------------------
    int x = 0, y = 0;
    for( const auto& num : rv )
    {
        x = num / height;
        y = num % height;
        Image->Canvas->Pixels[x][y] = clWhite;
        Image->Update();
    }

// ①画像のピクセル数分のランダムな数値配列を作る

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

const auto width = Image->Picture->Width;

const auto height = Image->Picture->Height;

std::vector<int> rv( width * height );

std::iota( rv.begin(), rv.end(), 0 );

std::mt19937 engine( time(0) ); // "time(0)"はclang用:

std::shuffle( rv.begin(), rv.end(), engine );

// ②ひとつずつ白くしていく

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

int x = 0, y = 0;

for( const auto& num : rv )

{

x = num / height;

y = num % height;

Image->Canvas->Pixels[x][y] = clWhite;

Image->Update();

}

多めに変化

上記のコードだと、PCの性能や画像サイズにもよるがかなり遅い。複数のPixelを白くするよう改良してみる。

    // ②B 複数まとめて白くしていく
    //---------------------------------------------------
    const int val = 50;
    for( int i = 0; i < rv.size(); i += val )
    {
        for( int n = i; n < i + val && n < rv.size(); ++n )
        {
            int x_num = rv[n] / height;
            int y_num = rv[n] % height;
            Image->Canvas->Pixels[x_num][y_num] = clWhite;
        }
        Image->Update();
    }

// ②B 複数まとめて白くしていく

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

const int val = 50;

for( int i = 0; i < rv.size(); i += val )

{

for( int n = i; n < i + val && n < rv.size(); ++n )

{

int x_num = rv[n] / height;

int y_num = rv[n] % height;

Image->Canvas->Pixels[x_num][y_num] = clWhite;

}

Image->Update();

}

実際にやると目の錯覚(たぶん)でだんだん遅くなっているように感じる。

変化量を増やしていく

白くするPixel数がどんどん増えるように改良。

    // ②C 変化量を増やしていく
    //---------------------------------------------------
    int x = 0, y = 0;
    int count = 1; // 変化量
    for( int i = 0; i < rv.size(); i += count )
    {
        for( int n = i; n <= i + count && n < rv.size(); ++n )
        {
            x = rv[n] / height;
            y = rv[n] % height;
            Image->Canvas->Pixels[x][y] = clWhite;
        }
        Image->Update();
        ++count;
    }

// ②C 変化量を増やしていく

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

int x = 0, y = 0;

int count = 1; // 変化量

for( int i = 0; i < rv.size(); i += count )

{

for( int n = i; n <= i + count && n < rv.size(); ++n )

{

x = rv[n] / height;

y = rv[n] % height;

Image->Canvas->Pixels[x][y] = clWhite;

}

Image->Update();

++count;

}

だいぶ自然な感じになった。

Bitmap以外の場合

ここまで使ったImage->CanvasはBitmap以外はアクセスできない。
他の画像形式はBitmapに代入して行うのが安直だけど手軽。

    if( Image->Picture->Graphic->ClassName() != L"TBitmap" )
    {
        std::shared_ptr<TBitmap> bmp( new TBitmap );
        bmp->Assign( Image->Picture->Graphic );
        Image->Picture->Assign( bmp.get() );
    }

if( Image->Picture->Graphic->ClassName() != L"TBitmap" )

{

std::shared_ptr<TBitmap> bmp( new TBitmap );

bmp->Assign( Image->Picture->Graphic );

Image->Picture->Assign( bmp.get() );

}

まとめコード

以上のまとめコード。

#include <vector>
#include <random>
#include <algorithm> // shuffle;
#include <numeric>   // iota:
#include <memory>
#include <time.h>

void __fastcall TForm1::BtnSampleClick(TObject *Sender)
{
    // Imageに画像が無い場合は終了
    if( !Image->Picture )
        return;

    // 画像がBitmap以外ならBitmapにする
    //---------------------------------------------------
    if( Image->Picture->Graphic->ClassName() != L"TBitmap" )
    {
        std::shared_ptr<TBitmap> bmp( new TBitmap );
        bmp->Assign( Image->Picture->Graphic );
        Image->Picture->Assign( bmp.get() );
    }

    // 画像のピクセル数分のランダムな数値配列を作る
    //---------------------------------------------------
    const auto width  = Image->Picture->Width;
    const auto height = Image->Picture->Height;
    std::vector<int> rv( width * height );
    std::iota( rv.begin(), rv.end(), 0 );
    std::mt19937 engine( time(0) ); // "time(0)"はclang用:
    std::shuffle( rv.begin(), rv.end(), engine );

    // 変化量を増やしつつピクセル操作
    //---------------------------------------------------
    int x = 0, y = 0;
    int count = 1; // 変化量
    for( int i = 0; i < rv.size(); i += count )
    {
        for( int n = i; n <= i + count && n < rv.size(); ++n )
        {
            x = rv[n] / height;
            y = rv[n] % height;
            Image->Canvas->Pixels[x][y] = clWhite;
        }
        Image->Update();
        ++count;
    }
}

#include <vector>

#include <random>

#include <algorithm> // shuffle;

#include <numeric> // iota:

#include <memory>

#include <time.h>

void __fastcall TForm1::BtnSampleClick(TObject *Sender)

{

// Imageに画像が無い場合は終了

if( !Image->Picture )

return;

// 画像がBitmap以外ならBitmapにする

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

if( Image->Picture->Graphic->ClassName() != L"TBitmap" )

{

std::shared_ptr<TBitmap> bmp( new TBitmap );

bmp->Assign( Image->Picture->Graphic );

Image->Picture->Assign( bmp.get() );

}

// 画像のピクセル数分のランダムな数値配列を作る

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

const auto width = Image->Picture->Width;

const auto height = Image->Picture->Height;

std::vector<int> rv( width * height );

std::iota( rv.begin(), rv.end(), 0 );

std::mt19937 engine( time(0) ); // "time(0)"はclang用:

std::shuffle( rv.begin(), rv.end(), engine );

// 変化量を増やしつつピクセル操作

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

int x = 0, y = 0;

int count = 1; // 変化量

for( int i = 0; i < rv.size(); i += count )

{

for( int n = i; n <= i + count && n < rv.size(); ++n )

{

x = rv[n] / height;

y = rv[n] % height;

Image->Canvas->Pixels[x][y] = clWhite;

}

Image->Update();

++count;

}

2.色を薄くしていく

画像が段々薄くなるパターン。
RGBをいじるだけ。ScanLineを使えるので、ランダムなピクセル操作よりは高速。

    std::shared_ptr<TBitmap> bmp( new TBitmap );
    bmp->Assign( Image->Picture->Graphic );
    int counter = 0;
    while( counter++ < 255 )
    {
        for( int y = 0; y < bmp->Height; ++y )
        {
            TRGBTriple* ptr = reinterpret_cast<TRGBTriple*>( bmp->ScanLine[y] );
            for( int x = 0; x < bmp->Width; ++x )
            {
                int r = ptr[x].rgbtRed;
                int g = ptr[x].rgbtGreen;
                int b = ptr[x].rgbtBlue;
                if( r < 255 )
                    r++;
                if( g < 255 )
                    g++;
                if( b < 255 )
                    b++;
                ptr[x].rgbtBlue = b;
                ptr[x].rgbtGreen = g;
                ptr[x].rgbtRed = r;
            }
        }
        Image->Canvas->Draw( 0, 0, bmp.get() );
        Image->Update();
    }

std::shared_ptr<TBitmap> bmp( new TBitmap );

bmp->Assign( Image->Picture->Graphic );

int counter = 0;

while( counter++ < 255 )

{

for( int y = 0; y < bmp->Height; ++y )

{

TRGBTriple* ptr = reinterpret_cast<TRGBTriple*>( bmp->ScanLine[y] );

for( int x = 0; x < bmp->Width; ++x )

{

int r = ptr[x].rgbtRed;

int g = ptr[x].rgbtGreen;

int b = ptr[x].rgbtBlue;

if( r < 255 )

r++;

if( g < 255 )

g++;

if( b < 255 )

b++;

ptr[x].rgbtBlue = b;

ptr[x].rgbtGreen = g;

ptr[x].rgbtRed = r;

}

Image->Canvas->Draw( 0, 0, bmp.get() );

Image->Update();

}

かなりスムースになる。

3.アルファチャンネルを使う

TBitmapのアルファチャンネルを設定し、だんだん薄くしていく手もある。
(画像タイプみて変換する処理は省略。TPNGImageだと別の方法があるらしい)

    // 32bitビットマップにする
    //---------------------------------------------------
    if( Image->Picture->Bitmap->PixelFormat != pf32bit )
    {
        Image->Picture->Bitmap->PixelFormat = pf32bit;
    }
    // アルファ値を減らしながら指定する
    //---------------------------------------------------
    TBitmap* bmp = Image->Picture->Bitmap;
    for( int a_val = 255; a_val >= 0; a_val-- )
    {
        for( int y = 0; y < bmp->Height; ++y )
        {
            auto ptr = reinterpret_cast<RGBQUAD*>( bmp->ScanLine[y] );
            for( int x = 0; x < bmp->Width; ++x )
            {
                ptr[x].rgbReserved = a_val;
            }
        }
        bmp->AlphaFormat = afDefined;
        Image->Update();
        bmp->AlphaFormat = afIgnored;
    }
    bmp->AlphaFormat = afDefined;

// 32bitビットマップにする

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

if( Image->Picture->Bitmap->PixelFormat != pf32bit )

{

Image->Picture->Bitmap->PixelFormat = pf32bit;

}

// アルファ値を減らしながら指定する

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

TBitmap* bmp = Image->Picture->Bitmap;

for( int a_val = 255; a_val >= 0; a_val-- )

{

for( int y = 0; y < bmp->Height; ++y )

{

auto ptr = reinterpret_cast<RGBQUAD*>( bmp->ScanLine[y] );

for( int x = 0; x < bmp->Width; ++x )

{

ptr[x].rgbReserved = a_val;

}

bmp->AlphaFormat = afDefined;

Image->Update();

bmp->AlphaFormat = afIgnored;

}

bmp->AlphaFormat = afDefined;

実行結果。

4.Drawメソッドの第４引数を使う(お手軽)

Canvas->Drawメソッドで、第４引数の不透明度(Opacity)を指定する方法。
これはかなり手軽。TImageの画像がどんな形式でも、変換する必要はない。

    // 転送用のビットマップ
    std::shared_ptr<TBitmap> bmp( new TBitmap );
    bmp->Assign( Image->Picture->Graphic );
    Image->Picture = nullptr;

    // 透過度を増やしながらTImageに画像コピー
    for( int opc = 255; opc >= 0; --opc )
    {
        Image->Canvas->Draw( 0, 0, bmp.get(), opc );
        Image->Update();
        Image->Picture = nullptr;
    }

// 転送用のビットマップ

std::shared_ptr<TBitmap> bmp( new TBitmap );

bmp->Assign( Image->Picture->Graphic );

Image->Picture = nullptr;

// 透過度を増やしながらTImageに画像コピー

for( int opc = 255; opc >= 0; --opc )

{

Image->Canvas->Draw( 0, 0, bmp.get(), opc );

Image->Update();

Image->Picture = nullptr;

}

C++Builder10.2.3 / Windows10(21H2)で確認。

TImageに表示されている画像の種類を知る［VCL］

C++Builder(Delphi)のTImageにはJpegやPng、ビットマップなど多様な画像が読み込めるが、あとから画像種類を知りたい場合
　Image->Picture->Graphic->ClassName()
で画像のVCLクラス名が取れる。今さら知ったのでメモ。

void __fastcall TForm1::BtnTestClick(TObject *Sender)
{
    // TBitmap / TJPEGImage / TPngImage / TGIFImage / TIcon / TMetafile / TWICImage (tiff?)
    
    const String Name = Image->Picture->Graphic->ClassName();
    if( Name == L"TBitmap" )
        ShowMessage( L"ビットマップ" );
    else if( Name == L"TJPEGImage" )
        ShowMessage( L"JPEG画像" );
    else if( Name == L"TPngImage" )
        ShowMessage( L"PNG画像" );
    else if( Name == L"TGIFImage" )
        ShowMessage( L"GIF画像" );
    else if( Name == L"TIcon" )
        ShowMessage( L"アイコン" );
    else if( Name == L"TMetafile" )
        ShowMessage( L"メタファイル" );
    else if( Name == L"TWICImage" )
        ShowMessage( L"その他の画像(tiff)" );
}

void __fastcall TForm1::BtnTestClick(TObject *Sender)

{

// TBitmap / TJPEGImage / TPngImage / TGIFImage / TIcon / TMetafile / TWICImage (tiff?)

const String Name = Image->Picture->Graphic->ClassName();

if( Name == L"TBitmap" )

ShowMessage( L"ビットマップ" );

else if( Name == L"TJPEGImage" )

ShowMessage( L"JPEG画像" );

else if( Name == L"TPngImage" )

ShowMessage( L"PNG画像" );

else if( Name == L"TGIFImage" )

ShowMessage( L"GIF画像" );

else if( Name == L"TIcon" )

ShowMessage( L"アイコン" );

else if( Name == L"TMetafile" )

ShowMessage( L"メタファイル" );

else if( Name == L"TWICImage" )

ShowMessage( L"その他の画像(tiff)" );

}

C++Builder10.2.3 / Windows10(21H2)で確認。

TStringListからvector / TStringDynArrayからvector[C++Builder]

C++Builder(およびDelphi)でよく使われるTStringListとかDynamicArrayを、std::vectorに変換したい場合がよくある。
この場合、いちいちループを回さなくても、STLライクなイテレータ操作が使える、ということを今さら公式ヘルプで知ったのでメモ。

TStringListからvector

TStringListからstd::vectorは以下のように一発で変換可能。

TStringList* SList = new TStringList;
//・・・(いろいろ追加)・・・・・・
std::vector strings( begin(SList), end(SList) );

TStringList* SList = new TStringList;

//・・・(いろいろ追加)・・・・・・

std::vector strings( begin(SList), end(SList) );

既存のvectorにはassignで代入。

std::vector v = { L"A", L"B" };
v.assign( begin(SList), end(SList) );

1 2	std::vector v = { L"A", L"B" }; v.assign( begin(SList), end(SList) );

スマートポインタでも問題ない。

std::shared_ptr<TStringList> SList( new TStringList );
std::vector v( begin(SList.get()), end(SList.get()) );

1 2	std::shared_ptr<TStringList> SList( new TStringList ); std::vector v( begin(SList.get()), end(SList.get()) );

文字列リストの基底クラスであるTStringsも同様。
おなじみのフォント一覧を取得するケース。

TStrings* Fonts = Screen->Fonts;
std::vector fontnames( begin(Fonts), end(Fonts) );

1 2	TStrings* Fonts = Screen->Fonts; std::vector fontnames( begin(Fonts), end(Fonts) );

ソートされた結果を最初から得たい場合は、std::setをいきなり初期化してもいい。

std::set s_set( begin(SList), end(SList) );

1	std::set s_set( begin(SList), end(SList) );

DynamicArrayからvector

Delphi動的配列型のDynamicArrayも似たような代入が可能。

DynamicArray i_darray;
i_darray.set_length( 3 );
i_darray[0] = 0;
i_darray[1] = 1;
i_darray[2] = 3;
std::vector v( i_darray.begin(), i_darray.end() );

DynamicArray i_darray;

i_darray.set_length( 3 );

i_darray[0] = 0;

i_darray[1] = 1;

i_darray[2] = 3;

std::vector v( i_darray.begin(), i_darray.end() );

IOUtilsのTDirectory::GetFilesはディレクトリ内の全ファイルを一発で取れる便利な関数だが、この返値TStringDynArrayはDynamicArray<String>のtypedefなので、同様にvector等に変換できる。

TStringDynArray Files = TDirectory::GetFiles( DirName );
std::vector files( Files.begin(), Files.end() );

1 2	TStringDynArray Files = TDirectory::GetFiles( DirName ); std::vector files( Files.begin(), Files.end() );

以上、C++Builder10.2.3 / Windows10(21H2)で確認。

［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)で確認。

[C++Builder]画像ファイルをテキストで保存、読込

C++Builderのフォーム情報(*.dfm)ではアイコン等の画像を16進文字列で保存しているようで、似たようなことをやってみる。(使いどころはパッとは思い浮かばないが)。

とりあえずVclの例。

サンプルプログラム

TFormにTButtonとTImageを２つずつと、TOpenPictureDialogを設置。TImageは２つともProportionalプロパティをtrueにしておく。

画像を16進文字列で保存

手順は以下の通り
①画像ファイルをTMemoryStreamに読み込む
②サイズの同じunsigned char配列を用意し、MemoryStreamからデータを書き込む
③１バイトずつ16進文字列に変換
④文字列をファイル保存

なお、C++Builderは、デフォルトではcharがsignedなので、明示的にunsigned charを指定している。

#include <memory>   // shared_ptr
#include <sstream>   // stringstream
#include <iomanip>   // "setw":

#include <IOUtils.hpp>   // TPath
#include <jpeg.hpp>
#include <pngimage.hpp>
#include <gifimg.hpp>

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    if( OpenPictureDialog->Execute() )
    {
        // 表示テスト用、Image1に画像を読込・表示
        Image1->Picture->LoadFromFile( OpenPictureDialog->FileName );

        // ①MemoryStreamにファイルから画像を読み込む
        std::shared_ptr<TMemoryStream> ms( new TMemoryStream );
        ms->LoadFromFile( OpenPictureDialog->FileName );

            /* ImageからMemotyStreamに書き込んでも可
            Image1->Picture->SaveToStream( ms.get() );
            ms->Position = 0; // MemotyStreamの読み書き位置オフセットを先頭に
            */


        // ②unsigned char 配列にMemoryStreamの内容を書き込む
        const long long size = (long long)( ms->Size );
        unsigned char* buffer = new unsigned char[size+1];
        ms->Read( buffer, size );

        // ③配列要素の値を16進文字列に変換
        std::stringstream ss;
        ss << std::setfill('0') << std::hex; // 0~Fまでは先頭0埋め、16進
        for( long long i = 0; i < size; ++i )
        {
            ss << std::setw( 2 ); // 二桁にセット
            ss << static_cast<int>( buffer[i] );
        }
        delete [] buffer;

        // ④文字列をファイルに書き込む
        String HexStr = ss.str().c_str();
        TFile::WriteAllText( L"test.txt", HexStr );
    }
}

#include <memory> // shared_ptr

#include <sstream> // stringstream

#include <iomanip> // "setw":

#include <IOUtils.hpp> // TPath

#include <jpeg.hpp>

#include <pngimage.hpp>

#include <gifimg.hpp>

void __fastcall TForm1::Button1Click(TObject *Sender)

{

if( OpenPictureDialog->Execute() )

{

// 表示テスト用、Image1に画像を読込・表示

Image1->Picture->LoadFromFile( OpenPictureDialog->FileName );

// ①MemoryStreamにファイルから画像を読み込む

std::shared_ptr<TMemoryStream> ms( new TMemoryStream );

ms->LoadFromFile( OpenPictureDialog->FileName );

/* ImageからMemotyStreamに書き込んでも可

Image1->Picture->SaveToStream( ms.get() );

ms->Position = 0; // MemotyStreamの読み書き位置オフセットを先頭に

// ②unsigned char 配列にMemoryStreamの内容を書き込む

const long long size = (long long)( ms->Size );

unsigned char* buffer = new unsigned char[size+1];

ms->Read( buffer, size );

// ③配列要素の値を16進文字列に変換

std::stringstream ss;

ss << std::setfill('0') << std::hex; // 0~Fまでは先頭0埋め、16進

for( long long i = 0; i < size; ++i )

{

ss << std::setw( 2 ); // 二桁にセット

ss << static_cast<int>( buffer[i] );

}

delete [] buffer;

// ④文字列をファイルに書き込む

String HexStr = ss.str().c_str();

TFile::WriteAllText( L"test.txt", HexStr );

}

C:\Windows\Web\Wallpaper\Theme2\img7.jpgを読み込んだ結果:

保存されたテキストデータをエディタで見てみる。

テキストファイルから画像を読込、表示

復元手順は以下の通り。
①文字列のテキストファイルを読み込む
②２文字ずつ数値変換しunsigned char配列に格納
③MemoryStreamにデータを書き込む
④TImageにMemoryStreamから読み込む

void __fastcall TForm1::Button2Click(TObject *Sender)
{
    // ①ファイルから文字列を読み込む
    String AllText = TFile::ReadAllText( L"test.txt" );

    // ②必要な長さのunsigned char配列を確保
    AnsiString AText = AllText; // std::stringに格納するためAnsiStringに変換
    std::string all_text = AText.c_str();
    const long long count = static_cast<long long>( all_text.length() / 2 );
    unsigned char* buffer = new unsigned char[count+1];

    // ③文字列から２文字ずつ数値に変換し、unsigned char配列に格納
    for( long long i = 0; i < all_text.length(); i += 2 )
    {
        std::string tmp = all_text.substr( i, 2 );
        buffer[i/2] = stoi( tmp, nullptr, 16 );
    }
    buffer[count] = '\0';

    // ④unsigned char 配列の値をMemotyStreamに書き込む
    std::shared_ptr<TMemoryStream> ms( new TMemoryStream );
    ms->WriteBuffer( buffer, count );
    ms->Position = 0;
    // Image2に画像データを読込・表示
    Image2->Picture->LoadFromStream( ms.get() );

    delete [] buffer;
}

void __fastcall TForm1::Button2Click(TObject *Sender)

{

// ①ファイルから文字列を読み込む

String AllText = TFile::ReadAllText( L"test.txt" );

// ②必要な長さのunsigned char配列を確保

AnsiString AText = AllText; // std::stringに格納するためAnsiStringに変換

std::string all_text = AText.c_str();

const long long count = static_cast<long long>( all_text.length() / 2 );

unsigned char* buffer = new unsigned char[count+1];

// ③文字列から２文字ずつ数値に変換し、unsigned char配列に格納

for( long long i = 0; i < all_text.length(); i += 2 )

{

std::string tmp = all_text.substr( i, 2 );

buffer[i/2] = stoi( tmp, nullptr, 16 );

}

buffer[count] = '\0';

// ④unsigned char 配列の値をMemotyStreamに書き込む

std::shared_ptr<TMemoryStream> ms( new TMemoryStream );

ms->WriteBuffer( buffer, count );

ms->Position = 0;

// Image2に画像データを読込・表示

Image2->Picture->LoadFromStream( ms.get() );

delete [] buffer;

}

復元して右側のImageに表示した結果：

FireMonkeyの場合

FireMonkeyでも、ほぼ同様なコードで可能。
違いは
・OpenPictureDialogがないので代わりにOpenDialogを使う
・Image関連のコードの修正(Pictureの代わりにBitmapを使う)
・jpeg/png/gif用のインクルード不要
だけ。
Image関連の違いは以下の通り。

/** Image1に画像画像を読込・表示 **/
// VCL:
Image1->Picture->LoadFromFile( OpenPictureDilalog->FileName );
// FireMonkey:
Image1->Bitmap->LoadFromFile( OpenDialog->FileName );

/** Image1からMemotyStreamに書き込む **/
// VCL:
Image1->Picture->SaveToStream( ms.get() );
// FireMonkey:
Image1->Bitmap->SaveToStream( ms.get() );

/** Image2にMemoryStreamから画像を読込・表示 **/
// VCL:
Image2->Picture->LoadFromStream( ms.get() );
// FireMonkey:
Image2->Bitmap->LoadFromStream( ms.get() );

/** Image1に画像画像を読込・表示 **/

// VCL:

Image1->Picture->LoadFromFile( OpenPictureDilalog->FileName );

// FireMonkey:

Image1->Bitmap->LoadFromFile( OpenDialog->FileName );

/** Image1からMemotyStreamに書き込む **/

// VCL:

Image1->Picture->SaveToStream( ms.get() );

// FireMonkey:

Image1->Bitmap->SaveToStream( ms.get() );

/** Image2にMemoryStreamから画像を読込・表示 **/

// VCL:

Image2->Picture->LoadFromStream( ms.get() );

// FireMonkey:

Image2->Bitmap->LoadFromStream( ms.get() );

対象ファイル

TImageに読込・表示できる画像ならおおおむね可能な模様。JPEGのほかPNG/BMP/GIF/TIF、さらにアイコンファイル(ico)でＯＫだった。メタファイル(emf)はVclでないと読み込めない模様。

ただし、C:\Windows\Web\Wallpaper\Theme1配下にあるWindows10壁紙用のjpeg画像は、VCLの場合だけ失敗した。テキストとして保存はできても、復元でTImageに読み込む時点で「サポートされていないストリーム形式」のエラーが出て、復元不能だった。理由は謎。

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

[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() );

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

AndoroidのToastをC++Builderから呼び出す

ラムダ式を使う。

#ifdef __ANDROID__
#include <Androidapi.Helpers.hpp>
#include <Androidapi.JNI.Widget.hpp>
#include <FMX.Helpers.Android.hpp>
#endif

void __fastcall TForm1::Button1Click(TObject* Sender)
{
	#ifdef __ANDROID__
		Fmx::Helpers::Android::CallInUIThread
			(
				[]()
				{
					TJToast::JavaClass->makeText( TAndroidHelper::Context,
												  StrToJCharSequence( "TForm1.Button1Click" ),
												  TJToast::JavaClass->LENGTH_LONG )->show(); // LENGTH_SHORTで短く
				}
			);
	#endif
}

#ifdef __ANDROID__

#include <Androidapi.Helpers.hpp>

#include <Androidapi.JNI.Widget.hpp>

#include <FMX.Helpers.Android.hpp>

#endif

void __fastcall TForm1::Button1Click(TObject* Sender)

{

#ifdef __ANDROID__

Fmx::Helpers::Android::CallInUIThread

(

[]()

{

TJToast::JavaClass->makeText( TAndroidHelper::Context,

StrToJCharSequence( "TForm1.Button1Click" ),

TJToast::JavaClass->LENGTH_LONG )->show(); // LENGTH_SHORTで短く

}

);

#endif

}

FireMonkeyでPCのフォント一覧を取得する（手抜き版）

Vclでは、システムのフォント一覧は以下のように簡単に取れた。

ComboBox1->Items->Assign( Screen->Fonts );

1	ComboBox1->Items->Assign( Screen->Fonts );

Firemonkeyでは、同様の手段は提供されてない模様。
が、PCに限れば、プリンタから取得するという手段があるようだ。

#include <Fmx.Printer.hpp>

ComboBox1->Items->Assign( Printer::Printer()->Fonts );

#include <Fmx.Printer.hpp>

ComboBox1->Items->Assign( Printer::Printer()->Fonts );

MacOSでも同様に可能という情報もあるが（海外の掲示板）私は未確認。

なお、FireMonkeyでもシステムのデフォルトフォントを取得する手段は提供されている。

String DefaultFontName;
if( TPlatformServices::Current->SupportsPlatformService( __uuidof( IFMXSystemFontService ) ) )
{
	_di_IFMXSystemFontService Service
		= TPlatformServices::Current->GetPlatformService( __uuidof( IFMXSystemFontService ) );
	DefaultFontName = Service->GetDefaultFontFamilyName();
}

String DefaultFontName;

if( TPlatformServices::Current->SupportsPlatformService( __uuidof( IFMXSystemFontService ) ) )

{

_di_IFMXSystemFontService Service

= TPlatformServices::Current->GetPlatformService( __uuidof( IFMXSystemFontService ) );

DefaultFontName = Service->GetDefaultFontFamilyName();

}

Windowsの場合、Vclと同様、フォント一覧に縦書き用（先頭に＠）も取得してしまう。
縦書き用を排除したフォント一覧をFormのComboBoxに設定し、さらにデフォルトフォントを選択した状態にするのは以下のような感じだろうか。

#include <Fmx.Printer.hpp>
#include <memory>

__fastcall TFormMain::TFormMain(TComponent* Owner)
	: TForm(Owner)
{
	// デフォルトのフォントを取得
	String DefaultFontName;
	if( TPlatformServices::Current->SupportsPlatformService( __uuidof( IFMXSystemFontService ) ) )
	{
		_di_IFMXSystemFontService Service
			= TPlatformServices::Current->GetPlatformService( __uuidof( IFMXSystemFontService ) );
		DefaultFontName = Service->GetDefaultFontFamilyName();
	}
	// プリンタからフォント一覧を取得
	std::shared_ptr<TStringList> FontList( new TStringList );
	FontList->Assign( Printer::Printer()->Fonts );
	// "@"付きを削除
	for( int i = 0; i < FontList->Count; ++i )
	{
		if( FontList->Strings[i].Pos( L"@" ) == 1 )
		{
			FontList->Delete( i-- );
		}
	}
	// ComboBoxにセット
	ComboBoxFont->Items->Assign( FontList.get() );

	// デフォルトのフォントを選択状態にする
	if( !DefaultFontName.IsEmpty() )
		ComboBoxFont->ItemIndex = ComboBoxFont->Items->IndexOf( DefaultFontName );
	else if( ComboBoxFont->Items->Count )
		ComboBoxFont->ItemIndex = 0;
}

#include <Fmx.Printer.hpp>

#include <memory>

__fastcall TFormMain::TFormMain(TComponent* Owner)

: TForm(Owner)

{

// デフォルトのフォントを取得

String DefaultFontName;

if( TPlatformServices::Current->SupportsPlatformService( __uuidof( IFMXSystemFontService ) ) )

{

_di_IFMXSystemFontService Service

= TPlatformServices::Current->GetPlatformService( __uuidof( IFMXSystemFontService ) );

DefaultFontName = Service->GetDefaultFontFamilyName();

}

// プリンタからフォント一覧を取得

std::shared_ptr<TStringList> FontList( new TStringList );

FontList->Assign( Printer::Printer()->Fonts );

// "@"付きを削除

for( int i = 0; i < FontList->Count; ++i )

{

if( FontList->Strings[i].Pos( L"@" ) == 1 )

{

FontList->Delete( i-- );

}

// ComboBoxにセット

ComboBoxFont->Items->Assign( FontList.get() );

// デフォルトのフォントを選択状態にする

if( !DefaultFontName.IsEmpty() )

ComboBoxFont->ItemIndex = ComboBoxFont->Items->IndexOf( DefaultFontName );

else if( ComboBoxFont->Items->Count )

ComboBoxFont->ItemIndex = 0;

}

C++Builder10.2.3 / Windows10(64bit)で確認。