Récupération d'une chaîne binaire de 8 bits écrite dans une variable string

Version imprimable

02/06/2012, 21h18
rogerpierre

Récupération d'une chaîne binaire de 8 bits écrite dans une variable string

Bonjour,

je suis débutant et suis bloqué sur mon programme. En fait, je dois récupérer une chaîne binaire de 8 bits écrite dans une variable string pour la mettre en code équivalent en HEXADECIMAL etc. Désolé si je m'explique mal, le but de mon programme est la manipulation dans les fichiers ; je dois absolument récupérer mon résultat string afin de pouvoir l'écrire à nouveau. J'ai cherché et je ne trouve pas. Voici un exemple :

variablestring := '11111111';

Comment pourrais-je récupérer la valeur 255 dans une variable pour écrire mon octet ? Pour le moment ma seule solution serait un comparateur de string 0 à 255, mais c'est embêtant tous les binaires dans un tableau string pour comparer, ouff.
Si vous pouvez m'aider merci d'avance .

Bonjour !

Voici ma proposition. Il y a sûrement mieux comme code, mais enfin je crois que le principe de la solution est celui-ci. :)

Code:

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
39
40
41
42
43
program exemple; (* conversion d'un octet en byte *)
 
{$APPTYPE CONSOLE}
 
type
  octet = string[8];
 
function deux_puissance(n: byte): longint;
  var
    i: byte;
    temp: longint;
  begin
    if n=0 then temp:=1
    else
      begin
        if n=1 then temp:=2
        else
          begin
            temp:=2;
            for i:=2 to n do
              temp:=2*temp;
          end;
      end;
    deux_puissance:=temp;
  end;
 
function decimale(o: octet): byte;
  var
    i: byte;
    temp: byte;
  begin
    temp := 0;
    for i := length(o) downto 1 do
      begin
        if o[i] = '1' then temp := temp + deux_puissance(length(o)-i);
      end;
    decimale := temp;
  end;
 
begin
  writeln(decimale('11111111')); (* 255 *)
  readln;
end.

Bonjour et merci pour ta réponse. Cependant j'ai essayé mais j'ai un plantage direct ?

Code:

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
 
  public
    { Déclarations publiques }
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
type
 octet = string[8];
 
function deux_puissance(n: byte): longint;
  var
    i: byte;
    temp: longint;
  begin
    if n=0 then temp:=1
    else
      begin
        if n=1 then temp:=2
        else
          begin
            temp:=2;
            for i:=2 to n do
              temp:=2*temp;
          end;
      end;
    deux_puissance:=temp;
  end;
 
function decimale(o: octet): byte;
  var
    i: byte;
    temp: byte;
  begin
    temp := 0;
    for i := length(o) downto 1 do
      begin
        if o[i] = '1' then temp := temp + deux_puissance(length(o)-i);
      end;
    decimale := temp;
  end;
 
procedure TForm1.Button1Click(Sender: TObject);
  begin
 //program exemple; (* conversion d'un octet en byte *)
 //{$APPTYPE CONSOLE}
  writeln(decimale('11111111')); (* 255 *)
  readln;
end;
 
end.

03/06/2012, 11h11
Roland Chastain

Citation:

Envoyé par rogerpierre

bonjour et merci pour ta reponsse cepandant j'ai essayer mais j'ai un plantage direct ?

Sers-toi des balises appropriées pour poster ton code. ;)

Je ne suis pas un grand spécialiste de Delphi. J'ai testé mon programme avec Delphi 6 avant de le poster : ça fonctionne. J'ai lu ton code, je ne saurais pas te dire pourquoi ça ne marche pas. :roll:

Quel est le message d'erreur ?

re désoler ses la premiere fois sur le forum et ses pas bien utiliser.

quand je lance sa marche , et au moment je clic bouton :

classe d'exseption EInOutError avec le message 'Erreur E/S 105'

voici pour le code :

Code:

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
 
unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
 
  public
    { Déclarations publiques }
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
type
 octet = string[8];
 
function deux_puissance(n: byte): longint;
  var
    i: byte;
    temp: longint;
  begin
   if n=0 then temp:=1
    else
      begin
        if n=1 then temp:=2
        else
          begin
            temp:=2;
            for i:=2 to n do
              temp:=2*temp;
          end;
      end;
    deux_puissance:=temp;
  end;
 
function decimale(o: octet): byte;
  var
    i: byte;
    temp: byte;
  begin
    temp := 0;
    for i := length(o) downto 1 do
      begin
        if o[i] = '1' then temp := temp + deux_puissance(length(o)-i);
      end;
    decimale := temp;
  end;
 
procedure TForm1.Button1Click(Sender: TObject);
  begin
 //program exemple; (* conversion d'un octet en byte *)
 //{$APPTYPE CONSOLE}
  writeln(decimale('11111111')); (* 255 *)
  readln;
end;
 
end.

03/06/2012, 11h45
Roland Chastain

Réflexion faite, je crois voir ce qui ne va pas. Je ne pense pas qu'on puisse utiliser les procédures writeln et readln dans un TForm. Ce sont des procédures pour le mode console. Il faut te servir d'un exemple pour trouver l'écriture appropriée.
03/06/2012, 11h49
rogerpierre

voila j'ai trouver sa marche merci a toi, en fete me faut afficher comme sa :

Code:

ShowMessage(IntToStr(decimale('11110111'))); (* 255 *)

par contre quand je ferme la boite de dialogue j'ai le message 'Erreur E/S 6'

la je ses pas pour quoi bizard ..
03/06/2012, 11h54
Cl@udius
Salut

Citation:

Envoyé par rogerpierre

par contre quand je ferme la boite de dialogue j'ai le message 'Erreur E/S 6'

la je ses pas pour quoi bizard ..

Tu as toujours les WriteLn/ReadLn présents dans ton code ?
L'erreur viendrait de là puisque ce n'est pas une application console.

Sinon pour la conversion, il y a plus simple:
Code:

1 2 3 4 5 6 7 8 9 10 function StrToByte(S: string): Byte; var L, I: Integer; begin L := Length(S); Result := 0; for I := L downto 1 do if S[I] = '1' then Result := Result + (1 shl (L - I)) ; end;
Exemple d'utilisation:
Code:

1 2 3 4 5 6 7 procedure TForm1.Button1Click(Sender: TObject); var V: Byte; begin V := StrToByte(Edit1.Text); ShowMessage(IntToStr(V)); end;
@+ Claudius
03/06/2012, 12h13
rogerpierre

merci super je vais pouvoir continuer mon programe je vous remerci tout les pour vos informations vous etres tres sympathique encore merci et bonne journee ^^ :lol:

depuis une application graphique il suffit d'appeler AllocConsole() pour faire apparaître une console qui affichera les WriteLn.

et je ne pouvais pas passer à côté de cette petite modification :)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 function decimale(o: octet): byte; var i: byte; temp: byte; begin temp := 0; for i := 1 to length(o) do begin temp := 2 * temp; if o[i] = '1' then Inc(temp); end; decimale := temp; end;

03/06/2012, 13h05
Roland Chastain

Citation:

Envoyé par Paul TOTH

depuis une application graphique il suffit d'appeler AllocConsole() pour faire apparaître une console qui affichera les WriteLn.

Bon à savoir. :)

Citation:

Envoyé par Paul TOTH

et je ne pouvais pas passer à côté de cette petite modification :)

Mes respects, maestro. :ccool:

Bonjour,

Citation:

En fait, je dois récupérer une chaîne binaire de 8 bits écrite dans une variable string pour la mettre en code équivalent en HEXADECIMAL

Etape 1 : Utilisation de StrToByte(S: string): Byte; de Claudius pour conversion string-binaire vers Décimal
Etape 2 : Conversion de Décimal vers HEXADECIMAL avec :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function  dec2hex( Quotient : int64) : string;
const     BASE16 = 16;
var       Remainder : int64;
begin     Result := '';
          while Quotient > 0 do begin
                Remainder := Quotient mod BASE16;
                case Remainder of
                      10: Result := 'A' + Result;
                      11: Result := 'B' + Result;
                      12: Result := 'C' + Result;
                      13: Result := 'D' + Result;
                      14: Result := 'E' + Result;
                      15: Result := 'F' + Result;
                     else Result := IntToStr( Remainder ) + Result;
                end;
                Quotient := Quotient div BASE16
          end;
end;

A+. :D

03/06/2012, 22h37
Dr.Who
hihihi

n'importe quel entier vers HexaDecimal (string) :
Code:

1 2 Edit1.Text := Format('$%.2x', [StrToByte('11111111')]); // affiche : $FF
04/06/2012, 00h44
Nono40

Pour passer de Integer à HexaDecimal il y a la fonction Hexa dans SysUtils depuis belle lurette. Pas besoin de le faire à la main.