Discussion :

[davidc]

Bonjour, voilà mon problème, j'aimerais lire dans la base de registre une valeur de type REG_BINARY (par exemple: 24 15 C1 00 00) et l'afficher dans une zone texte ou encore dans une fenêtre message je sais qu'il faut utiliser readbinarydata mais impossible de faire afficher la valeur lue sous la forme 24 15 C1 00 00 par exemple. merci de vos réponses

[Cl@udius]

Salut

Tu peux faire 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
36
37
const
  Key: string = '\La\Cle\De\Ton\Choix';
  Val: string = 'TaBinaryValue';
var
  Reg: TRegistry;
  Data: array of Byte;
  S: string;
  L, I: Integer;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;  // à adapter selon tes besoins
    Reg.OpenKey(Key, False);
    // Si valeur REG_BINARY
    if Reg.GetDataType(Val) = rdBinary then
    begin
      // Récupérer la taille
      L := reg.GetDataSize(Val);
      if L > 0 then
      begin
        // Dimension du tableau
        SetLength(Data, L);
        // Stockage de la valeur dans le tableau
        Reg.ReadBinaryData(Val, Data[0], L);
 
        // Formatage de la valeur
        S := '';
        for I := 0 to L - 1 do
          S := S + Format('%.2x ', [Data[I]]);
        // Affichage dans un Edit
        Edit1.Text := Trim(S);
      end;
    end;
  finally
    Reg.Free;
  end;
end;

Voilou

@+ Claudius

[davidc]

merci beaucoup