Structure c++ en vb.netRésolu

Question

Bonjour, Sa fait quelques jours que je me suis à la recherche d'une transformation pour cette structure en c++: const unsigned MAX_VALS = 16 * 1024; struct m_data { unsigned year, month, day, hour, min, sec; unsigned rec_count; short int pres[MAX_VALS]; short int humid[MAX_VALS]; short int temp1[MAX_VALS]; short int temp2[MAX_VALS]; }; en vb.net Si je fais une structure comme celle-ci : Public Const MAX_VALS As Integer = 16 * 1024 Public Structure MDL_DATA Public year, month, day, hour, min, sec As UInt32 Public rec_count As UInt32 _ Public pres() As Int16 _ Public humid() As Int16 _ Public temp1() As Int16 _ Public temp2() As Int16 End Structure J'ai une exception qui m'informe que ma structure est trop complexe ou trop grande. Si je fais une structure comme celle-ci : Public Structure MDL_DATA Public year, month, day, hour, min, sec As UInt32 Public rec_count As UInt32 Public pres() As Int16 Public humid() As Int16 Public temp1() As Int16 Public temp2() As Int16 End Structure Il me fait une erreur d'écriture au niveau de la mémoire quand il me remplie mes tableaux de "Int16" Quelqu'un aurait une solution? Merci Witschi

witschi · Accepted Answer

Bonjour,
J'ai trouvé la solution.
Si je définie ma fonction externe comme ceci cela ne fonctionne pas, on me dit que ma structure est trop grande : 

Public Declare Auto Function mdl_read Lib "mdl.dll" (ByVal serialPointer As IntPtr, ByRef res As MDL_DATA, ByVal HWND As IntPtr) As Integer

Alors que si a la place de ByRef res As MDL_DATA je passe un pointer sa fonctionne

Public Declare Auto Function mdl_read Lib "mdl.dll" (ByVal serialPointer As IntPtr, ByVal resPtr As IntPtr, ByVal HWND As IntPtr) As Integer


Ce qui me donne pour passé la structure en tant que pointer : 

      Dim tmpPointer As IntPtr
      tmpPointer = Marshal.StringToHGlobalAnsi(myDockingStation)
      Dim res As Integer
      'Try
      Dim datas = New MDL_DATA
      'try to clearn the old pointer <--- VRAIMENT NECESSAIRE ??
      Try
        Marshal.DestroyStructure(myDatasPointer, GetType(MDL_DATA))
      Catch ex As Exception
        Debug.WriteLine("UPLOAD destroyStruc.: " & ex.Message)
      End Try

      'build a pointer to the structure
      myDatasPointer = Marshal.AllocHGlobal(Marshal.SizeOf(datas)) ' Ici on alloue la place manuellement et sa fonctionne!
      Marshal.StructureToPtr(datas, myDatasPointer, False)
      res = m_CommunicationDLL.mdl_read(tmpPointer, myDatasPointer, Me.Handle)


Voilà donc en résumé. Si la structure est trop grande on alloue la place "à la main" et on envoie un pointeur.

Merci encore pour ta réponse

Salutations

Witschi

Mayzz · Answer

Salut, 

Chez moi pas d'erreur, mais en fait le marshaling est utiliser pour les API en .Net donc ce n'est pas étonnant.

Pourrais-tu poster le morceau de code qui rempli ta structure ? (L'appel à l'api ?) 

Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

Mayzz · Answer

OK, sympa d'avoir partagé la réponse, ca servira surement à quelqu'un qui sait ?


Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

Structure c++ en vb.net

3 réponses

Votre réponse

Discussions similaires