IwaoDev

CListCtrl の列数の取得

　　int		colCount = 0 ;
　　//　C:\Program Files\Microsoft Visual Studio\VC98\MFC\SRC\WinCtrl6.cpp
　　//　CListCtrl::GetColumnOrderArray より
　　{
　　　　CHeaderCtrl*	pCtrl = ctrl->GetHeaderCtrl() ;
　　　　if (pCtrl != NULL)	{	colCount = pCtrl->GetItemCount() ;	}
　　　　}

CListCtrl::GetItemCount では行数

CStringArray の配列を使用する時の制限？

c:\program files\microsoft visual studio\vc98\mfc\include\afxtempl.h(86) : error C2582: ‘operator ” 関数は ” 内では使用できません。
c:\program files\microsoft visual studio\vc98\mfc\include\afxtempl.h(406) : ｺﾝﾊﾟｲﾙされたｸﾗｽのﾃﾝﾌﾟﾚｰﾄのｲﾝｽﾀﾝｽ化 ‘void __stdcall CopyElements(class CStringArray *,const class CStringArray *,int)’ の参照を確認してください
　　以下の様なコードでコメントにした Copy があると，エラーとなる．
　　{
　　　　CArray<CStringArray,CStringArray> saAry ;
　　　　CArray<CStringArray,CStringArray> saA ;
　　//　saAry.Copy(saA) ;
　　　　}

他にもいろいろとエラーになったが，うまく抜き出せなかった．
関数などの引数として与える時に，最初 const としていたためか？
const を外して，それなりにコードを書けば通るようになったみたい．
これらを利用して書いたコードは，ListBD_C.hxx

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;
　}