Discussion :

[bjl]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[anapurna]

salut

ton buffer est de quel type ?
utilise un pchar

genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

s := pchar(@buffer) ;

@+ Phil

[bjl]

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.

[anapurna]

salut

Tu as essayer ma solution ?

@+ Phil

[bjl]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[anapurna]

salut

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

@+ Phil

[bjl]

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