Beug dans la procedure Write de la classe TSreamRésolu

Question

Salut The Crazy Compagny 

Je suis entrain de faire joue joue avec les streams : Voila ce que je suis entrain de faire

Var
MonStream : TFileStream;
AInt : Integer;
Begin
......
AInt:=5;
MonStream.Write(AInt,4);
........
End;

Tout fonctionne ou preque. Ce pachiderme de Stream me fait faire un gros caca nerveux. Z'explique  :

Le but recherché est d'avoir 00 00 00 05. Mais manque de bol j'obtients 05 00 00 00.

Je vois pas trop comment m'y prendre sans que ca fasse trop crade.

Mirci

WhiteHippo · Accepted Answer

Bonjour

C'est normal que les données soient écrites dans cet ordre !!! Si tu veux l'ordre inverse il faudrait que ta variable soit égale à $05000000. Donc attention, si tu modifies l'écriture de ton entier, il faudra également modifier sa relecture !! Une ecriture dans le sens que tu souhaites ne correspondra plus au stockage de la valeur 5 mais de la valeur 83886080. 

Si toutefois tu voulais tout de même inverser cet ordre, alors avant l'ecriture il faut rajouter la ligne :
  Aint := Swap(Word(AInt and $FFFF)) shl 16 + Swap(Word(AInt shr 16)) ;

Cordialement. 
<hr />"L'imagination est plus importante que le savoir." Albert Einstein

f0xi · Answer

procedure GlobalSwap(const src; out dest; const size: integer);
var pI,pO: ^byte;
    n :  integer;
begin
  pI := @src;
  pO := @dest;
  inc(pI, Size-1);
  for n := 0 to size-1 do
  begin
    pO^ := pI^;
    dec(pI);
    inc(pO);
  end;
end;

procedure ......;
var
  Value : integer;
  Data  : integer;
begin
  Value := $11223344;
  GlobalSwap(Value, Data, 4);
  with TFileStream.Create(......,fmcreate) do
  try
    WriteBuffer(Data, 4);
  finally
    Free;
  end;
end;








<hr size="2" width="100%" />


http://deefaze.gnomz.com

Beug dans la procedure Write de la classe TSream

2 réponses

Votre réponse