Nasýl yapýlýr: C DLL VB ile bir tür kitaplýðý için daha eriþilebilir yapma

Ilk yayýnlandýðýndan bu yana DECLARE bildirimi olarak c gibi baþka dillerde yazýlan bir DLL iþlevi yararlanmak için Visual Basic saðladý. Ancak Declare ifadeleri mükemmel'den küçük ve genellikle DLL hakkýnda daha fazla gibi Visual Basic kodu hakkýnda bilmeniz gerekir. Bir tür kitaplýðý, verilen C iþlevlerini çaðýran bir daha fazla Visual Basic kolay yolu oluþturur.

Bu makalede, DLL ve nasýl yapýlýr: Bu kitaplýðý Visual gelen baþvuru oluþturduðunuzda, bir tür kitaplýðý Basic oluþturulmasý gösterilmiþtir.

Tür kitaplýklarý Otomasyonu içinde kullanýlan bileþik belge (.tlb dosyalarý) dosyalarýdýr. Bunlar, türleri, nesneleri, modüller ve istemcileri için bir Otomasyon sunucusu tarafýndan gösterilen arabirim hakkýnda önemli bilgiler içerir. Neyse ki, bir sunucu Otomasyon bir tür kitaplýðý olanaklarýndan yararlanacak þekilde duyarlý olmasý gerekmez. Aslýnda, birçok C dll Otomasyon sunucularýdýr deðil. Tüm gerekli olan, DLL C bir tür kitaplýðý bir modülde bir üyesi olarak iþlevlerini bildirmek. Visual Basic gibi bir Otomasyon istemcisi bu bilgileri okuyun ve herhangi bir nesne gibi kendisine baðlayabilirsiniz. Sabitler, çünkü tüm iþ Visual Basic yapar anýmsanmasý gerek Declare ifadeleri veya sabit.

Bir tür kitaplýðý, dll DOSYASý oluþturulurken çeþitli yararlarý vardýr. Bunlardan en önemli daha iyi bir tür güvenliði var. Ancak, Visual Basic, erken baðlama kullanarak iþlevlerinizi otomatik olarak baðlar için de avantajý, daha iyi performans için aldýðýnýz. Buna ek olarak, tüm Declare ifadeleri sonradan baðlanan ' dir. Ayrýca, Visual Basic programcýlarý için DLL dosyanýzýn sunulan biçimi üzerinde daha fazla denetim elde edersiniz. Tür kitaplýðý Visual Basic kolay adlarý iþlevleri ve numaralandýrma ve kullanýcý tanýmlý türler (UDTs) gibi yararlý ek özellikler ile birlikte, parametre girmenizi saðlar.

Þimdilik, tür kitaplýklarýnýn arabirim tanýmlama dili (IDL) veya nesne Açýklama Dili (ODL) yazýlmýþ komut dosyalarýný kullanarak oluþturulur. Bu komut dosyalarý MkTypLib.EXE veya Visual Studio ile birlikte gelen MIDL.EXE derlenir. Visual C++ projenizi derlerken DLL projenizi iliþkilendiren ODL dosyalarý otomatik olarak ile MIDL derleneceði nedeniyle bazý tür kitaplýklarýnýn, oluþturma, iþ alýr.

Adým adým örnek - DLL ve tür kitaplýðý oluþtur

1. Visual C++ 5.0'ný açýn ve File|New seçin. Projeler sekmesinde, "Win32 dinamik baðlantý kitaplýðý" seçin ve "TLBSamp" proje adý
2. File|New yeniden seçin. Dosyalar sekmesindeki "C++ kaynak dosyasý," <a1>Ad</a1> "TLBSamp.c" dosyasýný seçin ve TAMAM'A basýn.
3. 2. Adýmda yeniden ve bu süre choose "Metin dosyasý" dosya türü olarak'yi yineleyin. Sýrasýyla "TLBSamp.def" ve "TLBSamp.odl" olarak adlandýrýn.
4. Ardýndan, aþaðýdaki kodu için TLBSamp.c ekleyin:
   

         #include <windows.h>
   
         // MyDll_ReverseString -- Reverses the characters of a given string
         void __stdcall MyDll_ReverseString(LPSTR lpString)
         {
            _strrev(lpString);
         }
   
         // MyDLL_Rotate -- Returns bit rotation of 32-bit integer value
         int __stdcall MyDll_Rotate(int nVal, int nDirect, short iNumBits)
         {
            int nRet = 0;
   
            if((iNumBits < 1) || (iNumBits > 31))
               return nRet;
   
            switch(nDirect)
            {
            case 0:
               // Rotate nVal left by iNumBits
               nRet = (((nVal) << (iNumBits)) |
                       ((nVal) >> (32-(iNumBits))));
               break;
            case 1:
               // Rotate nVal right by iNumBits
               nRet = (((nVal) >> (iNumBits)) |
                       ((nVal) << (32-(iNumBits))));
               break;
            }
   
            return nRet;
         }
   
   						

5. Iþlevleri verilebilir yapmak için TLBSamp.def aþaðýdakileri ekleyin:
   

         LIBRARY TLBSamp
         DESCRIPTION 'Microsoft KB Sample DLL'
         EXPORTS
           MyDll_ReverseString
           MyDll_Rotate
   
   						

6. Bilgisayarýnýzý bir tür kitaplýðý iþlevlerini TLBSamp.odl için aþaðýdaki ekleyerek bildirin:
   

         // This is the type library for TLBSamp.dll
         [
         // Use GUIDGEN.EXE to create the UUID that uniquely identifies
         // this library on the user's system. NOTE: This must be done!!
            uuid(F1B9E420-F306-11d1-996A-92FF02C40D32),
         // This helpstring defines how the library will appear in the
         // References dialog of VB.
            helpstring("KB Sample: Make your C DLL More Accessible"),
         // Assume standard English locale.
            lcid(0x0409),
         // Assign a version number to keep track of changes.
            version(1.0)
         ]
         library TLBSample
         {
   
         // Define an Enumeration to use in one of our functions.
         typedef enum tagRotateDirection
         {
            tlbRotateLeft=0,
            tlbRotateRight=1
         }RotateDirection;
   
         // Now define the module that will "declare" your C functions.
         [
            helpstring("Sample functions exported by TLibSamp.dll"),
            version(1.0),
         // Give the name of your DLL here.
            dllname("TLBSamp.dll")
         ]
         module MyDllFunctions
         {
   
            [
            // Add a description for your function that the developer can
            // read in the VB Object Browser.
               helpstring("Returns the reverse of a given string."),
            // Specify the actual DLL entry point for the function. Notice
            // the entry field is like the Alias keyword in a VB Declare
            // statement -- it allows you to specify a more friendly name
            // for your exported functions.
               entry("MyDll_ReverseString")
            ]
            // The [in], [out], and [in, out] keywords tell the Automation
            // client which direction parameters need to be passed. Some
            // calls can be optimized if a function only needs a parameter
            // to be passed one-way.
            void __stdcall ReverseString([in, out] LPSTR sMyString);
   
            [
               helpstring("Rotates a Long value in the given direction."),
               entry("MyDll_Rotate")
            ]
            // Besides specifying more friendly names, you can specify a more
            // friendly type for a parameter. Notice the Direction parameter
            // has been declared with our enumeration. This gives the VB
            // developer easy access to our constant values.
            int __stdcall BitRotate([in] int Value,
                                    [in] RotateDirection Direction,
                                    [in] short Bits);
   
         } // End of Module
         }; // End of Library
   
   						

7. DLL ve tür kitaplýðýnýza yapý) menüsünde "Tümünü yeniden" seçerek derleyin. Tamamlandýðýnda, yeni DLL (TLBSamp.dll) sýnamak için Visual Basic dizininize kopyalayýn.

Not: bir konular, kullanýþlý bir kaynak DLL dosyanýzýn tipi kitaplýðýnýza eklemek isteyebilirsiniz. Bu, Visual Basic geliþtiricilerine TLB ayrý bir dosyaya daðýtmak zorunda boþaltmanýz.

Kitaplýk, bir kaynak olarak eklemek için aþaðýdaki adýmlarý izleyin:

1. File|New seçin. Dosyalar sekmesindeki "TLBSamp.rc" "Metin dosyasý," <a1>Ad</a1> dosyasýný seçin ve TAMAM'A basýn.
2. Görüntülenen metin penceresinde, aþaðýdaki satýrý ekleyin:
   
   1 typelib TLBSamp.tlb
3. Dosyayý kaydedin ve kendi DLL'i yeniden derleyin. Tamamlandýðýnda, yeni DLL (TLBSamp.dll) sýnama; Visual Basic dizininize kopyalayýn istemde bulunulursa, önceki dosyanýn üzerine yazýlsýn.

Adým adým örnek - Visual Basic sýnama uygulamasý

1. DLL ve tür kitaplýðýnýza sýnamak için Visual Basic 5. 0'ý açýn ve yeni bir standart proje oluþturmak için kullanýn. Varsayýlan olarak, Form1 oluþturulur.
2. Proje menüsünden çaðýrmak için baþvurular seçin baþvurularý iletiþim kutusunu týklatýn ve sonra bir kaynak olarak kitaplýðý eklediyseniz, yeni bir tür kitaplýðý'ný (veya kendi DLL) bulmak için Gözat. Dosyayý bulduktan sonra Tamam'ý týklatýn. Visual Basic otomatik kitaplýk için ilk kez, baþvuru kaydeder. Emin kitaplýðýnýzýn ("KB örnek: bilgisayarýnýzýn C DLL daha eriþilebilir yapma") formüllerdeki baþvurular listesi denetlendi ve iletiþim kutusunu kapatýn.
3. Nesne Tarayýcý duruma getirmek için F2 tuþuna basýn. Dikkat kitaplýðýnýzýn (TLBSamp), Visual Basic projesine eklenmiþ ve yalnýzca, yerel bir Visual Basic iþlevleri gibi iþlevlerinizi þimdi çaðrýlabilir. Geliþtirici BitRotate için <a1>Yön</a1> parametresinde yazarken Visual Basic bile numaralandýrma listenizin býrak iþlevi.
4. Form1'e bir KomutDüðmesi ekleyin ve bu düðmenin týklatýn aþaðýdaki kodu ekleyin olay:
   

         Private Sub Command1_Click()
            Dim n1 As Long, n2 As Long, nTmp As Long
            Dim sTest As String, sMsg As String
   
            sTest = "Hello World!"
            n1 = 100
   
            ReverseString sTest
              sMsg = sTest & " | "
            ReverseString sTest
              sMsg = sMsg & sTest & vbCrLf
   
            nTmp = BitRotate(n1, tlbRotateLeft, 2)
            n2 = BitRotate(nTmp, tlbRotateRight, 2)
              sMsg = sMsg & Str$(n1) & " : " & Str$(nTmp) & " : " & Str$(n2)
   
            MsgBox sMsg
         End Sub
   
   						

5. Þimdi ýDE'DE vb5allB proje çalýþtýrmak için F5 tuþuna basýn.
   
   Not: bir hata iletisi alýrsanýz, Visual Basic DLL dosyanýzýn bulunamýyor olabilir. Bilgisayarýnýzý sýnama uygulamasý çalýþtýrmadan önce Visual Basic dizin ya da sistem yolunuzu kopyaladýðýnýz emin olun.

ODL veya IDL yapýsý hakkýnda ek bilgi için lütfen Microsoft Developer Network (MSDN) Kitaplýðý'ndaki aþaðýdaki makalelere bakýn:

Ek bilgi için lütfen aþaðýdaki Microsoft Knowledge Base'deki makaleleri bakýn:

(c) Microsoft Corporation 1998, tüm haklarý saklýdýr. Tarafýndan katkýyý Richard R'ye Taylor, Microsoft Corporation