Aide pour traduction C++ vers Delphi

Bonjour à tous,

J'ai quelques problèmes de traduction d'une fonction C++.
Quelqu'un peut-il m'aider ?

Voici le code C++

Code:

---

1 2 3 4 5

pasnValue->asnValue.string.length = strlen(*(LPSTR*)pMIB->pStorageValue); pasnValue->asnValue.string.stream =(unsigned char*)SnmpUtilMemAlloc(pasnValue->asnValue.string.length * sizeof(char));   memcpy(pasnValue->asnValue.string.stream,*(LPSTR*)pMIB->pStorageValue,pasnValue->asnValue.string.length); pasnValue->asnValue.string.dynamic = TRUE;

---

Avec pasnValue->asnValue.string de type

Code:

---

1 2 3 4 5

typedef struct { BYTE * stream; UINT length; BOOL dynamic; } AsnOctetString;

---

Et pMIB->pStorageValue de type

Code:

---

void * pStorageValue;

---

Voici ma traduction Delphi

Code:

---

1 2 3 4 5

asnValue.asnValue.str.length := PChar(MIB.pStorageValue); asnValue.asnValue.str.stream := SnmpUtilMemAlloc(asnValue.asnValue.str.length * SizeOf(Char));   CopyMemory(asnValue.asnValue.str.stream, PChar(MIB.pStorageValue), Length(PChar(MIB.pStorageValue))); asnValue.asnValue.str.dynam := True;

---

Mon problème est que je ne récupère que la première lettre de la chaîne... :calim2:

Merci pour éventuel coup de main.

tu aurais pu donner la traduction du record AsnOctetString en delphi !

Code:

---

... str.length := PChar(...

---

Il est évident que là il y a un problème
Length devrait être un Cardinal, Delphi accède d'affecter un PChar à un Cardinal sans transtypage explicite ???

tu n'aurais pas écrit cela ???

Code:

---

asnValue.asnValue.str.length := StrLen(PChar(MIB.pStorageValue));

---

Code:

---

1 2	asnValue.asnValue.str := MIB.pStorageValue;

---

:)

avec str: string et pStorageValue: PChar

vu que le code C++ ne fait que copier le PChar pStorageValue en calculant sa taille avec StrLen, puis en allouant un buffer qu'il rempli

Delphi fait tout cela tout seul :)

Oups pardon j'avais bien :

Code:

---

asnValue.asnValue.str.length := Length(PChar(MIB.pStorageValue));

---

J'ai nettoyé le code avant de la mettre sur le forum et Length est parti avec :oops:
Je devrais utiliser StrLen plutot que Length ?

Voici la traduction du record AsnOctetString

Code:

---

1 2 3 4 5

TAsnOctetString = record stream: PByte; length: UINT; dynam: BOOL; end;

---

@ Paul TOTH: pStorage est type Pointer et asnValue.asnValue.str de type TAsnOctetString

Il semble que mon problème vienne de mes PChar... La dll que je crée est instanciée par le service SNMP de Windows. Et lorsque j'ai transformé les PChar en PAnsiChar mes valeurs sont arrivées correctement... :mrgreen:

Il me reste à savoir pourquoi une des valeurs remonte correctement et une autre non lorsque je fais le même test sur une machine sous Windows Server 2008...?

Sinon, un avis sur la traduction de ce code

Code:

---

1 2 3 4 5 6 7 8 9

case ASN_IPADDRESS: pasnValue->asnValue.address.length = 4; pasnValue->asnValue.string.dynamic = TRUE;   pasnValue->asnValue.address.stream[0] = ((char*)pMIB->pStorageValue)[0]; pasnValue->asnValue.address.stream[1] = ((char*)pMIB->pStorageValue)[1]; pasnValue->asnValue.address.stream[2] = ((char*)pMIB->pStorageValue)[2]; pasnValue->asnValue.address.stream[3] = ((char*)pMIB->pStorageValue)[3]; break;

---

en ceci ...?

Code:

---

1 2 3 4 5 6 7

pasnValue.asnValue.address.length := 4; pasnValue.asnValue.str.dynam := True;   pasnValue.asnValue.address.stream[0] := Byte(PAnsiChar(MIB.pStorageValue)[0]); pasnValue.asnValue.address.stream[1] := Byte(PAnsiChar(MIB.pStorageValue)[1]); pasnValue.asnValue.address.stream[2] := Byte(PAnsiChar(MIB.pStorageValue)[2]); pasnValue.asnValue.address.stream[3] := Byte(PAnsiChar(MIB.pStorageValue)[3]);

---

Là j'avoue que j'ai vraiment fais au pifff... J'ai cherché une combinaison de transtypages qui compile et puis c'est tout. Pour l'instant je vais essayer de la tester...

Merci encore

Tu ne serais en en Delphi 2009 ou plus ?

Pour le second code, avec un structure variable tu pourrais l'écrire plus simple, ou même un CopyMemory !

Oui en Delphi 2010 (unicode).
Ce que je comprend pas dans le dernier code c'est les stream[..] alors que stream est déclaré comme un PByte...:calim2:

Delphi est assez malin pour se dire que ton pointeur est en fait un tableau !
le [] va faire une arithmétique des pointeurs
Car finalement un tableau ce n'est qu'un pointeur sur la première valeur (bon, il y a une petite subtilité à ce sujet)

C'est directement une astuce du C

Citation:

---

Envoyé par BobaL

Oups pardon j'avais bien :

Code:

---

asnValue.asnValue.str.length := Length(PChar(MIB.pStorageValue));

---

J'ai nettoyé le code avant de la mettre sur le forum et Length est parti avec :oops:
Je devrais utiliser StrLen plutot que Length ?

---

StrLen() attend un PChar, Length() un string, en utilisant Length() tu demandes à Delphi de convertir le PChar en string avant d'en calculer la longueur...

Citation:

---

Voici la traduction du record AsnOctetString

Code:

---

1 2 3 4 5

TAsnOctetString = record stream: PByte; length: UINT; dynam: BOOL; end;

---

@ Paul TOTH: pStorage est type Pointer et asnValue.asnValue.str de type TAsnOctetString

---

as-tu un intérêt particulier à t'encombrer d'un TAsnOctetString alors que tu veux stocker un string ?