transformer un buffer non typé en string

Bonjour,

j'ai besoin de récupérer le contenu d'un buffer non typé en chaine de caractères et je voudrais éviter de passer par un stream (voir code).

Quelqu'un connait t'il un équivalent plus simple et rapide de la fonction suivante ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function BufferToString( Const Buffer, BufferSize: Integer): String; Var Astream : TMemoryStream; Begin AStream := TmemoryStream.create; AStream.Write(Buffer, BufferSize); AStream.Seek(0, SoFromBeginning); Astream.read(Result[1], BufferSize); AStream.Clear; AStream.Free; End;

---

merci d'avance

salut

ton buffer est de quel type ?
utilise un pchar

genre

Code:

---

s := pchar(@buffer) ;

---

@+ Phil

C'est le problème, il peut être de type différent (integer, float, texte, boolean).

je veux récupérer la chaine de caratère qui le compose et le stocker dans un string pour concaténer plusieurs données de type différent en gardant la taille pour la déconcaténation plus tard.

salut

Tu as essayer ma solution ?

@+ Phil

oui, mais çà n'a pas marché.

par contre, j'ai trouvé ce que je voulais

Code:

---

1 2 3 4 5

Function BufferToString( Const Buffer, BufferSize: Integer): String; Begin SetLength(Result, BufferSize); move( Buffer, Result[1], BufferSize); End;

---

salut

je n'avait pas comprit que tu voulait ne prendre qu'une parti du buffer

@+ Phil

Je ne prend pas qu'une partie du buffer : je copie tout le buffer.

move( Buffer, Result[1], BufferSize);

buffer est la source
result[1] est le premier octet du tableau de char du string
et bufferSize est le nombre d'octets qui seront copiés par la fonction Move