萬盛學電腦網

 萬盛學電腦網 >> 網絡編程 >> 編程語言綜合 >> VB VC混合編程疑難問題解答

VB VC混合編程疑難問題解答

  我們在編寫VisualBasic應用程序的時候常常需要自己動手編寫一些庫函數或ActiveX控件,而這些函數或者控件常常采用VC 語言來寫,因而也常為VB和VC兩種語言之間不同參數類型、內存空間使用方法等問題為難,怎麼做好呢?本文介紹了在VB和VC混合編程的情況下對這些問題的解決方法。

  一、自定義類型參數向DLL庫函數的傳遞

  用VB,VC 進行混合編程時,通常需要在VB中調用VC 編寫的DLL庫函數,這時,一般都要遇到向庫函數傳遞參數的問題。對於標准類型(如Double,Long等)參數,其傳遞比較簡單,只要保證了VB中對庫函數的聲明和VC 中對庫函數的定義在參數類型、次序和傳遞方式上的一致性,參數就不會被錯誤傳遞。但是,如果需要向庫函數傳遞自定義類型的參數,情況就會變得復雜了。

  情況一:自定義類型的所有成員變量都是同一種類型(例如下面的Pens自定義類型,其成員都為Long型)。

  TypePens

  RedPenNumAsLong

  GreenPenNumAsLong

  B1uePenNumAsLong

  EndType

  這時,只要在VB和VC 中對該結構采用相同的定義,並充分注意到VB和VC 對某些數據類型(如32,位操作系統下,VC 中的int和VB中的Integer)存儲上的差異,就不會發生參數傳遞錯誤。

  情況二:自定義類型中成員變量的類型不完全一致。這時,又要區分兩種情況:

  情況(1)沒有Double型成員變量。

  這時一般也不會出現參數的傳遞錯誤。

  情況(2)含有Double型成員變量。

  這時參數通常就會被誤傳。比如傳遞下面的Person類型的參數到VC 開發的DLL庫函數,Double型成員Height的值就會在傳遞中丟失:

  TypePerson

  AgeAsLong

  HeightAsDouble

  EndType

  造成Height值丟失的原因是由於在VC 中存儲Person型變量時,將自動在Long型成員Age和Double型成員Height之間插入若干字節的分隔空間,而VB則不會。所以,VC 中存儲一個Person型變量需要的內存要多於12字節,而VB只需要12個。因此,從VB傳入DLL庫函數的Person型變量就不能被正確接收。

  解決這一問題的方法有多種,這裡介紹一種比較簡便和普適的,稱之為“引入補位成員法”:在Person這種自定義類型中引入若干個內存補位成員,使得任一個Double型成員之前的所有成員占用的字節總數都是單個Double型變量所占字節數的整數倍(8的整數倍)。

  仍以Person類型為例,由於Age成員占用4字節內存,所以要在其後引入一個占用4字節的補位成員,不妨引入一個String型的成員Tempst:

  TypePerson

  AgeAsLong

  TempstAsString*4

  HeightAsDouble

  EndType

  於是,Double型成員Height之前的所有成員占用的內存總數變成了8個字節,是8的整數倍。此時,將DLL庫函數中對Person的定義作同樣的修改後,就可以正確接收從VB傳來的Person型參數了。

  注意:引入補位成員時,不但要合理分配其占用的字節數,而且要正確安排其在結構體中的位置,二者缺一不可。上例中,若把補位成員放在Height之後,Doubl型變量Height之前的所有成員占用的字節總數仍然是4,不是8的整數倍。

  在自己編寫DLL庫函數時,往往會在函數接口處使用復雜的自定義結構。在VB中調用這種函數時,采用“引入補位成員法”適當修改結構體的定義,就可以有效地避免參數傳遞上的錯誤。

  二、使用在VC 中動態申請的內存

  混合語言編程時,有時需要在VB代碼中使用通過VC 動態申請到的內存。這時,可以通過下述方法實現:

  1)VC 中申請動態內存的DLL庫函數

  char*APIENTRYCreateStringBuffer(longLength)

  {

  char*bufV;//假設需要申請用以存放字符申的動態內存

  buf=(char*)::malloc(Length);

  returnbuf;//返回字符串指針,其實就是一個long型數

  }

  2)VB中接收動態內存指針的代碼

  ......

  DeclareFunctionCreateStringBufferLib"C:DLLTestTest.dll"_

  (ByValLengthAsLong)AsLong

  'Long型變t接收動態內存指針

  ......

  DimslBuffer&

  atBuffer=CreateStringBuffer(20)

  '申請一塊可存放20個字符的內存,得到指向該內存的指針

  ......

  '使用該動態內存

  ......

  注意:VB中使用完動態內存後,為了避免內存洩漏二要將其指針傳回VC 進行內存釋放工作。

  三、自定義類型參數向ActiveX控件的傳遞

  在編寫VB程序時,如果使用的是標准ActiveX控件,那麼一般不需要向控件傳遞自定義類型的參數,因為大多數控件的大多數屬性都是標准類型(如Double,Long)的。但是,在混合語言編程中,當我們采用VC 中的ATL3.0模板(而不是VB)自行開發ActiveX控件時,往往希望能夠向控件的某些屬性或方法傳遞自定義類型的參數,以提高參數的傳遞效率。

  這裡介紹一種向控件傳遞自定義類型參數的簡便方法。假設要以VB為客戶端開發一個ActiveX控件AX,它有一個Student屬性,類型是自定義結構Person:

  TypePerson

  AgeAsLong

  HeightAsDouble

  EndType

  第一,正確編寫Student屬性的接口函數(以用ATL3.0模板開發AX為例)。我們將Student屬性存取函數的接口參數類型寫成一個long型的指針,而不再是BSTR。因為ActiveX內部的通信全部基於Unicode基礎之上,所以,這樣處理會避免由於字符集不匹配而造成的參數誤傳。相關的代碼如下:

  1)AX.idl中對Student屬性的定義

  [propget,id(0),helpstring("propertyStudent")]HRESULT

  Student([out,retval]long*pVal);

  [propput,id(0),helpstring("propertyStudent")]HRESULT

  Student([in]longnewVal);

  2)AX.h中對Student屬性存取函數的定義

  STDMETHOD(get_Student)(/*[out,retval]*/long*pVal);

  STDMETHOD(put_Student)(/*[in]*/longnewVal);

  3)AXcpp中對Student屬性存取函數的實現

  STDMETHODIMPCAX::get_Student(long*pVal)

  {

  //TODD:Addyourimplementationcodehere

  //得到存儲Student屬性的成員變t的指針,賦給*pVal returnS_OK;

  }

  STDMETHODIMPCAX::put_Student(longnewVal)

  {

  //TODD:Addyourimplementationcodehere

  //將存儲Student屬性的成員變址的指針指向newVal所指的內存空間,

  //然後通過內存拷貝方式拷貝此空間存放的Student的屬性值

  returnS_OK;

  }

  第二,正確編寫VB向AX的Student屬性動態賦值的代碼。在VB中,先聲明一個Person型變量,給該變量賦值後,獲取該變量的內存地址並賦給Student屬性即可。代碼如下:

  ......

  DimStudentPropAsPerson

  DimStudentAddrAsLong

  StudentProp.Age=23

  StudentProp.Heigth=1.78

  '得到StudentProp變量的內存地址(方法從略),賦給StudentAddr

  AX1.Student=StudentAddr

  ......

  借助指針完成自定義類型參數向ActiveX控件的傳遞所依據的是以下事實:不論控件是.dll還是.ocx,它都是與其客戶同在一個進程內的服務器。所以,只要AX被編譯成.dll或.ocx,指針的傳遞就是安全可靠的。

  四、中英文混合型字符串輸出長度的確定

  中英文混合型字符串輸出長度的確定問題在VB編程中經常遇到,而且可以通過VB,VC 混合編程有效解決,所以在此一並給出。

  VB編程中,經常需要得到某個字符串在實際輸出時所需要的長度。這時,我們通常會考慮Len()和LenB()這兩個函數。

  我們知道,Len()返回的是字符串中字符的個數,對於不含中文字符的字符串,其返回值通常就等於該字符串的輸出長度;LenB()返回的則是按照雙字節字符集(DBCS)計算出的字符串所占用的字節數,對於純中文字符組成的字符串,其返回值通常也等於該字符串的輸出長度。但是,當字符串中既有中文又有英文(這裡將數字等視為英文)字符時,二者的返回值都不等於該字符串的輸出長度。比如:“A中國人”這個字符串,用Len()函數時將返回4;LenB()則返回8;而實際輸出時(比如向某記錄文件輸出該字符串),它將占用7個印刷符(每個英文字符占1個,每個中文字符占2個)。

  為了計算中英文混合型字符串的輸出長度,我們可以用VC 編寫一個完成此計算的DLL庫函數,在VB中直接調用該函數即可。該VC 函數和VB中的調用代碼如下:

  1)VC 6.0中的DLL函數

  longAPIENTRYSizeof_vbString(char*at)

  {

  return(long)(::atrlen(st));

  //::atrlen()返回int值,但在32位操作系統下,

  //VC 中的int類型與VB中Long類型的范圍是相當的

  }

  2)VB6.0中對Sizeof_vbString()的聲明和調用

  ......

  DeclareFunctionSizeof_vbStringLib"C:DLLTest.dll"_

  (ByValstAsString)AsLong

  ......

  ......

  DimstLen&

  stLen=Sizeof_vbString("A中國人")

  stLen=7

  ......

  應該指出:上述方法同樣可以計算純英文或純中文字符串的輸入長度。

copyright © 萬盛學電腦網 all rights reserved