Comparaison de 2 structures

Question

Bonjour,

Je voudrais comparer le contenu de 2 structures. En C, j'utilise le memcmp pour comparer mes structures. Y-a-t'il quelque chose d'&#233;quivalent en VB ?

Exemple :

Type udtIndividual

   strFirstName as string * 20
   strLastName as string * 20
   blnMaleOrFemale as boolean
   intAge as integer
   bytID as byte

End Type

Public Individual As udtIndividual
Public EditIndividual as udtIndividual
Public blnNeedSetup as boolean

' Je remplis mes 2 structures
...

' Je veux comparer mes 2 structures si c'est diff&#233;rent alors je voudrais copier la structure  EditIndividual dans Individual

' Code en C  : si le r&#233;sultat est = 0 alors pas de changement 
blnNeedSetup = (memcmp (&Individual , &EditIndividual , sizeof Individual ) != 0);

if (blnNeedSetup =  true) then

   Individual = EditIndividual    

end if

crenaud76 · Answer

Pas d'équivalent en VB6 !
Il faut que tu ajoute à ta classe une méthode() Compare() par exemple dans laquelle tu fais un test membre à membre

CR

BruNews · Answer

IcebergMan si tu fais du C tu sauras adpter en Declare VB:


SIZE_T RtlCompareMemory(IN CONST VOID  *Source1, IN CONST VOID  *Source2, IN SIZE_T  Length);


Tu passes taille struct en dernier param.
Si (retour de RtlCompareMemory == taille struct) alors EST EGAL.
RtlCompareMemory est &#224; prendre dans Ntdll.dll (pour Declare VB).

ciao...
http://dev.winsysdev.com
BruNews, MVP VC++

cs_IcebergMan · Answer

Merci &#224; vous deux pour ces informations. je vais essayer d'adapter la fonction  SIZE_T RtlCompareMemory.

@+

Ice.

cs_IcebergMan · Answer

BruNews,


J'ai essay&#233; d'impl&#233;menter la fonction RtlCompareMemory, mais j'ai un probl&#232;me. Si les structures sont identiques, j'ai toujours un retour diff&#233;rent de la longeur de la structure.
 
Peux tu m'aider ?

Ci-joint, un extrait de mon code :

' D&#233;claration

Public Declare Function CompareMemory Lib "Ntdll.dll " Alias "RtlCompareMemory" (Destination As Any, Source As Any, ByVal Length As Long) As Long

' Je remplis mes 2 structures
...

' Comparaison des 2 structures


Dim lngReturn as Long

lngReturn = CompareMemory(Individual , EditIndividual , LenB(Individual ))

If not (lngReturn =   LenB(Individual)) then

   Individual =  EditIndividual   

End If

BruNews · Answer

D&#233;sol&#233; mais je te passe en C et tu traduiras, syntaxe VB et moi...
Tu peux aussi recompiler et v&#233;rifier que va impec.

#include <windows.h>


typedef struct _BNTYPE {
  DWORD n;
  char name[20];
} BNTYPE, *LPBNTYPE;


char szappname[] = "bnRTLCMP";


int __stdcall bnRtlCmp(void *pa, void *pb, DWORD len)
{
  long (WINAPI *pRtlcmpmem)(PVOID, PVOID, ULONG);
  HMODULE hdll;
  hdll = GetModuleHandle("ntdll.dll");
  *(FARPROC*)&pRtlcmpmem = GetProcAddress(hdll, "RtlCompareMemory");
  return ((pRtlcmpmem(pa, pb, len) == len) ? 1: 0);
}



int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE x, PSTR y, int z)
{
  BNTYPE a, b;
  memset(&a, 0, sizeof(BNTYPE));
  memset(&b, 0, sizeof(BNTYPE));
  MessageBox(0, bnRtlCmp(&a, &b, sizeof(BNTYPE)) ? "OUI": "NON", szappname, 0);
  return 0;
}

ciao...
http://dev.winsysdev.com
BruNews, MVP VC++

Gobillot · Answer

Private Type udtIndividual

   strFirstName As String * 20

   strLastName As String * 20

   blnMaleOrFemale As Boolean

   intAge As Integer

   bytID As Byte

End Type



Private Declare Function CompareMemory Lib "Ntdll.dll " Alias
"RtlCompareMemory" (Destination As Any, Source As Any, ByVal Length As
Long) As Long



Private Sub Command1_Click()

    Dim Individual As udtIndividual

    Dim EditIndividual As udtIndividual

    Dim lngReturn As Long

    Dim Lg        As Long

    

    Individual.strFirstName = "A"

    Individual.strLastName = "A"

    Individual.blnMaleOrFemale = True

    Individual.intAge = 1

    Individual.bytID = 0

    

    EditIndividual.strFirstName = "A"

    EditIndividual.strLastName = "A"

    EditIndividual.blnMaleOrFemale = True

    EditIndividual.intAge = 1

    EditIndividual.bytID = 0



' ce qui est pass&#233; dans la Fonction ce sont des copies

    Lg = Len(Individual)

    lngReturn = CompareMemory(Individual, EditIndividual, Lg)

    MsgBox Lg

    MsgBox lngReturn



' sinon il faut des pointeurs

    Lg = LenB(Individual)

    lngReturn = CompareMemory(ByVal VarPtr(Individual), ByVal VarPtr(EditIndividual), Lg)

    MsgBox Lg

    MsgBox lngReturn


Daniel

cs_IcebergMan · Answer

Gobillot,


J'ai essay&#233; ton code et &#231;a fonctionne. Je pense que c'&#233;tait juste la fa&#231;on dont je calculais la longueur de la structure qui n'&#233;tait pas bonne. (Cfr Len() et LenB()).


Merci &#224; vous deux pour toutes ces informations.


@+ 

Ice.

Comparaison de 2 structures

7 réponses

Discussions similaires