Ôñüðïò ðñüóâáóçò óå ìéá âéâëéïèÞêç DLL ActiveX ôçò Visual Basic áðü ìéá åêôåëÝóéìç Visual C++ 6.0

ÅðéóôñïöÞ óôçí áñ÷Þ

ÂÞìáôá ãéá ôç äçìéïõñãßá ôïõ äéáêïìéóôÞ ôçò Visual Basic

1. Ãéá íá äçìéïõñãÞóåôå Ýíá Ýñãï ôçò Visual Basic ActiveX DLL. Class1 äçìéïõñãåßôáé áðü ðñïåðéëïãÞ.
2. ÐñïóèÝóôå ôïí áêüëïõèï êþäéêá Class1:

         Public Function MyVBFunction(x As Integer) As Integer
            MsgBox x
         End Function
   						

3. Ìåôáãëþôôéóç ôïõ áñ÷åßïõ DLL ùò c:\Project1.dll êáé íá êëåßóåôå ôçí Åðåîåñãáóßá Visual Basic.

1. ÎåêéíÞóôå ôï Visual C++ êáé åðéëÝîôå Äçìéïõñãßá óôï ìåíïý áñ÷åßï. ÅðéëÝîôå AppWizard MFC (Exe) êáé Ýíá üíïìá Ýñãïõ êáé êÜíôå êëéê óôï êïõìðß OK. ¼ôáí ôï MFC AppWizard åìöáíßæåôáé ôï ðáñÜèõñï äéáëüãïõ, åðéëÝîôå ÔÝëïò. ÊÜíôå êëéê óôï êïõìðß OK óôï åðüìåíï ðáñÜèõñï äéáëüãïõ.
2. ÅðéëÝîôå ClassWizard óôï ìåíïý ÐñïâïëÞ, åðéëÝîôå Ctst1App óôï ðëáßóéï üíïìá êëÜóçò êáé êÜíôå äéðëü êëéê óôï InitInstance óôï ðëáßóéï ìçíõìÜôùí. ÊÜíôå êëéê óôï êïõìðß Åðåîåñãáóßá êþäéêá ãéá íá åìöáíéóôåß ï êùäéêüò ãéá CTst1App::InitInstance() ÄÕÁÄÉʼÓ, âñåßôå ôç ãñáììÞ AfxEnableControlContainer(); êáé ðñïóèÝóôå ôçí áêüëïõèç ãñáììÞ ðñéí áðü áõôÞ:

         AfxOleInit();

3. ÅðéëÝîôå ClassWizard áðü ôï ìåíïý "ÐñïâïëÞ" êáé êÜíôå êëéê óôçí êáñôÝëá ôçò áõôïìáôïðïßçóçò. AddClass êÜíôå êëéê êáé åðéëÝîôå "áðü Ýíá TypeLibrary". Êáèïñéóìüò Project1.dll, ôï áñ÷åßï DLL ôçò Visual Basic ðïõ äçìéïõñãÞèçêå óôï âÞìá 3. ¼ôáí åìöáíéóôåß ôï ðáñÜèõñï äéáëüãïõ åðéâåâáßùóç êáôçãïñßåò, êÜíôå êëéê óôï êïõìðß OK. ÊÜíôå êëéê óôï êïõìðß OK ãéá íá êëåßóåôå ôï MFC ClassWizard ðáñÜèõñï äéáëüãïõ.
4. Áíïßîôå ôï áñ÷åßï .cpp <app name="">êáé ðñïóèÝóôå ôç ãñáììÞ # include "Project1.h". ÐñÝðåé íá óõìðåñéëÜâåôå Project1.h, üðïõ êáé áí Ý÷åôå êùäéêü ðïõ Ý÷åé ðñüóâáóç óå project1.dll. </app>
5. Áíïßîôå îáíÜ ôï ClassWizard. Óôçí êáñôÝëá ðßíáêåò ìçíõìÜôùí, åðéëÝîôå CAboutDlg óôï ðëáßóéï üíïìá êëÜóçò êáé IDOK óôï ðëáßóéï áíáãíùñéóôéêü áíôéêåéìÝíïõ êáé, óôç óõíÝ÷åéá, êÜíôå äéðëü êëéê óôï BN_CLICKED. Ùò áðüêñéóç óôï ðáñÜèõñï äéáëüãïõ êáé OK ãéá íá êëåßóåôå ôï ClassWizard, êÜíôå êëéê óôï êïõìðß OK.
6. ¢íïéãìá <app name="">.cpp, ìåôáêéíçèåßôå ìå êýëéóç ðñïò ôá êÜôù ãéá íá theCAboutDlg::OnOK() êáé áíôéêáôáóôÞóôå ìå ôïí áêüëïõèï êþäéêá:</app>

         void CAboutDlg::OnOK()
         {
   
         short st = 2;
         short st1;
         _Class1 p;
         p.CreateDispatch("Project1.Class1");
         st1 = p.MyVBFunction(&st);
         CDialog::OnOK();
         }
   						

7. Ç ìåôáãëþôôéóç ôïõ áñ÷åßïõ .exe (F7).
8. ÅêôåëÝóôå ôï áñ÷åßï .exe êáé åðéëÝîôå ðëçñïöïñßåò ó÷åôéêÜ ìå ôï ìåíïý "ÂïÞèåéá". ÊÜíôå êëéê óôï êïõìðß OK óôï ðëáßóéï ðëçñïöïñßåò êáé íá åìöáíéóôåß ôï ðëáßóéï ìçíýìáôïò ðïõ êáèïñßóôçêå óôçí project1.dll. ÊÜíôå êëéê óôï êïõìðß "Êëåßóéìï" ãéá íá êëåßóåôå ôï ðáñÜèõñï äéáëüãïõ.

1. ÎåêéíÞóôå ôï Visual C++ 6.0 êáé äçìéïõñãÞóôå ìéá êïíóüëá Win32 åöáñìïãÞò. ÅðéëÝîôå "¸íá êåíü Ýñãï" êáé êÜíôå êëéê óôï êïõìðß ÔÝëïò.
2. Óçìåßï ãéá ðñïóèÞêç óôï Project, óôï ìåíïý ' Ýñãï ' êáé íÝá êÜíôå êëéê ãéá íá ðñïóèÝóåôå Ýíá íÝï áñ÷åßï ðñïÝëåõóçò äåäïìÝíùí C++ óôï Ýñãï. ÅðéêïëëÞóôå ôïí áêüëïõèï êþäéêá óôï íÝï áñ÷åßï ðñïÝëåõóçò êáé ôï áðïèçêåýóåôå:

         #include <stdio.h>
   
         // This is the path for your DLL.
         // Make sure that you specify the exact path.
   
         #import "c:\project1.dll"  no_namespace
   
         void main()
         {
          BSTR bstrDesc;
   
         try
         {
         CoInitialize(NULL);
         short st = 2;
          short st1;
         // Declare the Interface Pointer for your Visual Basic object. Here,
         // _Class1Ptr is the Smart pointer wrapper class representing the
         // default interface of the Visual Basic object.
   
         _Class1Ptr ptr;
         // Create an instance of your Visual Basic object, here
         // __uuidof(Class1) gets the CLSID of your Visual Basic object.
   
          ptr.CreateInstance(__uuidof(Class1));
          st1 = ptr->MyVBFunction(&st);
         }
         catch(_com_error &e)
         {
          bstrDesc = e.Description();
   
         }
         CoUninitialize();
         }
   						

3. Ìåôáãëþôôéóç êáé åêôÝëåóç ôïõ Ýñãïõ óáò. ÐñÝðåé íá åìöáíéóôåß ôï ðëáßóéï ìçíýìáôïò áðü Project1.DLL.

1. ÎåêéíÞóôå ôï Visual C++ êáé åðéëÝîôå Äçìéïõñãßá áðü ôï ìåíïý "áñ÷åßï". ÅðéëÝîôå AppWizard MFC (Exe), ïíïìÜóôå ôï tst1 Ýñãï êáé êÜíôå êëéê óôï êïõìðß OK. ¼ôáí ôï MFC Appwizard ðáñÜèõñï äéáëüãïõ åìöáíßæåôáé, åðéëÝîôå ìå ôï ðáñÜèõñï äéáëüãïõ êáé êÜíôå êëéê óôï êïõìðß ÔÝëïò. ¼ôáí åìöáíéóôåß ôï åðüìåíï ðáñÜèõñï äéáëüãïõ, êÜíôå êëéê óôï êïõìðß OK.
2. Ôï ðñüãñáììá åðåîåñãáóßáò ðüñùí åíåñãïðïéåßôáé áðü ðñïåðéëïãÞ. ÄéáãñÜøôå üëá ôá óôïé÷åßá åëÝã÷ïõ óôï ðáñÜèõñï äéáëüãïõ êáé íá ðñïóèÝóåôå Ýíá êïõìðß åíôïëÞò, äéáôçñþíôáò ôçí ðñïåðéëåãìÝíç ëåæÜíôá "Button1".
3. ÊÜíôå äéðëü êëéê ãéá íá åìöáíßóåôå ôç ëåéôïõñãßá ìÝëïò ÐñïóèÞêç Button1 ðáñÜèõñï äéáëüãïõ. ÊÜíôå êëéê óôï êïõìðß OK ãéá íá áðïäå÷èåßôå ôï üíïìá OnButton1.
4. Óôï ìåíïý Åñãáëåßá, êÜíôå êëéê óôï ðñüãñáììá ðñïâïëÞò ãéá ôï áíôéêåßìåíï OLE/COM. Select View Typelib from the File menu and choose the Project1.dll you created earlier. Click Open to display the ITypeLib Viewer, which contains the .idl file for your DLL.
5. Copy the contents of your .idl file (contents of the right pane) to the Clipboard. Hold the SHIFT key down while paging or scrolling from the first character to the end of the text in the pane. Press Ctrl+C to copy the marked text to the Clipboard.
6. Click New on Visual C++ File menu. Select Text File on the New dialog box, name the file test1.idl, and click OK.
7. A blank text file appears. Paste the data from the Clipboard into it and save the file.
8. Select Settings from the Project menu, expand the tst1 and Source Files nodes of the tree view, and select test1.idl. Click the MIDL tab, enter test1.h in the "Output header file name" box, and click OK.
9. Open tst1Dlg.cpp and add the following files to the includes section:

         #include <initguid.h>
         #include "test1.h"
   						

10. Click the ClassWizard on the View menu, select Ctst1App in the Class Name box, and double-click InitInstance in the Messages box. Click Edit Code to bring up the code for:

          BOOL CTst1App::InitInstance()
    						

    Find the line:

          AfxEnableControlContainer();
    						

    Add the following line before it:

          AfxOleInit();
    						

11. Open the ClassWizard again. On the Message Maps tab select CTst1Dlg in the Class Name box and IDC_BUTTON1 in the Object IDs box. Double-click BN_CLICKED in the Messages box, and click Edit Code to bring up the code for void CTst1Dlg::OnButton1(). Replace the OnButton1() function with the following code:

          void CTst1Dlg::OnButton1()
          {
             // TODO: Add your control notification handler code here.
    
             _Class1 *pClass = NULL;
             IUnknown *pUnk = NULL;
    
          //   HRESULT hr = CoCreateInstance(CLSID_Class1,NULL,
          //   CLSCTX_INPROC_SERVER,IID__Class1,(void **)&pClass);
          //   You can directly get the Interface ID as in the previous line or
          //   you can do a QueryInterface on IUnknown to get the IID
          //   as in the following three lines:
    
          HRESULT hr = CoCreateInstance(CLSID_Class1,NULL,CLSCTX_INPROC_SERVER,
          IID_IUnknown,(void **)&pUnk);
          hr = pUnk->QueryInterface(IID__Class1,(void **)&pClass);
          pUnk->Release();
    
          // Once you have the IID, you can make use of the interface pointer
          // to access our Visual Basic DLL.
    
          short st = 2;
          short st1;
          hr = pClass->MyVBFunction(&st,&st1);
          pClass->Release();
    
          }
    						

12. Compile your .exe file (F7) and run your application (F5). Click Button1 in the dialog box. The message box from the Visual Basic DLL appears.

ÅðéóôñïöÞ óôçí áñ÷Þ