Discussion :

[Duffer]

Bonjour

J'ai un petit souci avec le read d'un Tfilestream. J'arrive à lire la longueur (WCA_DEST_LEN - image ci dessous). Mais lorsque je veux lire ma variable test (WCA_DEST). Lorsque je fais un showmessage, j'ai seulement en retour t et non test. Alors que je définie bien la longueur de WCA_DEST.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Var 
  WCA_File                                     : TStream;
  WCA_Dest                                   : Array of AnsiChar;
  WCA_DEST_LEN                            : integer;
 
Begin 
 
WCA_File:=TFileStream.Create('d:\1.tes',fmOpenRead);
WCA_File.Position := 0;
WCA_File.Read(WCA_DEST_LEN,4);
Showmessage (IntToStr(WCA_DEST_LEN)); // Retourne 4
Setlength(WCA_Dest,WCA_DEST_LEN);
WCA_File.Read(WCA_Dest[0],WCA_DEST_LEN);
Showmessage (WCA_Dest[0]); // Retourne t alors que normalement cela devrait retourner test
End;

Merci d'avance pour l'aide apportée.

[Paul TOTH]

ça fait 3 fois que tu poses une question pour le même problème au final...tu n'apprends donc rien ?

[Duffer]

J'en suis désolé Paul TOTH. J'aimerai vraiment avoir ta facilité dans le codage, mais malheureusement pour moi je ne l'ai pas. J'ai regardé les réponses que tu m'avais posté avant de créer ce sujet. J'ai teste avec un String, AinsiString, mais aucun n'a fonctionné.

J'y arrive lorsque je défini la taille de mon tableau dans les variables avec WCA_Dest : Array [0..3] of AnsiChar;. Mais comme le tableau n'aura jamais la même taille, c'est pour cela que je ne défini pas la taille et que j'utilise Setlength.

[ALWEBER]

voici un exemple qui te donne une idée de la structure interne des chaines de caractères

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
unit uVisuOctets;
 
interface
 
uses
  sysutils ;
 
function VisuXOctets(pDepart : pointer; nbOctet : integer = 64 ): string;
 
implementation
 
function VisuXOctets(pDepart : pointer; nbOctet : integer = 64 ): string;
var
  pb1: ^byte;
  i1, i2 : integer ;
  st1 : string ;
begin
  result := '' ;
  pb1 := pDepart ;
  for i1 := 1 to (nbOctet div 8) do
  begin
    st1 := '';
    for i2 := 1 to 8 do
    begin
      st1 := st1 + ' ' + intToHex(pb1^, 2);
      inc(pb1);
    end;
    result := result + st1 + #13#10
  end;
end;
 
end.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
program ex02d_chainesChar;
 
{$APPTYPE CONSOLE}
 
uses
  uVisuOctets in 'uVisuOctets.pas';
 
function Visu (stTitre : string ; p1 : pointer ; decalage : integer) : string ;
var
  pb1 : ^byte ;
begin
  pb1 := pointer(integer(p1)+decalage) ;
  result := '> '+stTitre+#13#10+VisuXOctets (pb1,24) ;
end;
 
var
  st10 : string[10] ;
  stAnsiString : ansiString ;
  stWideString : WideString ;
  stUnicodeString : UnicodeString ;
  pAnsiChar1 : pAnsiChar ;
  pWidechar1 : pWideChar ;
begin
  st10 := 'ABCD' ;
  Writeln (Visu ('@st10(string[10])',@st10,0)) ;
  stAnsiString := 'ABCD' ;
  Writeln (Visu ('@AnsiString[1] - 8',@stAnsiString[1],-8)) ;
  stWideString := 'ABCD' ;
  Writeln (Visu ('@WideString[1] - 8',@stWideString[1],-8)) ;
  stUnicodeString := 'ABCD' ;
  Writeln (Visu ('@UnicodeString[1] - 8',@stUnicodeString[1],-8)) ;
  pAnsiChar1 := 'ABCD' ;
  Writeln (Visu ('pAnsiChar - 8',pAnsiChar1,-8)) ;
  pWidechar1 := 'ABCD' ;
  Writeln (Visu('pWidechar - 8',pWidechar1,-8)) ;
  readln
end.

[ShaiLeTroll]

Sinon la structure d'une chaine AVANT le début de la donnée, il y a la documentation : http://docwiki.embarcadero.com/Libra...eString.StrRec mais cela semble assez hors sujet puisque c'est juste [0] qui est utilisé au mauvais moment, ALWEBER, tu es allé un peu trop loin puisque c'est juste un problème de syntaxe.

Code :

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

Showmessage (WCA_Dest[0]);

Il y a une confusion entre les passages et var buf non typé et en String, là c'est juste 't' qui est passé en paramètre
Si [0] est requis pour Read c'est parce que l'on indique un emplacement mémoire dans lequel écrire le contenu lu depuis le Stream
Showmessage prend un paramètre String donc cela n'a rien à voir, on peut passer directement WCA_Dest implicitement converti (ouais ça je sais plus toutes les nuances)
En théorie, cela devrait ressembler à

Code :

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

Showmessage(WCA_Dest);

En fait, le choix du array of AnsiChar complique tout car cela demande de maitriser les conversion

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var 
  WCA_File: TStream;
  WCA_Dest: AnsiString //Array of AnsiChar; // Voir aussi RawByteString
  WCA_DestLen: integer; 
begin 
 
  WCA_File:=TFileStream.Create('d:\1.tes',fmOpenRead);
  try
    WCA_File.Position := 0;
    WCA_File.Read(WCA_DestLen, 4);
    //Showmessage(IntToStr(WCA_DestLen)); // Retourne 4
    Setlength(WCA_Dest, WCA_DestLen); // Crée une chaine de n caractères + 1 zéro terminal + StrRec (en préfix)
    WCA_File.Read(WCA_Dest[1], WCA_DestLen); // Indique que l'on lit dans le Stream un nombre n de caractères que l'on va mettre à l'emplacement de la chaine soit [1] pour le premier caractère qu'il faut assimiler à un pointeur\référence dans le cadre d'un "var buf" assez inhabituel faut l'avouer.
    Showmessage (String(WCA_Dest)); // Tout simplement un AnsiString casté en String
  finally
    WCA_File.Free();
  end;
end;

Pour la conversion de Array of AnsiChar en String (Unicode), je serais prudent en utilisant d'abord un transtypage en AnsiString puis en String
StrPas pourrait faire ce boulot de transtypage en AnsiString explicite puis implicitement en String si on peut avoir un doute des conversions implicites

Code :

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

Showmessage(StrPas(@WCA_Dest[0]));

Là c'est le pointeur sur WCA_Dest[0] que l'on utilise mais cela pourra bug car il manque le caractère zéro terminal pour que la fin d'une PChar soit trouvé (un SetLengh + 1 permettrait de l'avoir)



Dans le cas d'une structure complexe, faut juste maitriser si il faut utiliser WideChar ou AnsiChar, vu le contenu Hexa, du Ansi sans aucun doute

[Duffer]

Merci beaucoup ShaiLeTroll pour les explications. J'ais déjà testé avec AnsiString mais il me manquait Showmessage (String(---)); que je ne connaissais pas. Je me forme en lisant ce que je trouve sur les divers forums.

Merci aussi à ALWEBER, je regarderai tout cela à tête reposée.
Et encore désolé Paul TOTH

[Paul TOTH]

Et encore désolé Paul TOTH

c'est moi qui suis désolé pour toi, tu ne comprends pas ce que tu fais...c'est l'antithèse de ma façon de travailler.