Microsoft MVP성태의 닷넷 이야기
VC++: 90. Visual Studio 2013에서 Visual Basic 6용 ATL Control 제작 [링크 복사], [링크+제목 복사],
조회: 19769
글쓴 사람
정성태 (techsharer at outlook.com)
홈페이지
첨부 파일
 

Visual Studio 2013에서 Visual Basic 6용 ATL Control 제작

이상하군요. Visual Studio 2013에서 생성한 ATL Control의 경우, 해당 컨트롤을 Visual Basic 6의 도구 상자에 구성 요소로 등록 시 로드할 수 없다는 오류가 발생합니다.

vb6_with_vs2013_1.png

'...' could not be loaded.

테스트 삼아서 예전 버전인 Visual Studio 2005에서 ATL Control 프로젝트를 만들어 빌드하면 이런 현상이 없습니다.

차이점을 살펴보면 답이 나오겠지요? ^^ 우선, Visual Studio 2013에서 생성한 ATL 프로젝트의 경우 추가된 컨트롤의 .rgs 파일에 ProgID 관련한 내용이 없습니다. 따라서, 다음의 내용을 수작업으로 추가해 주시면 됩니다.

HKCR
{
    TestCtrl.FakeLabel.1 = s 'FakeLabel Class'
    {
        CLSID = s '{A43EF5B0-98B1-4D0B-9444-F6BB987AA37A}'
    }
    TestCtrl.FakeLabel = s 'FakeLabel Class'
    {
        CLSID = s '{A43EF5B0-98B1-4D0B-9444-F6BB987AA37A}'
        CurVer = s 'TestCtrl.FakeLabel.1'
    }

    NoRemove CLSID
    {
        ForceRemove {A43EF5B0-98B1-4D0B-9444-F6BB987AA37A} = s 'FakeLabel Class'
        {
            ProgID = s 'TestCtrl.FakeLabel.1'
            VersionIndependentProgID = s 'TestCtrl.FakeLabel'
            
            ForceRemove Programmable
            InprocServer32 = s '%MODULE%'
            {
                val ThreadingModel = s 'Apartment'
            }

            val AppID = s '%APPID%'

            ForceRemove Control
            ForceRemove 'ToolboxBitmap32' = s '%MODULE%, 106'
            MiscStatus = s '0'
            {
                '1' = s '%OLEMISC%'
            }
            TypeLib = s '{78DF6D83-EE4E-49B0-8C23-EE3E22FCF158}'
            Version = s '1.0'
        }
    }
}

이렇게 해주면 VB 개발환경의 도구 상자 탭에 오류없이 잘 등록이 됩니다. 그런데, 문제가 하나 더 있습니다. 다름 아닌, 도구 상자에서 선택해 VB Form에 얹어 놓을 때 다시 오류가 발생합니다.

System Error &H80004005 (-2147467259).

0x80004005 == Unspecified error 

이건 IPersistStreamInit 인터페이스 구현이 없어서 그런 것입니다. 따라서 컨트롤 소스 코드의 헤더 파일에 이와 관련한 인터페이스를 추가해 주면 됩니다.

// ... [생략] ...

class ATL_NO_VTABLE CFakeLabel :
    public CComObjectRootEx<CComSingleThreadModel>,
    public IDispatchImpl<IFakeLabel, &IID_IFakeLabel, &LIBID_TestCtrlLib, /*wMajor =*/ 1, /*wMinor =*/ 0>,

    public IPersistStreamInitImpl<CFakeLabel>,

    public IOleControlImpl<CFakeLabel>,
    public IOleObjectImpl<CFakeLabel>,
    // ... [생략] ...
{
    // ... [생략] ...

BEGIN_COM_MAP(CFakeLabel)
    COM_INTERFACE_ENTRY(IFakeLabel)
    COM_INTERFACE_ENTRY(IDispatch)
    
    // ... [생략] ...
    COM_INTERFACE_ENTRY(IOleObject)

    COM_INTERFACE_ENTRY(IPersistStreamInit)
    COM_INTERFACE_ENTRY2(IPersist, IPersistStreamInit)

    COM_INTERFACE_ENTRY(ISupportErrorInfo)
    COM_INTERFACE_ENTRY(IConnectionPointContainer)
    // ... [생략] ...
END_COM_MAP()

    // ... [생략] ...
}




그 외에 한가지 더!

Visual Studio 2013의 Visual C++ 프로젝트의 경우 "Platform Toolset"의 기본 값이 "Visual Studio 2013 (v120)"로 되어 있는데요. 대개의 경우, Visual Basic 6 응용 프로그램을 아직도 쓰는 곳이라면 XP 이하의 버전일 가능성이 큽니다. 따라서, "Platform Toolset" 값을 "Visual Studio 2013 - Windows XP (v120_xp)"로 바꿔주는 것이 안전합니다. 그렇지 않으면 Windows Server XP/2003에서 regsvr32.exe로 등록 시 "LoadLibrary(...) failed - The specified procedure could not be found."라는 오류 메시지가 뜨면서 등록이 실패합니다.




[이 글에 대해서 여러분들과 의견을 공유하고 싶습니다. 틀리거나 미흡한 부분 또는 의문 사항이 있으시면 언제든 댓글 남겨주십시오.]







[최초 등록일: ]
[최종 수정일: 7/10/2021]

Creative Commons License
이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이센스에 따라 이용하실 수 있습니다.
by SeongTae Jeong, mailto:techsharer at outlook.com

비밀번호

댓글 작성자
 




... 106  107  [108]  109  110  111  112  113  114  115  116  117  118  119  120  ...
NoWriterDateCnt.TitleFile(s)
11224정성태6/13/201718150.NET Framework: 661. Json.NET의 DeserializeObject 수행 시 속성 이름을 동적으로 바꾸는 방법파일 다운로드1
11223정성태6/12/201716830개발 환경 구성: 318. WCF Service Application과 WCFTestClient.exe
11222정성태6/10/201720552오류 유형: 399. WCF - A property with the name 'UriTemplateMatchResults' already exists.파일 다운로드1
11221정성태6/10/201717522오류 유형: 398. Fakes - Assembly 'Jennifer5.Fakes' with identity '[...].Fakes, [...]' uses '[...]' which has a higher version than referenced assembly '[...]' with identity '[...]'
11220정성태6/10/201722911.NET Framework: 660. Shallow Copy와 Deep Copy [1]파일 다운로드2
11219정성태6/7/201718220.NET Framework: 659. 닷넷 - TypeForwardedFrom / TypeForwardedTo 특성의 사용법
11218정성태6/1/201721021개발 환경 구성: 317. Hyper-V 내의 VM에서 다시 Hyper-V를 설치: Nested Virtualization
11217정성태6/1/201716914오류 유형: 397. initerrlog: Could not open error log file 'C:\...\MSSQL12.MSSQLSERVER\MSSQL\Log\ERRORLOG'
11216정성태6/1/201719023오류 유형: 396. Activation context generation failed
11215정성태6/1/201719961오류 유형: 395. 관리 콘솔을 실행하면 "This app has been blocked for your protection" 오류 발생 [1]
11214정성태6/1/201717703오류 유형: 394. MSDTC 서비스 시작 시 -1073737712(0xC0001010) 오류와 함께 종료되는 문제 [1]
11213정성태5/26/201722482오류 유형: 393. TFS - The underlying connection was closed: Could not establish trust relationship for the SSL/TLS secure channel.
11212정성태5/26/201721818오류 유형: 392. Windows Server 2016에 KB4019472 업데이트가 실패하는 경우
11211정성태5/26/201720857오류 유형: 391. BeginInvoke에 전달한 람다 함수에 CS1660 에러가 발생하는 경우
11210정성태5/25/201721302기타: 65. ActiveX 없는 전자 메일에 사용된 "개인정보 보호를 위해 암호화된 보안메일"의 암호화 방법
11209정성태5/25/201768222Windows: 143. Windows 10의 Recovery 파티션을 삭제 및 새로 생성하는 방법 [16]
11208정성태5/25/201727947오류 유형: 390. diskpart의 set id 명령어에서 "The specified type is not in the correct format." 오류 발생
11207정성태5/24/201728261Windows: 142. Windows 10의 복구 콘솔로 부팅하는 방법
11206정성태5/24/201721553오류 유형: 389. DISM.exe - The specified image in the specified wim is already mounted for read/write access.
11205정성태5/24/201721270.NET Framework: 658. C#의 tail call 구현은? [1]
11204정성태5/22/201730808개발 환경 구성: 316. 간단하게 살펴보는 Docker for Windows [7]
11203정성태5/19/201718738오류 유형: 388. docker - Host does not exist: "default"
11202정성태5/19/201719809오류 유형: 387. WPF - There is no registered CultureInfo with the IetfLanguageTag 'ug'.
11201정성태5/16/201722555오류 유형: 386. WPF - .NET 3.5 이하에서 TextBox에 한글 입력 시 TextChanged 이벤트의 비정상 종료 문제 [1]파일 다운로드1
11200정성태5/16/201719331오류 유형: 385. WPF - 폰트가 없어 System.IO.FileNotFoundException 예외가 발생하는 경우
11199정성태5/16/201721158.NET Framework: 657. CultureInfo.GetCultures가 반환하는 값
... 106  107  [108]  109  110  111  112  113  114  115  116  117  118  119  120  ...