Discussion :

[amamisou]

Salut tout le monde
J'essaye de lire un fichier contenant des valeurs numériques codées en binaire.
Pour le faire j'ai choisi d'utiliser TfileStream pour pouvoir naviguer facilement dans le fichier.
Le problème est que avec mes conaissances actuelles en programmation Delphi je suis incapable de transcrire dans une variable integer un nombre entier codé en deux bytes

Voila ce que j'ai bricole

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
Procédure TForm1.Button2Click(Sender: TObject);
 var
     Fichier_Stream : TFileStream;
     x_Bytes :Array of Byte;
 begin
if opendialog1.Execute then begin
Edit1.Text:=opendialog1.FileName;
if not FileExists(Edit1.Text) then exit;
memo1.clear;
Application.ProcessMessages;
Fichier_Stream := TFileStream.Create(Edit1.Text,fmOpenRead);
SetLength(x_Bytes, 2);
Fichier_Stream.Seek(0,soFromBeginning) ;
Fichier_Stream.Read(x_Bytes[0],2);
///
///          Je bloque ici
///   Je souhaiterais, en faite, afficher dans ma memo1 la valeur en décimal de du nombre codée en 2 bytes  x_Bytes
///
 
end;
end;

Quelqu’un aurait il un idée pour me débloquer



Merci

[Clorish]

en fait, je ne crois pas que les entiers codés sur 2 bits existent sous delphi,mais je ne suis pas un connaisseur en la matiere.
On a les short sur 1 bits et les integer dont le conage depends du systeme (4 sous windows).

Tu ne peux donc pas te baser sur la lecture d'un type predefini.
Par contre, sans que cela soit trop complexe, tu peux lire 2 short de 1 bits que tu combone avec : N := S1*1024+S2.
Verifie quand meme l'ordre dans lequel sont ecrit les bits dans le fichier (gauche a droite ou droite a gauche)

[Paul TOTH]

oula ! c'est quoi ce mélange

l'octet comprend 8 bits et prend les valeurs de 0 à 255

sous Delphi c'est le "byte" (ou le CHAR pour les caractères)

2 octets, 16 bits de 0 à 65535 c'est le "word"

4 octets, 32 bits de 0 à $FFFFFFFF c'est le "cardinal"

dans les versions signées nous avons respectivement shortint, smallint et integer (depuis Delphi 2, longint et integer sont équivalents)

et finalement l'entier signé sur 64 bits : int64

pour en revenir à la question initiale, il faut lire un WORD, qu'éventuellement il faut swapper (fonction SWAP) pour inverser l'ordre des deux octets (petit et grand indien)

[Clorish]

Oups !
Desolé Grand maitre ... je m'incline devant votre savoir ....
Le petit vermiseau que je suis a encore trop parlé


Oui j'ai confondu Byte/bits/octets .... surement un reveil un peu trop brutal :p

Smallint (2 octets c'est ca ?) : j'ai oublié
Byte (1octet) Word (2octet) et DWord (4cotets) sont des types windows et la j'ai pas encore le reflex

Donc je corrige mon post :

Code :

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

1
2
3
4
5
6
7
8
 
Var 
  FS : TFileStream;
  w : Word;
  smi : SmallInt;
[..]
FS.Read(w, SizeOf(DWORD));
FS.Read(smi, SizeOf(SmallInt));

Voila 2 solutions pour recuperer un entier codé sur 2 octets/Bytes (et non pas bits )

[amamisou]

Salut,
Je viens de lire ces trois postes en réponse a ma question Merci pour toute ces précisions.

Le retard de ma rection est expliqué par le décalage horaire. Je me connecte, enfaîte depuis Geoje Island en curée du sud.

[sjrd]

Voilà plus d'informations sur les types entier standarts que tu ne peux en imaginer :
(ne faites pas attention au "native", ils le sont tous )

Code X :

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
Integer: TSepiIntegerType
  tkInteger;    native;     4 bytes-wide;    alignment: 4
From -2147483648 to 2147483647 (signed)

Cardinal: TSepiIntegerType
  tkInteger;    native;     4 bytes-wide;    alignment: 4
From 0 to -1 (unsigned)

Shortint: TSepiIntegerType
  tkInteger;    native;     1 bytes-wide;    alignment: 1
From -128 to 127 (signed)

Smallint: TSepiIntegerType
  tkInteger;    native;     2 bytes-wide;    alignment: 2
From -32768 to 32767 (signed)

Longint: TSepiTypeAlias
-> Integer

Int64: TSepiInt64Type
  tkInt64;    native;     8 bytes-wide;    alignment: 8
From -9223372036854775808 to 9223372036854775807

Byte: TSepiIntegerType
  tkInteger;    native;     1 bytes-wide;    alignment: 1
From 0 to 255 (unsigned)

Word: TSepiIntegerType
  tkInteger;    native;     2 bytes-wide;    alignment: 2
From 0 to 65535 (unsigned)

Longword: TSepiTypeAlias
-> Cardinal

[le merou]

Pour répondre rapidos à la question initiale :

Delphi je suis incapable de transcrire dans une variable integer un nombre entier codé en deux bytes

Code :

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

1
2
3
4
5
6
 
function ByteToWord(High : Byte; Low: Byte) : Word;
begin
  result := High shl 8;
  result := result + Low;
end;

Word étant plus petit que Integer tu peux le mettre dans un Integer
J'utilise l'operateur shl (Shift Left = Décalage vers la gauche) pour décaler de 8 bits tous les bits du mot.

[bobish]

Bonjour,

Je doit faire quasiment la même fonction que amamisou... J'ai essayé de récupérer à partir d'un tableur des valeurs en binaires :
A1 : 10001110
A2 : 10100101

J'ai essayé d'utiliser la fonction que tu as présenté Le Merou et du coup je ne récupère pas les bonnes données

Voici mon code :

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
 
var
  vXLApp: variant;
  vXLWorkbook: variant;
  vXLWorksheet: variant;
 
function TfmPrinc.ByteToWord(High : Byte; Low: Byte) : Word;
begin
  result := High shl 8;
  result := result + Low;
end;
 
 
procedure TfmPrinc.btConversionClick(Sender: TObject);
var
Resultat:Variant;
MSB, LSB:Byte;
Conversion:Word;
begin
vXLApp := CreateOleObject('Excel.Application');
vXLApp.Visible:=False;
vXLWorkbook:=vXLApp.Workbooks.open(sChemin);
vXLWorksheet:=vXLWorkbook.sheets[1];
resultat:=vXLWorksheet.Range['A1:A2'].value;
MSB:=resultat[1,1];
LSB:=resultat[2,1];
Conversion:=ByteToWord(MSB,LSB);
ShowMessage(IntToStr(Conversion));
vXLApp.Quit;
vXLApp := unassigned;
end;

Est ce que cela ne viendrait pas du fait que Resultat soit de type variant que j'y mette des bytes ?

[Cl@udius]

Salut

Le problème vient certainement du fait que les cellules A1 et A2 sont lues comme des integers.

Essaye comme ceci:

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
 
uses
  ComObj, Math;
 
function BinToDec(AValue: string): Word;
var
  I: Integer;
  C: Char;
begin
  result := 0;
  for I := 1 to Length(AValue) do
  begin
    C := AValue[i];
    result := result + Trunc(StrToInt(C) * IntPower(2, Length(AValue) - I));
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Resultat: Variant;
  Conversion: Word;
begin
  vXLApp := CreateOleObject('Excel.Application');
  vXLApp.Visible := False;
  vXLWorkbook := vXLApp.Workbooks.Open(sChemin);
  vXLWorksheet := vXLWorkbook.Sheets[1];
  try
    resultat := vXLWorksheet.Range['A1:A2'].Value;
    Conversion := BinToDec(IntToStr(resultat[1,1]) + IntToStr(resultat[2,1]));
    ShowMessage(IntToStr(Conversion));
  finally
    vXLApp.Quit;
    vXLApp := unassigned;
  end;
end;

@+ Claudius

[bobish]

Ok merci je vais tester !

[bobish]

Ok merci çà marche, c'est vrai que çà ne pouvais pas trop marcher étant donné que je récupérais des chaines de caractères !