動作確認

C++ Builder XE4

JSON文字列の扱いにて、Size()の処理が失敗する。

##症状

#include <DBXJSON.hpp>
#include <memory>

...
void __fastcall TForm1::Button1Click(TObject *Sender)
{

	// Case 1: OK
//	String jsonText = L"{\"name\":\"John Smith\",\"age\":\"33\"}";

	// Case 2: NG
	String jsonText = L"{\"name\":\"C:\\Windows\",\"age\":\"33\"}";

	std::unique_ptr<TStringList> slread(new TStringList);

	TJSONObject *jsonObj = new TJSONObject();
	String jsonKey, jsonValue;
	TJSONPair *pairObj;

	jsonObj = dynamic_cast<TJSONObject*>(TJSONObject::ParseJSONValue(jsonText));

	for(int pi=0; pi < jsonObj->Size(); pi++) { // pair index
		pairObj = jsonObj->Get(pi);
		jsonKey = pairObj->JsonString->Value();
		jsonValue = pairObj->JsonValue->Value();
		ShowMessage(jsonKey + ":" + jsonValue);
	}
	jsonObj->Free();
}

Case1ではOKでCase2では失敗する。

評価/変更ウィンドウでjsonObj->Size()を評価しようとすると以下のエラーが出る。

E2122 関数呼び出しが未処理例外 '0xc0000005'によってアドレス'0x91dd50'で終了した。

デバッガで停止しない場合は以下のエラーメッセージが表示される。

モジュール'DbxCommonDriver180.bpl'のアドレス 521FB4DCでアドレス 000000008に対する読り違反がおきました。

""の扱いがダメなのだろう。
置換で対応するかどうか。

try1 (成功)

String jsonText = L"{\"name\":\"C:\\Windows\",\"age\":\"33\"}";
を
String jsonText = L"{\"name\":\"C:\\\\Windows\",\"age\":\"33\"}";
にしたらエラーが出なくなった。

置換は

jsonText = StringReplace(jsonText, L"\\", L"\\\\", TReplaceFlags()<<rfReplaceAll);

JSONファイル保存時でなく、JSONファイル読込時に上記の置換をすることにより、うまく動作した。