IwaoDev

CString::GetBuffer を使用して，ReleaseBuffer を忘れているバグがあった．
現象は，内容をコピーした別の CString で ReleaseBuffer した時にアサート．
—————————
Microsoft Visual C++ Debug Library
—————————
Debug Assertion Failed!
Program: …\…\TInet\Debug.060\TInet.exe
File: strcore.cpp
Line: 512
For information on how your program can cause an assertion
failure, see the Visual C++ documentation on asserts.
(Press Retry to debug the application)
—————————
中止(A) 再試行(R) 無視(I)
—————————

他にも，GetLength で 0 になる．

以下の様なコードで，COleDataSource::DoDragDrop の部分がすぐ抜ける．
　　CStringArray sa ;
　　::ListBoxToStringArray(m_DropList,&sa,TRUE) ;
　　{
　　　　CByteArray ba ;
　　　　::StringArrayToString2Z(sa,&ba) ;
　　　　int len = ba.GetSize() ;
　　　　HDROP hDrop = (HDROP)::GlobalAlloc(GHND,sizeof(DROPFILES) + len + sizeof(TCHAR)) ;
　　　　if (hDrop == NULL) { return ; }
　　　　LPDROPFILES lpdf = (LPDROPFILES)::GlobalLock(hDrop) ;
　　　　lpdf->pFiles= sizeof(DROPFILES) ;
　　　　lpdf->pt.x = 0 ;
　　　　lpdf->pt.y = 0 ;
　　　　lpdf->fNC = FALSE ;
　　　　lpdf->fWide = FALSE ;
　　　　#ifdef _UNICODE
　　　　lpdf->fWide = TRUE ;
　　　　#endif
　　　　LPCTSTR lpFileNames = LPCTSTR(LPCSTR(lpdf)+lpdf->pFiles) ;
　　　　memmove(LPVOID(lpFileNames),ba.GetData(),len) ;
　　　　::GlobalUnlock(hDrop) ;
　　　　{
　　　　　　COleDataSource* ods = new COleDataSource ;
　　　　　　ods->CacheGlobalData(CF_HDROP,hDrop) ;
　　　　　　ods->DoDragDrop() ;
　　　　　　delete ods ;
　　　　　　}
　　　　}

AfxOleInit() を呼出していなかった．

[VC50] Windows 95 標準コントロールのドラッグアンドドロップサンプル　
http://support.microsoft.com/kb/152092/ja

2014/08/11 追記
上のコードで，delete ods はうまくない．
データ オブジェクトとデータ ソース : 作成と破棄

CInternetFile::ReadString
VC 6 UNICODE.exe で，文字化けと，中身がうまく処理されない．MBCS.exe はOK．
文字化けは，CHAR から TCHAR への変換を正しく処理することにより対応．
それでも，まだ改行の位置で戻らず，終端も正しくない（デバッグ版ではゴミ ‘0xCD’ が入る）．
どうも，VC 6 や 7 では，うまく処理できないみたい．VC 8 では期待した動作と思われる．

　　CHttpConnection* pServer = pServer = session.GetHttpConnection (svrName) ;
　　CHttpFile* pFile = pServer->OpenRequest (CHttpConnection::HTTP_VERB_GET,name) ;
　　pFile-> SendRequest () ;
　　{
　　　　CString buf ;
　　　　while (pFile->ReadString(buf)) {
　　　　　　CString tmp = ::ToStringTC(LPCSTR(LPCTSTR(buf))) ;
　　　　　　rBuf.Add(tmp) ;
　　　　　　}
　　　　::StringArrayToString(rBuf,rData) ;
　　　　}

http://support.microsoft.com/kb/329071
Microsoft KB Archive/329071
　PRB: CInternetFile::ReadString Does Not Convert Non-Unicode Text to Unicode Text

2019/01/31　LPCSTR , LPCWSTR からの変換
CRT_MBWC.hxx
tstrmbwc.hxx

2022/09/09　バイナリで処理する様に変更．
CHttpFile Read

以前，KB2465367 などの影響を受けたが，その対応版 KB2538218 のコードの抜粋
typedef BOOL (WINAPI *PFNFINDACTCTXSECTIONSTRING)(DWORD, const GUID *, ULONG, LPCTSTR, PACTCTX_SECTION_KEYED_DATA);
static HINSTANCE _AfxLoadLangDLL(LPCTSTR pszFormat, LPCTSTR pszPath, LCID lcid)
{
　TCHAR szLangDLL[_MAX_PATH+14];
　TCHAR szLangCode[4];
　HINSTANCE hInstance = NULL;
　if (lcid == LOCALE_SYSTEM_DEFAULT) {
　　Checked::tcscpy_s(szLangCode, _countof(szLangCode), _T("LOC"));
　　}
　else {
　　int nResult;
　　nResult = ::GetLocaleInfo(lcid, LOCALE_SABBREVLANGNAME, szLangCode, 4);
　　if (nResult == 0)
　　　　return NULL;
　　ASSERT( nResult == 4 );
　　}
　int ret;
　ATL_CRT_ERRORCHECK_SPRINTF(ret = _sntprintf_s(szLangDLL,_countof(szLangDLL),_countof(szLangDLL)-1,pszFormat,pszPath,szLangCode));
　if(ret == -1 || ret >= _countof(szLangDLL)) {
　　ASSERT(FALSE);
　　return NULL;
　　}
　TCHAR *pszFilename = ::PathFindFileName(szLangDLL);
　ACTCTX_SECTION_KEYED_DATA data = {sizeof(data)};
　HMODULE hKernel = GetModuleHandle(_T("KERNEL32"));
　PFNFINDACTCTXSECTIONSTRING pfnFindActCtxSectionString = NULL;
　if (hKernel != NULL) {
　　#ifdef _UNICODE
　　　pfnFindActCtxSectionString = (PFNFINDACTCTXSECTIONSTRING)GetProcAddress(hKernel, "FindActCtxSectionStringW");
　　#else
　　　pfnFindActCtxSectionString = (PFNFINDACTCTXSECTIONSTRING)GetProcAddress(hKernel, "FindActCtxSectionStringA");
　　#endif
　　}
　if (pfnFindActCtxSectionString &&
　pfnFindActCtxSectionString(0, NULL, ACTIVATION_CONTEXT_SECTION_DLL_REDIRECTION, pszFilename, &data)) {
　　// Load using the dll name only…
　　hInstance = ::LoadLibraryEx(pszFilename, NULL, 0);
　　}
　else {
　　// Load using the full path…
　　hInstance = ::LoadLibraryEx(szLangDLL, NULL, 0);
　　}
　return hInstance;
　}

以前は通っていたデバッグ用 exe をビルドしたら，起動時にアプリケーションエラーになってしまった．

原因は，アプリケーションクラス内に確保された Profile ．
なぜ宣言されていたのかは今となっては不明．
ListApp.h 内をコメントにして OK ．

以下が初期化される前に Profile::GetInt が通ることによりエラーとなる．
_CriticalS_　Profile::CS ;

またこのタイミング（アプリケーションクラスのコンストラクタ）では，SetRegistoryKey が指定されていないので，Profile クラスを利用すること自体がうまくないと思われる．

IMPLEMENT_SERIAL (T_BaseDoc, CObject,0) の所で
C:\…\T_BDDoc.cpp(63) : error C2039: ‘CreateObject’ : ‘T_BaseDoc’ のﾒﾝﾊﾞではありません。
　　　　c:\…\t_bd_.hpp(28) : ‘T_BaseDoc’ の宣言を確認してください。
C:\…\T_BDDoc.cpp(63) : error C2509: ‘_GetBaseClass’ : このﾒﾝﾊﾞ関数は、’T_BaseDoc’ ｸﾗｽ内で宣言されていません。
C:\…\T_BDDoc.cpp(63) : error C2039: ‘classT_BaseDoc’ : ‘T_BaseDoc’ のﾒﾝﾊﾞではありません。
　　　　c:\…\t_bd_.hpp(28) : ‘T_BaseDoc’ の宣言を確認してください。
C:\…\T_BDDoc.cpp(63) : error C2039: ‘CreateObject’ : ‘T_BaseDoc’ のﾒﾝﾊﾞではありません。
　　　　c:\…\t_bd_.hpp(28) : ‘T_BaseDoc’ の宣言を確認してください。
C:\…\T_BDDoc.cpp(63) : error C2509: ‘GetRuntimeClass’ : このﾒﾝﾊﾞ関数は、’T_BaseDoc’ ｸﾗｽ内で宣言されていません。
C:\…\T_BDDoc.cpp(63) : error C2039: ‘classT_BaseDoc’ : ‘T_BaseDoc’ のﾒﾝﾊﾞではありません。
　　　　c:\…\t_bd_.hpp(28) : ‘T_BaseDoc’ の宣言を確認してください。
C:\…\T_BDDoc.cpp(63) : error C2039: ‘classT_BaseDoc’ : ‘T_BaseDoc’ のﾒﾝﾊﾞではありません。
　　　　c:\…\t_bd_.hpp(28) : ‘T_BaseDoc’ の宣言を確認してください。