{"id":3749,"date":"2012-09-12T08:34:20","date_gmt":"2012-09-11T23:34:20","guid":{"rendered":"http:\/\/www.moonmile.net\/blog\/archives\/3749"},"modified":"2012-09-12T08:56:10","modified_gmt":"2012-09-11T23:56:10","slug":"catl%e3%81%a764bit%e7%89%88%e3%81%aecom%e3%82%92%e4%bd%9c%e6%88%90%e3%81%99%e3%82%8b-2","status":"publish","type":"post","link":"http:\/\/www.moonmile.net\/blog\/archives\/3749","title":{"rendered":"[C++]ATL\u306764bit\u7248\u306eCOM\u3092\u4f5c\u6210\u3059\u308b"},"content":{"rendered":"<p>\nTwitter \/ Marupeke_IKD: Windows7\u4e0b\u3067VisualStudio2005 &#8230;<br \/>\n<a href=\"https:\/\/twitter.com\/Marupeke_IKD\/status\/245237326995927040\">https:\/\/twitter.com\/Marupeke_IKD\/status\/245237326995927040<\/a>\n<\/p>\n<p>\n\u306a\u3068\u3053\u308d\u3067\u3001\u300cWindows7\u4e0b\u3067VisualStudio2005\u306764bit\u306aATL\u3092VC++\u3067\u4f5c\u3063\u3066\u3001\u305d\u308c\u3092\u540c\u3058\u304fVS2005\u74b0\u5883\u306764bit\u30d3\u30eb\u30c9\u306aVB\u3067\u4f7f\u304a\u3046\u3068\u3057\u3066\u300c\u53c2\u7167\u306e\u8ffd\u52a0\u300d\u3092\u3059\u308b\u306e\u3060\u3051\u3069\u300d\u306e\u90e8\u5206\u304c\u6c17\u306b\u306a\u3063\u3066\u3001\u4e00\u5fdc\u78ba\u8a8d\u3057\u3066\u307f\u305f\u3068\u3044\u3046\u8a71\u3092\u5c11\u3057\u3002\n<\/p>\n<p>\nVB6 \u81ea\u4f53\u306f\u3001Windows 7 \u4e0a\u3067\u306f\u52d5\u304b\u306a\u3044\u306e\u3067\u3001\n<\/p>\n<ul>\n<li>Windows 7 \u4e0a\u306e Visual Studio 2005 \u3067 64bit \u306e COM \u3092\u4f5c\u6210<\/li>\n<li>Windows XP\uff08\u304b\u306a\uff1f\uff09\u306e VB6 \u3067\u5148\u306e COM \u3092\u53c2\u7167<\/li>\n<\/ul>\n<p>\n\u306a\u3068\u3053\u308d\u3067\u3057\u3087\u3046\u3002\u300cVB \u306e\u53c2\u7167\u8a2d\u5b9a\u306b\u51fa\u3066\u3053\u306a\u3044\u300d\u3068\u3044\u3046\u3068\u3053\u308d\u306f\u3001\u30d5\u30a1\u30a4\u30eb\u3092\u53c2\u7167\u3055\u305b\u308c\u3070\u826f\u3044\u3088\u3046\u306a\u6c17\u3082\u3059\u308b\u306e\u3067\u3059\u304c\u3001\u3061\u3087\u3063\u3068\u5b9f\u9a13\u3057\u3066\u307f\u307e\u3059\u3002\n<\/p>\n<p>\n\u25a0\u74b0\u5883\n<\/p>\n<p>\n\u540c\u3058\u74b0\u5883\u3092\u7528\u610f\u3057\u305f\u3044&#8230;\u3064\u30fc\u306e\u306f\u9762\u5012\u306a\u306e\u3067\u3001\u4f3c\u305f\u74b0\u5883\u3092\u7528\u610f\u3057\u307e\u3059\u3002\n<\/p>\n<ul>\n<li>Windows 7 x64 \u306e Visual Studio 2010 \u3067 COM \u3092\u4f5c\u308b\u3002<\/li>\n<li>Windows 7 x64 \u306e Excel x86 \u3092\u4f7f\u3063\u3066\u8a66\u3059\u3002<\/li>\n<\/ul>\n<p>\nVB6 \u304b\u3089\u53c2\u7167\u3059\u308b\u306e\u3082\u3001Excel VBA \u304b\u3089\u53c2\u7167\u3059\u308b\u306e\u3082\u4f3c\u305f\u3088\u3046\u306a\u3082\u306e\u306a\u306e\u3067\u3001\u3053\u308c\u3067\u30c6\u30b9\u30c8\u3057\u307e\u3059\u3002\u4ee5\u524d\u3001\u3088\u304f\u3084\u3063\u3066\u3044\u305f\u65b9\u6cd5\u3067\u3059\u3002\n<\/p>\n<p>\n\u25a0ATL\u3067COM\u3092\u4f5c\u308b\n<\/p>\n<ol>\n<li>Visual Studio 2010 \u3067\u300cATL\u30d7\u30ed\u30b8\u30a7\u30af\u30c8\u300d\u3092\u9078\u629e<\/li>\n<\/ol>\n<p><a href='http:\/\/www.moonmile.net\/blog\/wp-content\/uploads\/2012\/09\/wpid-dworkblogimage20120911_01org1.jpg'><img border='0' src='http:\/\/www.moonmile.net\/blog\/wp-content\/uploads\/2012\/09\/wpid-dworkblogimage20120911_01thum1.jpg'\/><\/a><\/p>\n<ol>\n<li>\u30d7\u30ed\u30b8\u30a7\u30af\u30c8\u306b\u300cATL\u30b7\u30f3\u30d7\u30eb \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u300d\u3092\u8ffd\u52a0<\/li>\n<\/ol>\n<p><a href='http:\/\/www.moonmile.net\/blog\/wp-content\/uploads\/2012\/09\/wpid-dworkblogimage20120911_02org1.jpg'><img border='0' src='http:\/\/www.moonmile.net\/blog\/wp-content\/uploads\/2012\/09\/wpid-dworkblogimage20120911_02thum1.jpg'\/><\/a><\/p>\n<ol>\n<li>\u30a4\u30f3\u30bf\u30fc\u30d5\u30a7\u30fc\u30b9\u3092\u300c\u30c7\u30e5\u30a2\u30eb\u300d\u306b\u3059\u308b\u306e\u3092\u5fd8\u308c\u305a\u306b<\/li>\n<\/ol>\n<p><a href='http:\/\/www.moonmile.net\/blog\/wp-content\/uploads\/2012\/09\/wpid-dworkblogimage20120911_03org.jpg'><img border='0' src='http:\/\/www.moonmile.net\/blog\/wp-content\/uploads\/2012\/09\/wpid-dworkblogimage20120911_03thum.jpg'\/><\/a><\/p>\n<ol>\n<li>\u30af\u30e9\u30b9\u30d3\u30e5\u30fc\u3092\u4f7f\u3063\u3066\u3001\u9069\u5f53\u306b\u30e1\u30bd\u30c3\u30c9\u3084\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u8ffd\u52a0\uff08\u3053\u3053\u3067\u306f ICSmp\u306e\u307b\u3046\u306b\u8ffd\u52a0\uff09<\/li>\n<\/ol>\n<p>\nIDL \u30d5\u30a1\u30a4\u30eb\u304c\u81ea\u52d5\u751f\u6210\u3055\u308c\u307e\u3059\u3002\n<\/p>\n<pre class=\"brush: csharp; title: ; notranslate\" title=\"\">\r\n &#x5B;\r\n \tobject,\r\n \tuuid(A64C2AE7-E5C9-4B95-9C69-B48CB5E97966),\r\n \tdual,\r\n \tnonextensible,\r\n \tpointer_default(unique)\r\n ]\r\n interface ICSmp : IDispatch{\r\n \t&#x5B;propget, id(1)] HRESULT Length(&#x5B;out, retval] SHORT* pVal);\r\n \t&#x5B;propput, id(1)] HRESULT Length(&#x5B;in] SHORT newVal);\r\n };\r\n &#x5B;\r\n \tuuid(9394A921-EE32-4302-B544-90EC6D538D69),\r\n \tversion(1.0),\r\n ]\r\n library SampleAtlCom64Lib\r\n {\r\n \timportlib(&quot;stdole2.tlb&quot;);\r\n \t&#x5B;\r\n \t\tuuid(C8A6D4E6-BFAF-48B4-AE57-F65847F2ACA6)\t\t\r\n \t]\r\n \tcoclass CSmp\r\n \t{\r\n \t\t&#x5B;default] interface ICSmp;\r\n \t};\r\n };\r\n<\/pre>\n<ol>\n<li>\u30d7\u30ed\u30d1\u30c6\u30a3\u306e\u30b3\u30fc\u30c9\u3092\u4fee\u6b63<\/li>\n<\/ol>\n<pre class=\"brush: csharp; title: ; notranslate\" title=\"\">\r\n\/\/ CCSmp\r\nSTDMETHODIMP CCSmp::get_Length(SHORT* pVal)\r\n{\r\n\t*pVal = m_length;\r\n\treturn S_OK;\r\n}\r\n\r\n\r\nSTDMETHODIMP CCSmp::put_Length(SHORT newVal)\r\n{\r\n\tm_length = newVal;\r\n\treturn S_OK;\r\n}\r\n<\/pre>\n<p>\n\u3072\u3068\u307e\u305a\u3001\u3053\u308c\u3092\u30d3\u30eb\u30c9\u3059\u308b\u3068\u300cWin32\u300d\u306e\u307b\u3046\u306e 32bit \u7248\u306e COM \u304c\u4f5c\u6210\u3067\u304d\u307e\u3059\u3002\n<\/p>\n<p>\n\u25a064bit\u7248\u306eCOM\u3092\u4f5c\u308b\n<\/p>\n<p>\n\u69cb\u6210\u30de\u30cd\u30fc\u30b8\u30e3\u3092\u4f7f\u3063\u3066\u300c\u65b0\u898f\u4f5c\u6210\u300d\u3092\u3057\u307e\u3059\u3002\u3059\u308b\u3068\u3001Win32 \u306e\u69cb\u6210\u3092\u30b3\u30d4\u30fc\u3057\u3066\u300cx64\u300d\u306e\u69cb\u6210\u304c\u3067\u304d\u307e\u3059\u3002\n<\/p>\n<p><a href='http:\/\/www.moonmile.net\/blog\/wp-content\/uploads\/2012\/09\/wpid-dworkblogimage20120911_04org.jpg'><img border='0' src='http:\/\/www.moonmile.net\/blog\/wp-content\/uploads\/2012\/09\/wpid-dworkblogimage20120911_04thum.jpg'\/><\/a><\/p>\n<p>\nVC++\u306e\u30e9\u30a4\u30d6\u30e9\u30ea\u306f\u81ea\u52d5\u7684\u306bx64\u306e\u307b\u3046\u306b\u5207\u308a\u66ff\u3048\u3089\u308c\u307e\u3059\uff08\u3053\u308c\u306f\u3001VS2005\u306e\u9803\u306f\u624b\u52d5\u3060\u3063\u305f\u306f\u305a\uff09\u3002\n<\/p>\n<p><a href='http:\/\/www.moonmile.net\/blog\/wp-content\/uploads\/2012\/09\/wpid-dworkblogimage20120911_05org.jpg'><img border='0' src='http:\/\/www.moonmile.net\/blog\/wp-content\/uploads\/2012\/09\/wpid-dworkblogimage20120911_05thum.jpg'\/><\/a><\/p>\n<p>\n\u3053\u308c\u3092\u30d3\u30eb\u30c9\u3059\u308b\u3068\u3001x64\/Debug \u3068\u3044\u3046\u30d5\u30a9\u30eb\u30c0\u306b COM \u304c\u4f5c\u6210\u3055\u308c\u307e\u3059\u3002Win32 \u306e\u307b\u3046\u306f\u3001Debug \u30d5\u30a9\u30eb\u30c0\u3067\u3059\u306d\u3002\n<\/p>\n<p>\n\u25a0Excel VBA \u304b\u3089 64bit COM \u3092\u53c2\u7167\u3059\u308b\n<\/p>\n<p>\nExcel VBA \u3092\u7acb\u3061\u4e0a\u3052\u3066\u3001\u300c\u30c4\u30fc\u30eb\u300d\u2192\u300c\u53c2\u7167\u8a2d\u5b9a\u300d\u3092\u958b\u304d\u307e\u3059\u3002\n<\/p>\n<p><a href='http:\/\/www.moonmile.net\/blog\/wp-content\/uploads\/2012\/09\/wpid-dworkblogimage20120911_06org.jpg'><img border='0' src='http:\/\/www.moonmile.net\/blog\/wp-content\/uploads\/2012\/09\/wpid-dworkblogimage20120911_06thum.jpg'\/><\/a><\/p>\n<p>\n\u53c2\u7167\u30dc\u30bf\u30f3\u3092\u62bc\u3057\u3066\u3001\u5148\u306e x64\/Debug \u306b\u3042\u308b COM\uff08*.dll\uff09\u3092\u53c2\u7167\u3055\u305b\u307e\u3059\u3002\n<\/p>\n<p><a href='http:\/\/www.moonmile.net\/blog\/wp-content\/uploads\/2012\/09\/wpid-dworkblogimage20120911_07org.jpg'><img border='0' src='http:\/\/www.moonmile.net\/blog\/wp-content\/uploads\/2012\/09\/wpid-dworkblogimage20120911_07thum.jpg'\/><\/a><\/p>\n<p>\n\u7121\u4e8b\u306b\u53c2\u7167\u304c\u51fa\u6765\u305f\u6a21\u69d8\n<\/p>\n<p><a href='http:\/\/www.moonmile.net\/blog\/wp-content\/uploads\/2012\/09\/wpid-dworkblogimage20120911_08org.jpg'><img border='0' src='http:\/\/www.moonmile.net\/blog\/wp-content\/uploads\/2012\/09\/wpid-dworkblogimage20120911_08thum.jpg'\/><\/a><\/p>\n<p>\n\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u30d6\u30e9\u30a6\u30b6\u3067\u3082\u78ba\u8a8d\n<\/p>\n<p><a href='http:\/\/www.moonmile.net\/blog\/wp-content\/uploads\/2012\/09\/wpid-dworkblogimage20120911_09org.jpg'><img border='0' src='http:\/\/www.moonmile.net\/blog\/wp-content\/uploads\/2012\/09\/wpid-dworkblogimage20120911_09thum.jpg'\/><\/a><\/p>\n<p>\n\u3055\u3063\u304d\u9069\u5f53\u306b\u4f5c\u3063\u305f Length \u3068\u3044\u3046\u30d7\u30ed\u30d1\u30c6\u30a3\u304c\u898b\u308c\u307e\u3059\u3002\n<\/p>\n<p>\n\u25a0Excel VBA \u3067\u52d5\u4f5c\u78ba\u8a8d\u3059\u308b\u3002\n<\/p>\n<p>\n\u30c6\u30b9\u30c8\u30b3\u30fc\u30c9\u3092\u4f7f\u3063\u3066\u30b9\u30c6\u30c3\u30d7\u5b9f\u884c\u3057\u3066\u307f\u308b\u3002\n<\/p>\n<p><a href='http:\/\/www.moonmile.net\/blog\/wp-content\/uploads\/2012\/09\/wpid-dworkblogimage20120911_10org.jpg'><img border='0' src='http:\/\/www.moonmile.net\/blog\/wp-content\/uploads\/2012\/09\/wpid-dworkblogimage20120911_10thum.jpg'\/><\/a><\/p>\n<p>\n\u307e\u3041\u3001\u666e\u901a\u306b\u5b9f\u884c\u304c\u3067\u304d\u308b\u308f\u3051\u3067\u3059\u3002\n<\/p>\n<p>\n\u4e00\u5fdc Excel 2010 \u3092\u78ba\u8a8d\u3057\u3066\u304a\u304f\u3068\u3001\u300c\u30d5\u30a1\u30a4\u30eb\u300d\u2192\u300c\u30d8\u30eb\u30d7\u300d\u304b\u3089 32\u30d3\u30c3\u30c8\u7248\u306a\u306e\u304b 64\u30d3\u30c3\u30c8\u7248\u306a\u306e\u304b\u304c\u5206\u304b\u308a\u307e\u3059\u3002\n<\/p>\n<p><a href='http:\/\/www.moonmile.net\/blog\/wp-content\/uploads\/2012\/09\/wpid-dworkblogimage20120911_11org.jpg'><img border='0' src='http:\/\/www.moonmile.net\/blog\/wp-content\/uploads\/2012\/09\/wpid-dworkblogimage20120911_11thum.jpg'\/><\/a><\/p>\n<p>\n\u25a0\u3069\u3046\u3057\u3066\u3001Marupeke_IKD \u3055\u3093\u306e\u74b0\u5883\u3067\u306f\u52d5\u304b\u306a\u3044\u306e\u304b\uff1f\n<\/p>\n<p>\n\u3068\u3044\u3046\u8a33\u3067\u3001\u624b\u5143\u306e\u74b0\u5883\u3067\u306f ATL \u3067 x64 \u306e COM \u3092\u4f5c\u3063\u3066 32\u30d3\u30c3\u30c8\u7248\u306e Excel VBA \u304b\u3089\u5229\u7528\u3067\u304d\u305f\u308f\u3051\u3067\u3059\u3002<br \/>\n\u305f\u3060\u3057\u3001VB6 \u306e 64\u30d3\u30c3\u30c8\u74b0\u5883\u306b\u3064\u3044\u3066\u306f\u3001\n<\/p>\n<p>\nVisual Basic 6.0 \u3067 64 \u30d3\u30c3\u30c8\u306e Windows \u30aa\u30da\u30ec\u30fc\u30c6\u30a3\u30f3\u30b0 \u30b7\u30b9\u30c6\u30e0\u306e\u4f7f\u7528\u65b9\u6cd5\u306b\u3064\u3044\u3066<br \/>\n<a href=\"http:\/\/support.microsoft.com\/kb\/894373\/ja\">http:\/\/support.microsoft.com\/kb\/894373\/ja<\/a>\n<\/p>\n<p>\n\u306b\u66f8\u3044\u3066\u3042\u308b\u901a\u308a\u3001\u5fae\u5999\u306a\u52d5\u304d\u3092\u3059\u308b\u305d\u3046\u306a\u306e\u3067 Win32 \u306b\u63c3\u3048\u3066\u3057\u307e\u3063\u305f\u307b\u3046\u304c\u3088\u3055\u305d\u3046\u3067\u3059\u306d\u3002<br \/>\n\u3042\u3068\u3001Excel 2010 \u306e\u30d8\u30eb\u30d7\u3092\u958b\u3044\u3066\u300c64\u300d\u3067\u691c\u7d22\u3057\u3066\u3001\u300cMicrosoft Office \u306e 32 \u30d3\u30c3\u30c8\u7248\u3068 64 \u30d3\u30c3\u30c8\u7248\u3092\u9078\u629e\u3059\u308b\u300d\u306e\u9805\u76ee\u3092\u898b\u308b\u3068\u3001\u3044\u307e\u3044\u3061 Office 64bit \u306e\u4e0b\u4f4d\u4e92\u63db\u6027\u304c\u4e0d\u5b8c\u5168\u3067\u3042\u308b\u3053\u3068\u304c\u5206\u304b\u308a\u307e\u3059\u3002\u307e\u3041\u3001\u4e0d\u5b8c\u5168\u3068\u3044\u3046\u304b\u300c\u5207\u308a\u6368\u3066\u305f\u300d\u3068\u8a00\u3063\u3066\u3044\u3044\u306e\u3067\u3057\u3087\u3046\u304c\u3001\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3057\u3066\u3044\u308b office \u304c 32\u30d3\u30c3\u30c8\u306a\u306e\u304b64\u30d3\u30c3\u30c8\u306a\u306e\u304b\u3092\u5224\u5225\u3057\u306a\u304c\u3089\u3001Excel VBA \u3092\u7d44\u3080\u306e\u306f\u3084\u308a\u305f\u304f\u306a\u3044\u3067\u3059\u3088\u306d\u3002\u3068\u3044\u3046\u8a33\u3067\u3001\u7279\u306b\u4e0d\u5177\u5408\u304c\u306a\u3051\u308c\u307032\u30d3\u30c3\u30c8\u7248\u306b\u3059\u308b\u306e\u304c\u3088\u3044\u306e\u304b\u3082\u3002\n<\/p>\n<p>\n\u3053\u306e\u30c6\u30b9\u30c8\u3067\u4f5c\u3063\u305f\u306e\u306f\u30b7\u30f3\u30d7\u30eb\u306a\u300cATL\u30b7\u30f3\u30d7\u30eb \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u300d\u306a\u306e\u3067\u3001MFC \u3084\u3089\u5916\u90e8 DLL \u3092\u4f7f\u3063\u3066\u3044\u308b\u5834\u5408\u306f\u3001\u3082\u3063\u3068\u6ce8\u610f\u304c\u5fc5\u8981\u3067\u3059\u3088\u306d\u3002\u305d\u306e\u3042\u305f\u308a\u3067\u3046\u307e\u304f\u53c2\u7167\u8a2d\u5b9a\u3067\u304d\u306a\u3044\u306e\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Twitter \/ Marupeke_IKD: Windows7\u4e0b\u3067VisualStudio2005 &#8230; https:\/\/twitter.com\/Marupeke_IKD\/status\/24523732699 &hellip; <a href=\"http:\/\/www.moonmile.net\/blog\/archives\/3749\">\u7d9a\u304d\u3092\u8aad\u3080 <span class=\"meta-nav\">&rarr;<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[22],"tags":[],"class_list":["post-3749","post","type-post","status-publish","format-standard","hentry","category-c"],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/posts\/3749","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/comments?post=3749"}],"version-history":[{"count":2,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/posts\/3749\/revisions"}],"predecessor-version":[{"id":3751,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/posts\/3749\/revisions\/3751"}],"wp:attachment":[{"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/media?parent=3749"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/categories?post=3749"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.moonmile.net\/blog\/wp-json\/wp\/v2\/tags?post=3749"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}