VC에서 VB DLL 호출하기

원본 따라가기 : http://alexk.springnote.com/pages/2954834
제일 밑의 <추가> 부분이 제가 VB를 사용하는 이유입니다.

VB DLL은 액티브엑스 방식이어서 일반 VC에서 사용하는 DLL호출방법은 쓸 수가 없습니다.
여기 VB DLL을 불러서 사용하는 괜찮은 방법을 소개할 까 합니다. 제가 지금 사용중인데 매우 잘 돌아갑니
다.

1. VB으로 MurickCom이라는 프로젝트에 clsMurick라는 클래스를 만들어서 함수를 등록시킵니다.
2. 주의사항은 될 수 있는데로 함수에서 사용하는 리턴형과 아규먼트의 타입을 정확히 기재합니다.이것을
안해주게 되면 나중에 C에서 Variant라는 잡변수형태로 나타나게 됩니다. 이거 처리하는거 어렵습니다.

예를 들어

Public Function CountStringLength(ByVal strValue As String) As Long
    If strValue = vbNullString Then
            CountStringLength = 0
        Else
            CountStringLength = Len(strValue)
        End If
End Function

라고 합니다.
3. DLL을 만듭니다. 예를 들어 C:\Murick에 만들었다고 가정하지요.

File -> Make MurickCom.dll

4. 그리고 Visual Studio 6.0 폴더에 Visual Studio 6.0 도구들이라고 있습니다.
여기에 OLEViewer라고 있습니다.
요놈을 클릭하면 어플리케이션이 나타나는데 좌측 트리에 Type Libraries를 더블클릭합니다.
그밑으로 현재 사용중인 OLE의 DLL파일들이 좌악 나타나지요. 제목으로 방금 만든 MurickCom.dll을 찾습니다.
만약 외부에서 만든 dll이면 시작 메뉴 -> 실행 -> regsvr32 경로\~.dll 엔터를 치시면 등록됩니다.

5. 찾았으면 그놈을 더블 클릭합니다.

6. ITypeLib Viewer라는 프로그램이 나타나며 오른쪽에 DLL을 C로 변경한 코드가 나타납니다.

7. 이것을 MurickCom.IDL로 저장합니다.

(그냥 저장 도구를 누르면 IDL파일로 저장됩니다.)
당연히 요놈도 C:\Murick에 저장합니다.

8. 그다음 도스창을 열어 C:\Murick으로 가서 다음과 같은 명령을 줍니다.

C:\Murick\midl MurickCOM.idl /h MurickCOM.h 엔터

9.그러면 MurickCom.h와 MurickCom_i.c라는 두개의 파일이 만들어 집니다. 요놈을 현재 DLL을 불러들일 프로젝트를 열어 Project -> Add to Project -> Files에 추가합니다.

10. Dll을 사용할 클래스를 열어 #include <comdef.h> ,#include "MurickCOM.h"를 추가합니다.

11. 사용할 함수에 다음과 같은 코드를 넣습니다.

HRESULT hr;
    _clsMurick * IVBTestClass = NULL;
   
    // COM을 초기화합니다
    hr = CoInitialize(0);

    // 초기화에 성공하였다면,
    if(SUCCEEDED(hr))
    {
        //우리가 만든 비베DLL을 사용할 핸들을 초기화합니다.
        hr = CoCreateInstance( CLSID_clsMurick,
                    NULL,
                    CLSCTX_INPROC_SERVER,
                    IID__clsMurick,
                    (void**) &IVBTestClass);
       
        if(SUCCEEDED(hr))
        {
            long        ReturnValue;
            _bstr_t        bstrValue("Hello World");

            //실제 DLL함수를 호출하는 곳입니다.
            hr = IVBTestClass->CountStringLength(bstrValue, &ReturnValue);
            hr = IVBTestClass->Release();
        }
        else
        {
            // 뭔가 잘못되었다면
            AfxMessageBox("CoCreateInstance Failed.");
        }
    }
    CoUninitialize();
    

추가 -> VC에서는 매우 어렵게 구현하는 ADO를 VB에는 아주 쉽게 사용합니다. 그밖에 VB에서 사용되는 아
주 쉬운 기능들이 VC에서는 매우 어렵게 해야 구현되는 경우가 많습니다. 이럴경우 위와 같은 방법을 사용
하여 VB과 VC를 연동하여 프로그램을 한다면 많은 부분에서 시간을 절약할 수 있으리라 생각합니다.

---

위 방법을 사용하기에는 약간 귀찮죠. IDL 파일을 만들어야 하고 또 다시 헤더 파일을 만들어야 하니까요.
더 쉬운 방법으로는 #import 하여 사용하는 방법이 있습니다.

#import "CallMSTNJ.dll" no_namespace

사용 예)

CoInitialize(NULL);
_CCallMSTNJPtr pDa;

pDa.CreateInstance(__uuidof(CCallMSTNJ));
_bstr_t        bstrValue("Hello World");
long res = pDa->CountStringLength(bstrValue);
_bstr_t bstrMSTNJFilePath("C:\\Bentley\\Program\\MicroStation\\ustation.exe");
_bstr_t bstrDGNFilePath("E:\\PROJECT\\aTech\\aDraw\\Data\\DEMO_A\\Output\\6000-001.dgn");
_bstr_t bstrCmdFilePath("E:\\PROJECT\\aTech\\aDraw\\Data\\DEMO_A\\Working\\pds.cmd");
pDa->CallMSTNJ(bstrMSTNJFilePath , bstrDGNFilePath , bstrCmdFilePath);
pDa.Detach();

CoUninitialize();

좀더 쉽게 사용할 수 있습니다.