Discussion :

[Ardely]

Bonjour,

À partir d'une fonction je capture des caractères de 0 à 255 et le retour se passe dans un string.

dans ce string, j'ai parfois un caractère #0 et si je veux connaître la longeur exacte du string il me donne une fausse longeur.

avec ce code la longeur est incorrecte !

Code :

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

1
2
3
 
 showmessage(inttostr(length(sChrStr))); // longeur inexacte si un char #0 se trouve à l'intérieur.
  for I  := 1 to length(sChrStr) do

Ma question est comme déterminer ou convertire le string pour avoir la longeur exacte.
Merci beaucoup pour l'aide.

[Linkin]

Length donne le bon résultat, par contre si la chaine est récupéré d'un contrôle Windows comme un TEdit, elle est tronquée.

[Ardely]

Merci pour ta réponse.
Je récupère les chars dans un string par la fonction BlockRead puis je la passe par la fonction GetHZ.

En debuggant je vois bien tous les charactères dans le string avec la longeur exacte, mais si je fais showmessage(inttostr(length(sChrStr))); la longeur est incorrecte

Code :

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

1
2
3
4
5
6
 
Function GetHZ(sChrStr : string): string;
begin
..
showmessage(inttostr(length(sChrStr))); longeur incorrect me renvoie la longeur jusque #0
..

[ShaiLeTroll]

J'espère que tu n'es pas en Delphi 2009 et plus !
Avec l'unicode, c'est pas joli !
Prèfère un RawByteString dans ce cas

Si Delphi 3 à 2007, String peut contenir sans soucis des #0

Comment charge tu avec BlockRead ? genre

Code :

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

1
2
SetLength(sChrStr, 1024);
BlockRead(F, sChrStr[1], 1024);

la longueur de sChrStr c'est 1024
Par contre un TEdit ne pourra pas l'afficher car les API Windows, utilise le #0 comme valeur terminale !

C'est lors d'un passage que le #0 est utilisé comme une fin de chaine

[Ardely]

J'ai Delphi 2007, je charge Blockread de cette façon:

Code :

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

1
2
3
4
5
6
7
8
9
 
 
const
  Buff_Size = 4024;
..
..
 FillChar(Buf1, Buff_Size, #0);
  BlockRead(F, Buf1, SizeOf(Buf1), NumRead);
  TempStr := Buf1;

[Andnotor]

Le problème vient de cette ligne TempStr := Buf1; qui est une copie implicite d'un chaîne à zéro terminale.
Dans tout les cas, il faut fixer la taille de TempStr par SetLength. Ensuite tu utilises cette variable directement dans la lecture comme proposé par Shai ou tu passes par un CopyMemory sur Buf1. Dans le premier cas, il faudra faire deux appels à SetLength : le premier pour fixer la taille du buffer (Buff_Size) et le deuxième sur la taille réelle après remplissage (NumRead).

[Ardely]

j'ai Delphi 2007 et RawByteString n'existe pas ...
Oui.. le problem vient de TempStr := Buf1;
Pour mon cas, je dois chercher dans Buf1 les chr #13#10, prendre cette longeur et defenir la taille de TempStr par SetLength... le probleme est que je voudrais renvoyer cette variable par une fonction !
Je fais des tests.., merci beaucoup pour l'aide.

[Paul TOTH]

Code :

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

1
2
3
4
5
6
7
8
9
 
const
  Buff_Size = 4024;
..
..
 FillChar(Buf1, Buff_Size, #0);
  BlockRead(F, Buf1, SizeOf(Buf1), NumRead);
  //TempStr := Buf1;
  SetString(TempStr, Buf1, NumRead);

[Ardely]

Whou, super je viens de finir mes tests : la fonction SetString fonctionne à merveille.
Je vous remercie pour l'aide et bonne soirée.