Bir Visual Basic ActiveX DLL DOSYASý, Visual C++ 6.0 yürütülebilir dosyasý ' eriþmek için

Üste

Adýmlarý Visual Basic sunucu oluþturmak için

1. Bir Visual Basic ActiveX DLL DOSYASý projesi oluþturun. Class1, varsayýlan olarak oluþturulur.
2. Class1 için aþaðýdaki kodu ekleyin:

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

3. DLL olarak c:\Project1.dll derlemek ve Visual Basic çýkýn.

1. Visual C++'ý baþlatýn ve Dosya menüsünden Yeni'yi seçin. MFC AppWizard (Exe) ve bir proje adý seçip, Tamam'ý týklatýn. Ne zaman iletiþim kutusu görüntülenirse, MFC AppWizard, Son'u týklatýn. Sonraki iletiþim kutusunda Tamam'ý týklatýn.
2. Görünüm menüsünde ClassWizard seçin, sýnýf adý kutusuna Ctst1App'i seçin ve InitInstance <a0>iletiler</a0> kutusunda çift týklatýn. Kodu için BOOL CTst1App::InitInstance() getirmek için satýrý bulun kod týklatýn AfxEnableControlContainer(); ve önce aþaðýdaki satýrý ekleyin:

         AfxOleInit();

3. Görünüm menüsünden ClassWizard seçin ve otomasyon sekmesini týklatarak AddClass'ý týklatýn ve sonra da TypeLibrary "'ý" seçin. Belirttiðiniz Project1.dll, adým 3'te oluþturulan Visual Basic DLL. Sýnýflarý Onayla iletiþim kutusu görüntülendiðinde, Tamam'ý týklatýn. Yeniden MFC kapatmak için Tamam'ý týklatýn ClassWizard iletiþim kutusu.
4. <Uyg Adý >.cpp dosyasýný ve satýr ekleme # "Project1.h" içerir. Project1.dll eriþen bir kod olan her yerde Project1.h eklemek gerekir.
5. ClassWizard yeniden açýn. Ileti eþlemeleri sekmesinde CAboutDlg sýnýf adý kutusuna IDOK <a0>nesne kimliði</a0> kutusunda seçin ve ve BN_CLICKED</a5>'ni çift týklatýn. Tamam, yanýt iletiþim kutusu ve yeniden ClassWizard kapatmak için Tamam'ý týklatýn.
6. Açýk < Uyg Adý >.cpp, theCAboutDlg::OnOK() için en altýna gidin ve bunu aþaðýdaki kodla deðiþtirin:

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

7. .Exe dosyasý (F7) derleyin.
8. .Exe dosyasýný çalýþtýrýn ve Yardým menüsünden hakkýnda'ni seçin. Tamam hakkýnda kutusunda týklatýn ve project1.dll içinde belirtilen ileti kutusu görünür. Iletiþim kutusunu kapatmak için Kapat düðmesini týklatýn.

1. Visual C++ 6.0 baþlatmak ve bir Win32 konsolu oluþturma uygulama. "Bir boþ proje" seçin ve sonra Finish'i (son) týklatýn.
2. Proje için yeni bir C++ kaynak dosyasý eklemek için Yeni'yi týklatýn ve Proje menüsünde Proje Ekle iþaretleyin. Yeni kaynak dosyasýnda aþaðýdaki kodu yapýþtýrýn ve kaydedebilirsiniz:

         #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. Derleyip projeyi çalýþtýrýn. Project1.DLL gelen ileti kutusu görünür.

1. Visual C++'ý baþlatýn ve Dosya menüsünden Yeni'yi seçin. MFC AppWizard seçin (Exe) proje tst1 adlandýrýn ve Tamam'ý týklatýn. Zaman MFC Appwizard iletiþim kutusu görüntülenir, iletiþim based seçin ve Son'u týklatýn. Sonraki iletiþim kutusu görüntülendiðinde, Tamam'ý týklatýn.
2. Kaynak Düzenleyici, varsayýlan olarak baþlatýlýr. Iletiþim kutusundaki tüm denetimleri silmek ve bir komut düðmesini <a0></a0> üzerinde varsayýlan resim yazýsý'ný "Button1" koruyarak ekleyin.
3. Üye Ekle iþlevini görüntülenecek Button1 çift iletiþim kutusu. OnButton1 adý kabul etmek için Tamam'ý týklatýn.
4. OLE/COM nesnesi Görüntüleyicisi Araçlar menüsünden Seçenekler'i týklatýn. <a0>Dosya</a0> menüsünden seçin görünüm Tür kitaplýðý yarattýðýnýz Project1.dll seçin. DLL dosyanýzýn .idl dosyasýný içeren ýtypelib görüntüleyiciyi görüntülemek için Aç'ý týklatýn.
5. (Içeriði sað bölmede) .idl dosyasýnýn içeriðini Pano'ya kopyalar. Disk belleði veya ilk karakteri bölmesindeki metnin sonuna kaydýrma sýrasýnda üst karakter tuþunu basýlý tutun. Iþaretli metni Pano'ya kopyalamak için CTRL + C tuþlarýna basýn.
6. Visual C++ Dosya menüsünden Yeni'yi týklatýn. Yeni iletiþim kutusunda, <a1>Ad</a1> dosya test1.idl, metin dosyasý seçin ve Tamam'ý týklatýn.
7. Boþ bir metin dosyasý olarak görünür. Panodan verileri içine yapýþtýrýn ve dosyayý kaydedin.
8. Proje menüsünden Ayarlar'ý seçin, tst1 ve kaynak dosyalarý Aðaç düðümlerini geniþletmek ve test1.idl seçin. MIDL sekmesini test1.h "Çýkýþ üstbilgi dosyasý adý" kutusuna girin ve Tamam'ý týklatýn.
9. Tst1Dlg.cpp açýn ve aþaðýdaki dosyalarý ekleme bölüm içerir:

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

10. Görünüm menüsünde ClassWizard'ý týklatýn, Ctst1App sýnýf adý kutusunda seçin ve <a0>iletiler</a0> kutusundaki InitInstance'ý çift týklatýn. Kod kodunu getirmek için Düzenle'yi týklatýn:

          BOOL CTst1App::InitInstance()
    						

    satýrý bulun:

          AfxEnableControlContainer();
    						

    önce aþaðýdaki satýrý ekleyin:

          AfxOleInit();
    						

11. ClassWizard yeniden açýn. Ileti eþlemeleri sekmesinde CTst1Dlg sýnýf adý kutusuna, IDC_BUTTON1 <a0>nesne kimliði</a0> kutusunda seçin. <a0>Iletiler</a0> kutusundaki BN_CLICKED'ý çift týklatýn ve kodu kodu için void CTst1Dlg::OnButton1() getirmek için Düzenle'yi týklatýn. OnButton1() iþlevi aþaðýdaki kodla deðiþtirin:

          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. .Exe dosyasý (F7) derleme ve uygulamanýzý (F5). Iletiþim kutusunda button1 Ek Yardým düðmesini týklatýn. Visual Basic DLL'nden ileti kutusu görünür.

Üste