c++ builder / Indy > IndyTextEncoding() > メモリリーク比較 > IndyTextEncoding( 932 ) / IndyTextEncoding( TEncoding::GetEncoding(932) )

動作確認

C++ Builder XE4

関連
http://qiita.com/7of9/items/db882fbaa4e610f7c910

m_encSJIS = IndyTextEncoding( TEncoding::GetEncoding(932) );とした時にはTEncoding::GetEncoding()のオブジェクトが開放されないことによるメモリリークが発生する、という情報について。

再現コード

Unit1.h

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

# ifndef Unit1H
# define Unit1H
//---------------------------------------------------------------------------
# include <System.Classes.hpp>
# include <Vcl.Controls.hpp>
# include <Vcl.StdCtrls.hpp>
# include <Vcl.Forms.hpp>
# include <IdBaseComponent.hpp>
# include <IdComponent.hpp>
# include <IdUDPBase.hpp>
# include <IdUDPClient.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE で管理されるコンポーネント
	TIdUDPClient *IdUDPClient1;
private:	// ユーザー宣言
	Idglobal::_di_IIdTextEncoding m_encSJIS;
public:		// ユーザー宣言
	__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
# endif

Unit1.cpp

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

# include <vcl.h>
# pragma hdrstop

# include "Unit1.h"
//---------------------------------------------------------------------------
# pragma package(smart_init)
# pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{

# if 0 // leak
	m_encSJIS = IndyTextEncoding( 932 );
# else
	m_encSJIS = IndyTextEncoding( TEncoding::GetEncoding(932) );
# endif
}
//---------------------------------------------------------------------------

FastMMを設定して#ifで切り替えた場合の比較をした。

結果

IndyTextEncoding( 932 )の時

IndyTextEncoding( TEncoding::GetEncoding(932) )の時

比較結果

IndyTextEncoding( TEncoding::GetEncoding(932) )の時は「TMBCSEncoding」関連のリークがあり、IndyTextEncoding( 932 )の時はない。

IndyTextEncoding( 932 )を使う方がいいようだ。

他のメモリリークについては要調査。

TIdCriticalSection 関連

TIdCriticalSectionレポートに関しては以下の情報がある。