Oturum a�

Select the product you need help with

Bir SafeArray dizelerin bir VARIANT * Visual C++ ile Visual Basic 6.0 aras�nda ge�irmek hakk�nda

Makale numaras�: 167668 - Bu makalenin ge�erli oldu�u �r�nleri g�r�n.

Otomatik terc�me makalelerin ne oldu�unu a��klayan yaz�y� okumak i�in buraya t�klay�n

�ngilizce ve T�rk�e'yi yan yana g�r�nt�leme

Buraya t�klayarak �ngilizce ve T�rk�e'yi yan yana g�r�nt�leyebilirsiniz.

Not Microsoft Visual C++ .NET (2002), Microsoft .NET Framework taraf�ndan sa�lanan bir y�netilen kod model hem de yerel Microsoft Windows kod modeli y�netilmeyen destekler. Bu makaledeki bilgiler yaln�zca y�netilmeyen Visual C++ kod uygulan�r.

Hepsini a� | Hepsini kapa

�zet

Visual C++ ile Visual Basic 6.0, �o�u aras�ndaki SafeArray SafeArray bir parametre ge�irmek ge�irilmesi �zerinde bilgi bakt��n�zda, VARIANT yaz�n. MFC i�inde bu bir "Sabit bir VARIANT & varName" parametresi �evirir.

Alternatif olarak, bu makalede, bir VARIANT, MFC bir "* VARIANT FAR varName" parametresi olarak bildirilen *, ge�irilecek nas�l anlat�yor.

Neden, �zerinde di�er bir y�ntem kullanmal�s�n�z? �o�u uygulama, bir VARIANT, ancak t�m ge�irilen bir SafeArray de�i�iklikler izin vermek i�in. Excel 95'te, bir SafeArray i�inde bir VARIANT bir Visual C++ i�in ge�irebilirsiniz sunucu, sunucu de�erleri de�i�tirmek, de�i�tirilmi� olan SafeArray, d�nmek ve Excel 95'te herhangi bir de�i�iklik yok. Bu y�ntemi kullanmak �zere ba�ka bir nedenle erken ba�lama kulland��n�zda, Visual Basic 6. 0'daki bir s�n�rlamaya ge�ici bir ��z�m sa�lamakt�r.

�ste | Geri Bildirim Ver

Daha fazla bilgi

Bu kavram g�stermek i�in <a0></a0>, StrArray adl� yeni bir "MFC AppWizard(exe)" proje ile ba�lat�n. "Ad�m 3, 6," Automation ' � se�in, sonra da son ' u t�klat�n ve proje dosyalar�n� olu�turmak i�in Tamam ' � t�klat�n.

Not: Visual Studio. NET'i kullanarak,: bir yeni "MFC uygulamas�" olu�tur StrArray adl� bir proje. Geli�mi� �zellikler sekmesindeki Automation ' � se�in ve sonra da <a2>proje dosyalar�n� olu�turmak i�in son</a2>'� t�klat�n.

�imdi bir tek Otomasyon y�ntemi ClassWizard kullanarak olu�turun. ClassWizard i�inde <a0>alt�nda se�in "CStrArrayDoc" "s�n�f ad�:". Otomasyon sekmesini t�klat�n ve Y�ntemi, Add'i t�klat�n. A�a��daki de�erleri y�ntem Ekle</a1> ileti�im kutusuna girin:

Not: Visual Studio. NET'i kullanarak,: "S�n�f G�r�n�m" kullanarak tek bir Otomasyon y�ntem Ekle. S�n�f g�r�n�m a�ac�n� geni�letin ve i�in VCCOdeIDLLibrary Arama girdisi. Bu d��m alt�nda IStrArray arabirimi bulun. Arabirimi sa� t�klat�n ve sonra da Ekleme y�ntemi se�in. A�a��daki de�erleri y�ntem Ekle</a1> ileti�im kutusuna girin:

   External Name : Sort
   Internal Name : Sort
   Return Type   : long
   Parameter List:

      Name       : vArray
      Type       : VARIANT*

Tamam ' � ve kodu D�zenle ' yi t�klat�n.

S�ralama y�ntemi uygulamak i�in a�a��daki BA�VURULAR b�l�m�nde MFCARRAY �rnek FastSort y�ntemini kullan�n. Bu parametre, bir "sabit bir VARIANT & varName" ge�irerek aras�ndaki farklar g�rmenize olanak verir ve bir "VAR�ANT * varName". S�ralama y�ntemi a�a��daki gibi de�i�tirin:

   ...
   #include <afxpriv.h>
   ...
   long CStrArrayDoc::Sort(VARIANT FAR* vArray)
   {

      long i, j, min;
      BSTR bstrTemp;
      SAFEARRAY FAR* psa = NULL;
      BSTR HUGEP *pbstr;
      HRESULT hr;
      DWORD dwTimeStart;
      LONG cElements, lLBound, lUBound;

      USES_CONVERSION;

      // Type check VARIANT parameter. It should contain a BSTR array
      // passed by reference. The array must be passed by reference it is
      // an in-out-parameter.
      if (V_VT(vArray) != (VT_ARRAY | VT_BSTR))
         AfxThrowOleDispatchException(1001,
           "Type Mismatch in Parameter. Pass a string array by reference");
      psa = V_ARRAY(vArray);
      // Check dimensions of the array.
      if (SafeArrayGetDim(psa) != 1)
         AfxThrowOleDispatchException(1002,
           "Type Mismatch in Parameter. Pass a one-dimensional array");

      dwTimeStart = GetTickCount();

      // Get array bounds.
      hr = SafeArrayGetLBound(psa, 1, &lLBound);
      if (FAILED(hr))
          goto error;
      hr = SafeArrayGetUBound(psa, 1, &lUBound);
      if (FAILED(hr))
          goto error;

      // Get a pointer to the elements of the array.
      hr = SafeArrayAccessData(psa, (void HUGEP* FAR*)&pbstr);
      if (FAILED(hr))
         goto error;

      // Bubble sort.
      cElements = lUBound-lLBound+1;
      for (i = 0; i < cElements-1; i++)
      {
         min = i;
         for (j = i+1; j < cElements; j++)
         {
            // NULL is a valid value for a BSTR. This code treats a NULL
            // BSTR as less than other string values.
            if (pbstr[min] == NULL)
               continue;
            else if (pbstr[j] == NULL
               || wcscmp(pbstr[j], pbstr[min]) < 0)
               min = j;
         }

         //Swap array[min] and array[i].
         bstrTemp = pbstr[min];
         pbstr[min] = pbstr[i];
         pbstr[i] = bstrTemp;
      }

      hr = SafeArrayUnaccessData(psa);
      if (FAILED(hr))
         goto error;

      return GetTickCount()-dwTimeStart;

   error:

      AfxThrowOleDispatchException(1003,
        "Unexpected Failure in FastSort method");
      return 0;

   }

�imdi olu�turmak ve Otomasyon sunucusu s�nay�n. Sunucu olu�turun, sonra �al��t�r�n kaydetmek i�in bir ba��ms�z. Visual Basic 6. 0'� �al��t�r�n ve yeni bir Visual Basic 6.0 projesi olu�turun. Formda bir d��meyi getirin ve i�leyicisi, a�a��daki kod e�le�ecek �ekilde de�i�tirin:

   Private Sub Command1_Click()
      Dim o As Object
      Dim v As Variant
      ReDim v(50) As String
      Dim SortTime As Long

      Set o = CreateObject("StrArray.Document")

      upperbound = 1
      lowerbound = 100
      For n = 0 To 50
          v(n) = "Entry " & Int((upperbound-lowerbound+1)*Rnd+lowerbound)
      Next n

      SortTime = o.Sort(v)
      MsgBox ("Done")
   End Sub

Visual Basic 6.0 ile �al��mak i�in bu s�zdizimini almak i�in bu anahtar, ilk Byt dizi de�i�keni olarak bir t�revi i�in ve b�ylece bu dize dizisi i�eren bir varyant duruma ReDim. Sunucu s�namak art�k haz�rs�n�z. Kesme noktalar�, Visual Basic 6.0 kod �nce veya sonra s�ralama �a�r�s� ayarlay�n. Visual Basic 6.0 uygulamas�n� �al��t�r�n, Command1'� t�klat�n ve sonra da G�zc� penceresi v de�erleri denetlemek i�in kullan�n.

�ste | Geri Bildirim Ver

Referanslar

Daha fazla bilgi i�in, Microsoft Bilgi Bankas�'ndaki makaleleri g�r�nt�lemek �zere a�a��daki makale numaralar�n� t�klat�n:

122287

(http://support.microsoft.com/kb/122287/ )

Visual Basic 3.0 & Disptest s�n�rlar�n� Otomasyon denetleyicileri olarak

131046

(http://support.microsoft.com/kb/131046/ )

Binary.exe OLE otomasyonunu kullanarak ikili veri aktar�mlar�

131086

(http://support.microsoft.com/kb/131086/ )

G�venli diziler, otomasyon kullanma

140202

(http://support.microsoft.com/kb/140202/ )

MFCArray g�venli diziler MFC Otomasyon kullanma

122289

(http://support.microsoft.com/kb/122289/ )

OLE otomasyonunu yap�lar�n� ge�irme

154172

(http://support.microsoft.com/kb/154172/ )

Ikili veri, bir ActiveX denetimi VB aras�nda ge�irmek i�in

Microsoft Sistem g�nl��, Haziran 1996 "Soru ve Cevap OLE" olarak Don Box.

(c) 1997 Microsoft Corporation, t�m haklar� sakl�d�r. Katk�y� Shawn W. Karr, Microsoft Corporation.

�ste | Geri Bildirim Ver

�zellikler

Makale numaras�: 167668 - Son G�zden Ge�irme: 21 Kas�m 2006 Sal� - G�zden ge�irme: 3.1

Bu makaledeki bilginin uyguland�� durum:

Microsoft Foundation Class Library 4.2, Ne zaman ne ile kullanilir:

Microsoft Visual C++ 2.0 Professional Edition
Microsoft Visual C++ 2.1
Microsoft Visual C++ 2.2
Microsoft Visual C++ 4.0 Standard Edition
Microsoft Visual C++ 4.0 Standard Edition
Microsoft Visual C++ 4.1 Aboneli�i
Microsoft Visual C++ 4.2 Professional Edition
Microsoft Visual C++ 4.2 Enterprise Edition
Microsoft Visual C++ 5.0 Enterprise Edition
Microsoft Visual C++ 6.0 Enterprise Edition
Microsoft Visual C++ 4.2 Professional Edition
Microsoft Visual C++ 5.0 Professional Edition
Microsoft Visual C++ 6.0 Professional Edition
Microsoft Visual C++, 32-bit Learning Edition 6.0
Microsoft Visual C++ .NET 2002 Standard Edition

Microsoft Visual C++ .NET 2003 Standard Edition

kbmt kbautomation kbfaq kbhowto KB167668 KbMttr

Otomatik Terc�me

�NEML�: Bu makale, bir ki�i taraf�ndan �evrilmek yerine, Microsoft makine-�evirisi yaz�l�m� ile �evrilmi�tir. Microsoft size hem ki�iler taraf�ndan �evrilmi�, hem de makine-�evrisi ile �evrilmi� makaleler sunar. B�ylelikle, bilgi bankam�zdaki t�m makalelere, kendi dilinizde ula�m�� olursunuz. Bununla birlikte, makine taraf�ndan �evrilmi� makaleler m�kemmel de�ildir. Bir yabanc�n�n sizin dilinizde konu�urken yapabilece�i hatalar gibi, makale; kelime da�arc��, s�z dizim kurallar� veya dil bilgisi a��s�ndan yanl��lar i�erebilir. Microsoft, i�eri�in yanl�� evrimi veya onun m��teri taraf�ndan kullan�m�ndan do�an; kusur, hata veya zarardan sorumlu de�ildir. Microsoft ayr�ca makine �evirisi yaz�l�m�n� s�k�a g�ncellemektedir.

Makalenin �ngilizcesi a�a��daki gibidir:167668

(http://support.microsoft.com/kb/167668/en-us/ )

�ste | Geri Bildirim Ver

Geri Bildirim Ver

�ste

Select the product you need help with

Bir SafeArray dizelerin bir VARIANT * Visual C++ ile Visual Basic 6.0 aras�nda ge�irmek hakk�nda

�zet

Daha fazla bilgi

Referanslar

�zellikler

Bu makaledeki bilginin uyguland�� durum:

Anahtar Kelimeler:�

Geri Bildirim Ver

Makale �evirileri

Select the product you need help with

Bir SafeArray dizelerin bir VARIANT * Visual C++ ile Visual Basic 6.0 aras�nda ge�irmek hakk�nda

�zet

Daha fazla bilgi

Referanslar

�zellikler

Bu makaledeki bilginin uyguland��� durum:

Anahtar Kelimeler:�

Geri Bildirim Ver

Makale �evirileri

Bu makaledeki bilginin uyguland�� durum: