Iwao Dev

気付いたことをメモしています．

この画面は、簡易表示です

MFC

MAPI の MapiFileDesc の配列

投稿日 2018年4月6日 00:12 by Iwao Comment

MFC を使用している方法では，

    LateDelete	ld ;    //  MultiByte の必要があるようなので，UNICODE の時のバッファをここに登録
    //	添付ファイルの準備
    CArray<:MapiFileDesc,MapiFileDesc>	fileDescA ;
    int	fileCount = 0 ;
    int	index = 0 ;
    for (index=0 ; index<PathNames.GetSize() ; index++) {
        CString	    pathName = PathNames[index] ;
        if (::FileIsNothing  (pathName))	{	continue ;	}
        if (::FileIsDirectory(pathName))	{	continue ;	}
        MapiFileDesc	fileDesc ;
        memset(&fileDesc,0,sizeof(MapiFileDesc)) ;
        fileDesc.nPosition		= (ULONG)-1 ;
    #ifdef	_UNICODE
        fileDesc.lpszPathName	= SendMail__ChangeMultiByte(PathNames[index],&ld) ;
        fileDesc.lpszFileName	= SendMail__ChangeMultiByte(FileNames[index],&ld) ;
    #else
        fileDesc.lpszPathName	= LPSTR(LPCTSTR(PathNames[index])) ;
        fileDesc.lpszFileName	= LPSTR(LPCTSTR(FileNames[index])) ;
    #endif
        fileDescA.Add(fileDesc) ;
        fileCount++ ;
        }
MFC を使用しないコードは，

    std::vector<MapiFileDesc>	fileDescA ;
    std::vector<std::string>	pathNameA ;
    std::vector<std::string>	fileNameA ;
    int	index = 0 ;
    {
        for (index=0 ; index<PathNames.GetSize() ; index++) {
            {
                tstring	pathName = PathNames[index] ;
                if (::File_IsNothing  (pathName))	{	continue ;	}
                if (::File_IsDirectory(pathName))	{	continue ;	}
                }
            std::string	pathName= ::To__string(PathNames[index]) ;
            std::string	fileName= ::To__string(FileNames[index]) ;
            pathNameA.push_back(pathName) ;
            fileNameA.push_back(fileName) ;
            }
        {
            for (size_t index=0 ; index<pathNameA.size()&&index<fileNameA.size() ; index++) {
                MapiFileDesc	fileDesc ;
                memset(&fileDesc,0,sizeof(MapiFileDesc)) ;
                fileDesc.nPosition	= (ULONG)-1 ;
                fileDesc.lpszPathName	= &(pathNameA[index])[0] ;
                fileDesc.lpszFileName	= &(fileNameA[index])[0] ;
                fileDescA.push_back(fileDesc) ;
                }
            }
        }
詳しくは見てないが，幾つかの方法が書かれていたので
Sending Email with MAPI

MapiRecipDesc.lpszAddress の “smtp:”
以前コードを直したのが 2002/4 であまり情報がなかった様に思う．
個人的に書いた内容が「Outlook で配信不能になる」
参考になりそうな所
Email mit Dateien perWinAPI versenden??
MAPISendMail
MSDN MapiRecipDesc structure
Sending email using MAPI causes error on ‘ResolveName’ function in Window7

S_Mail.hxx



　　にほんブログ村 IT技術ブログへ


VC 6 LNK2001 __beginthreadex

投稿日 2018年4月3日 14:32 by Iwao Comment

空のコンソール AP プロジェクトで，Afx.h を追加でインクルードしてビルドすると，

--------------------構成: MkBG_up - Win32 Debug--------------------
ﾘﾝｸ中...
nafxcwd.lib(thrdcore.obj) : error LNK2001: 外部ｼﾝﾎﾞﾙ "__endthreadex" は未解決です
nafxcwd.lib(thrdcore.obj) : error LNK2001: 外部ｼﾝﾎﾞﾙ "__beginthreadex" は未解決です
c:\Temp\Test_3D\MkBG_up\Debug.060/MkBG_up.exe : fatal error LNK1120: 外部参照 2 が未解決です。
link.exe の実行ｴﾗｰ
MkBG_up.exe - ｴﾗｰ 3、警告 0

プロジェクトの設定で「共有 DLL で MFC を使用」などに変更．

2018/06/29 追記
エラーが出た直後の場合は，リビルドが必要．



　　にほんブログ村 IT技術ブログへ


CObArray <--> CObList

投稿日 2017年10月31日 23:00 by Iwao Comment

CObList の形式のデータを配列として処理したかったので，その相互変換（Sort_ind.hxx 内）．

#ifdef		_MFC_VER
//*******************************************************************************
//	ObList	->	ObArray
//	Create	:	2017/10/30
//*******************************************************************************
inline	bool	To_ObArray	(const CObList& src,CObArray* dstAry)
{
	if (dstAry == NULL)		{	return	false ;		}
	dstAry->RemoveAll() ;
	{
		POSITION pos = src.GetHeadPosition();
		while (pos != NULL)	{
			CObject*	pObj = src.GetNext(pos);
			dstAry->Add(pObj) ;
			}
		}
	return	true ;
	}

//*******************************************************************************
//	ObArray	->	ObList
//	Create	:	2017/10/30
//*******************************************************************************
inline	bool	To_ObList	(const CObArray& src,CObList* dstLst)
{
	if (dstLst == NULL)		{	return	false ;		}
	dstLst->RemoveAll() ;
	{
		for (INT_PTR index=0 ; index<src.GetSize() ; index++) {
			CObject*	pObj = src[index] ;
			dstLst->AddTail(pObj) ;
			}
		}
	return	true ;
	}

#endif	//	_MFC_VER


　　にほんブログ村 IT技術ブログへ


CHttpFile を利用したアップロード

投稿日 2017年9月4日 09:57 by Iwao Comment

CHttpFile を利用したアップロードのコードを整理．
サーバ側は先日の php と同様．


//*******************************************************************************
//	send request define
//	Create	:	2017/08/28
//*******************************************************************************
#define	C_CRLF			_T("\r\n") ;
#define	CT_ct_mp_fd_b_		_T("Content-Type: multipart/form-data; boundary=")
#define	CT_boundary__		_T("--")
#define	CD_cd_f_d_n_		_T("Content-Disposition: form-data; name=")
#define	CD_cd__fn_		_T("; filename=") ;
#define	CT_ct_a_o_s		_T("Content-Type: application/octet-stream")

//*******************************************************************************
//	make send data
//	Create	:	2017/08/28
//*******************************************************************************
inline	v_char	Make_send_data	(LPCTSTR upFile,LPCTSTR ___boundary)
{
	v_char	up_Data = v_c_LoadText(upFile) ;
	v_char	sndData ;
	{
		tstring	ct_boundary	= ___boundary ;
		tstring	file_img	= ::QuotM_Add(_T("file_img")) ;
		tstring	fileName	= ::QuotM_Add(::Path_GetName(upFile)) ;
		tstring	dataPre ;
		tstring	dataPst ;
		dataPre+=	CT_boundary__	+	ct_boundary				+	C_CRLF ;
		dataPre+=	CD_cd_f_d_n_	+	file_img	+	CD_cd__fn_	;
		dataPre+=							fileName	+	C_CRLF ;
		dataPre+=	T_ct_a_o_s								C_CRLF ;
		dataPre+=										C_CRLF ;
		dataPst+=										C_CRLF ;
		dataPst+=	CT_boundary__	+	 ct_boundary	+	CT_boundary__		C_CRLF ;
		v_char	vc_pref = ::To_v_char(::To__string(dataPre.c_str())) ;
		v_char	vc_post = ::To_v_char(::To__string(dataPst.c_str())) ;
		sndData.insert(sndData.end(),vc_pref.begin(),vc_pref.end()) ;
		sndData.insert(sndData.end(),up_Data.begin(),up_Data.end()) ;
		sndData.insert(sndData.end(),vc_post.begin(),vc_post.end()) ;
		}
	#ifdef	_DEBUG
	{
		::i_Dump(sndData,(::Path_GetName(upFile)+_T(".txt")).c_str()) ;
		}
	#endif
	return	sndData ;
	}

//*******************************************************************************
//	upload
//	Create	:	2017/08/28
//*******************************************************************************
inline	bool	UploadFile	(LPCTSTR svrName,LPCTSTR php,LPCTSTR upFile)
{
	{
		if (::File_IsNothing(upFile))			{	return	false ;		}
	//	if (::File_GetSize  (upFile) > 2048*1024)	{	return	false ;		}
		}
	tstring	head ;
	v_char	sndData ;
	{
		tstring	___boundary = _T("-----UpFile__2017_08_30") ;
			___boundary = _T("-----") + ::Path_GetName(_T(__FILE__)) + _T("__") + ::Now_Format(_T("%H%M%S")) ;
		head	= CT_ct_mp_fd_b_	+ ___boundary ;
		sndData = Make_send_data(upFile,  ___boundary.c_str()) ;
		}
	tstring	serverN = svrName ;
	tstring	portStr ;
	{
		v_tstring	strAry = ::String_Split(svrName,false,_T(":")) ;
		if (strAry.size() >= 2) {
			serverN = strAry[0] ;
			portStr = strAry[1] ;
			}
		}
	INTERNET_PORT	nPort = 0 ;
			nPort = ::ttou2(portStr) ;
	tstring		userAgent = _T("drop_up") ;
			userAgent = ::Path_GetName(_T(__FILE__)).c_str() ;
	#ifdef	_WIN32
	{
		userAgent = ::Path_GetName(::i_GetModuleFileName()) ;
		{
			tstring	osVer	= _T("Windows NT ") + ::To_tstring_rz(::GetWinVer_exe()) ;
				osVer	+=  tstring(_T(" "))+ Bracket_Add(::GetWinVerStr_exe(),_T('(')).c_str() ;
			userAgent += _T(" ") + osVer ;
			userAgent += EXE_AddVerBuildStr() ;
			}
		}
	#endif
	CInternetSession	session(userAgent.c_str()) ;
	CHttpConnection*	pServer = NULL ;
	CHttpFile*		pFile = NULL ;
	DWORD			dwStatus = 0 ;
	try	{
				pServer = session.GetHttpConnection(serverN.c_str(),nPort) ;
				if (pServer == NULL)				{	return	false ;		}
			{
				CString	headStr = head.c_str() ;
				pFile = pServer->OpenRequest(CHttpConnection::HTTP_VERB_POST,	php) ;
				if (pFile == NULL)				{	return	false ;		}
				pFile->SendRequest(headStr,(LPVOID)(&sndData[0]),DWORD(sndData.size())) ;
				pFile->QueryInfoStatusCode(dwStatus) ;
				}
			{
				delete	(pFile) ;
				delete	(pServer) ;
				}
		}
	catch	(CInternetException* e) {
		CString	errMsg ;
		e->GetErrorMessage(errMsg.GetBuffer(1024),1024) ;
		errMsg.ReleaseBuffer() ;
		std::tout << LPCTSTR(errMsg) << std::endl ;
		return	false ;
		}
	session.Close() ;
	return	true ;
	}

//*******************************************************************************
//	upload files
//	Create	:	2017/08/29
//*******************************************************************************
inline	bool	UploadFiles	(c_v_tstring& upFiles)
{
	v_tstring	svr_php = ::UF_get_server_php() ;
	tstring		serverN = svr_php[0] ;
	tstring		phpName = svr_php[1] ;
	for (size_t index=0 ; index<upFiles.size() ; index++) {
		tstring	upFile = upFiles[index] ;
		if (::File_IsNothing(upFile))		{	continue ;		}
		if (!::UploadFile(serverN.c_str(),phpName.c_str(),upFile.c_str()))	{
			return	false ;
			}
		}
	return	true ;
	}

UpFile.hxx



　　にほんブログ村 IT技術ブログへ


データ送信 CHttpFile

投稿日 2017年8月7日 21:18 by Iwao Comment

送信するデータの中身をどの様に指定するかわかってないので，CHttpFile でもう一度やり直し．
MSDN CHttpFile クラスにあるサンプルのコードで，前回と同様にデータが送れることは確認．

content.txt を用意して，あればそれを読込んで送る様に変更．
　　 CString strData = _T(“Some very long data to be POSTed here!”);
　　 {
　　　　 CString dataFile = _T(“./content3.txt”) ;
　　　　 if (::File_IsExist(dataFile)) {
　　　　　　 strData = ::LoadText(dataFile).c_str() ;
　　　　　　 }
　　　　 }

Content-Type: multipart/form-data; boundary=—-WebKitFormBoundaryHQUnqULNgae5Y5HW
——WebKitFormBoundaryHQUnqULNgae5Y5HW
Content-Disposition: form-data; name=”file_imo”; filename=”up_Cube.imo”
Content-Type: application/octet-stream

v 0 0 -5
v 0 0 0
v 0 5 0
v 0 5 -5
v 5 0 -5
v 5 5 -5
v 5 0 0
v 5 5 0
f 1 2 3 4
f 5 1 4 6
f 7 5 6 8
f 2 7 8 3
f 3 8 6 4
f 2 1 5 7

——WebKitFormBoundaryHQUnqULNgae5Y5HW
Content-Disposition: form-data; name=”file_htm”; filename=”up_Cube.htm”
Content-Type: application/octet-stream
　
<!DOCTYPE html>
<html lang=”ja” >
<head >
<meta charset=”UTF-8″ />
< script src=”/_lib/js/webgl/threejs/r84/build/three.js”> </script>
< script src=”/_lib/js/webgl/threejs/r84/examples/js/Detector.js”> </script>
< script src=”/_lib/js/webgl/threejs/r84/examples/js/controls/OrbitControls.js”> </script>
< script src=”/_lib/js/webgl/threejs/r84/examples/js/loaders/MTLLoader.js”> </script>
< script src=”/_lib/js/i_lib/threejs/r84/IMOLoader.js”> </script>
< script src=”/_lib/js/i_lib/threejs/r84/c_3js_4.js”> </script>
< script src=”/_lib/js/i_lib/2017.03/filePath.js”> </script>
</head>
<body>

var imoFile=’up_Cube.imo’;
ThreeStart3 (imoFile,5,5,5) ;

</body>
</html>
　
——WebKitFormBoundaryHQUnqULNgae5Y5HW–
　

データは送られているが，PHP の $_FILES にうまく設定されていない．
　　 $str = var_export($_FILES,true) ;
ヘッダ部分の指定が間違っていたみたいで，
　　 CString strHead ;
　　 {
　　　　 CString dataFile = _T(“./content3.txt”) ;
　　　　 if (::File_IsExist(dataFile)) {
　　　　　　 strData = ::LoadText(dataFile).c_str() ;
　　　　　　 {
　　　　　　　　 v_tstring strAry = ::String_SplitLine(strData) ;
　　　　　　　　 if (strAry.size() > 0) {
　　　　　　　　　　 strHead = strAry[0].c_str() ;
　　　　　　　　　　 strAry.erase(strAry.begin()) ;
　　　　　　　　　　 strData = ::String_Join_Line(strAry).c_str() ;
　　　　　　　　　　 }
　　　　　　　　 }
　　　　　　 }
　　　　 }
送信部分も，SendRequestEx から SendRequest に変更．
　　 pFile = pServer->OpenRequest(CHttpConnection::HTTP_VERB_POST, _T(“/…/t_mfc_h/t_mfc_h.php”)) ;
　　 pFile->SendRequest(strHead,(LPVOID)LPCTSTR(strData),strData.GetLength()) ;
　　 pFile->QueryInfoStatusCode(dwStatus) ;



　　にほんブログ村 IT技術ブログへ

  • Categories:

ダイアログバーに CCheckListBox

投稿日 2017年7月25日 16:19 by Iwao Comment

通常のダイアログに CCheckListBox を追加するには，次のような手順．
　　CCheckListBox の利用
ダイアログバーでは，次の様にしてもデータが表示されない．
　　CCheckListBox* clb = (CCheckListBox*)m_wndDlgBar.GetDlgItem(IDC_CHECK_LB) ;
　　clb->AddString(“….”) ;

以前作成した，オーナー描画のドロップダウンを思い出しコードを見ると，
　　CMainFrame に変数を追加して，サブクラス化している．
　　CMainFrame::OnCreate でダイアログバーを Create した後，
　　　　m_ODCB.SubclassDlgItem(IDC_COMBO,&m_wndDlgBar) ;
このコードの最初は，2004/07．
手元にある幾つかの本を見たが見つからなかった．
何を参考にしたかは今となっては不明．

LBN_SELCHANGE で選択された状態がイマイチ．
　内容を更新（PostMessage）するとインデックス 0 の項目に薄い点線が付く．
SendMessage として更新後，選ばれていた項目を SetCurSel することで対応．



　　にほんブログ村 IT技術ブログへ


コンソール AP で MFC

投稿日 2017年3月23日 15:09 by Iwao Comment

コンソール AP で，MFC（AfxWin.h など）に依存したコードを利用

新しく書いたものは，次の様なコードで可能．
　　#include “EnhMetaF.hxx”
　　#include “i_Trace.hxx”
　　
　　int _tmain(int argc, TCHAR* argv[])
　　{
　　　　 _tsetlocale(LC_ALL,_T(“”)) ;
　　　　 {
　　　　　　 EnhMetaF emf ;
　　　　　　 CMetaFileDC*mfdc = emf.GetDC() ;
　　　　　　 mfdc->Rectangle(10,10,30,20) ;
　　　　 }
　　　　 return 0 ;
　　　　 }

古いコードは，うまく対応できてないので…
　　#undef _CONSOLE
　　#include <AfxWin.h>
　　#include <AfxExt.h>
　　#include <AfxCmn.h>
　　#ifdef _WIN32
　　#define _WINDOWS
　　#endif
　　#include “MessCon.hxx”
　　#include “MessBar.hxx”
　　#ifdef MessageBar
　　　　 #undef MessageBar
　　　　 #define MessageBar MessageCon
　　　　 #undef I_SUPPORT_MESSAGE_MFC
　　#endif
　　#include “MessWrap.hxx”
　　// …
　　int _tmain(int argc, TCHAR* argv[])
　　{
　　　　 #ifdef _MFC_VER
　　　　 if (!::AfxWinInit(::GetModuleHandle(NULL),NULL,::GetCommandLine(),0)) {
　　　　　　 return 1 ;
　　　　　　 }
　　　　 #else
　　　　 _tsetlocale(LC_ALL,_T(“”)) ;
　　　　 #endif
　　　　// 　…
　　　　 }

undef の幾つかは，自コードの対応のために必要．



　　にほんブログ村 IT技術ブログへ


EnumFilesTree で無限ループ

投稿日 2017年3月14日 15:08 by Iwao Comment

フォルダ以下の全てのファイルを列挙する関数

v_tstring	EnumFilesTree	(LPCTSTR path)
{
	v_tstring	foundFiles = ::EnumFiles(path) ;
	v_tstring	foundFolds = ::ExtractFolders(foundFiles) ;
	for (size_t index=0 ; index<foundFolds.size() ; index++) {
		tstring		subFold = foundFolds[index] ;
		v_tstring	chFiles = ::EnumFiles(subFold.c_str()) ;
		v_tstring	chFolds = ::ExtractFolders(chFiles) ;
		foundFolds.insert(foundFolds.end(),chFolds.begin(),chFolds.end()) ;
		foundFiles.insert(foundFiles.end(),chFiles.begin(),chFiles.end()) ;
		}
	return	foundFiles ;
	}

今まで特に問題なく動作していたが，
先週末 VC 14 i3DV のデバッグ版を実行すると無限ループに．
Release 版や，VC 12 のデバッグ版などでは OK ．

昨日は，別の PC 環境だったため再現せず．

今日デバッガを使用して調査すると，
　フォルダの「作成日時」が正しくない．
　/wordpress/dev/2016/09/15/
そのため，_wstat64 が正しく帰ってこない．

v_tstring	EnumFiles	(LPCTSTR path_,const bool skipDot=true)
{
	tstring	path = ::Path_DelLastSP(path_) ;
	if (!File_IsDirectory(path.c_str()))	{
		path = ::Path_GetDir(path) ;
		}
	v_tstring	foundFiles ;
	#if		defined	__GNUC__
		foundFiles = ::EnumFiles_GNUC	(path,skipDot) ;
	#elif	defined	_MFC_VER
		foundFiles = ::EnumFiles_MFC	(path,skipDot) ;
	#elif	defined	_MSC_VER
		foundFiles = ::EnumFiles_MSC	(path,skipDot) ;
	#endif
	return	foundFiles ;
	}

ここの，File_IsDirectory(…) で，stat を利用している．

次の様に ::GetFileAttributes(…) の判断を追加．

	if (!::File_IsDirectory(path.c_str()))	{
		#if	(_MSC_VER == 1900)
		{
			if (!::FA_Is_Directory(path)) {
				path = ::Path_GetDir(path) ;
				}
			}
		#else
		{
			path = ::Path_GetDir(path) ;
			}
		#endif
		}
EnumFile.hxx



　　にほんブログ村 IT技術ブログへ


HICON -> DIB

投稿日 2016年12月8日 22:36 by Iwao Comment 
i_DIB	GetIcon_DIB	(LPCTSTR filePath,const long size=300)
{
    i_DIB	dib ;
    HICON	hIcon  = ::DImageS_GetIcon(filePath) ;
    if (hIcon != NULL)	{
        MemoryDC	memDC ;
        memDC.Init(CSize(size,size),32) ;
        CDC*		mem_dc = memDC.GetMemoryDC() ;
        mem_dc->FillSolidRect(CRect(0,0,size,size),RGB(240,240,255)) ;
        ::Icon_Draw(mem_dc->GetSafeHdc(),CRect(10,10,size-10,size-10),hIcon,TRUE,TRUE) ;
        dib = ::ToDIB(memDC) ;
        memDC.Term() ;
        ::DestroyIcon(hIcon) ;
        }
    return	dib ;
    }


　　にほんブログ村 IT技術ブログへ


CFileStatus でアサート

投稿日 2016年9月15日 23:12 by Iwao Comment

ファイルの作成日時が正しくない？と CFileStatus でうまく動作しない．

このファイルは，プログラミング Windows 第5版の CD を Mac でコピーしたもの．
このファイルを CFile::GetStatus とすると，アサートなど．
VC 8 の場合，ATLTime.inl CTime コンストラクタの 200 行目付近で
　　if(m_time == -1)
　　{
　　　　AtlThrow(E_INVALIDARG);
　　　　}

—————————
TsHBMP
—————————
パラメータが間違っています。
—————————
OK
—————————

CFileStatus を使わずに，stat を使用する様に書換えてある程度は動作する様になった．
VC 14 では，stat がエラーで帰ってくる．この対応方法は不明．
CFileStatus を使用している所はかなりあるため，すべてに対応するにはしばらくかかる．
今回は Shell Extension でダウンしたため，その部分のみ対応．



　　にほんブログ村 IT技術ブログへ

  • Categories:


    top

    %d人のブロガーが「いいね」をつけました。