un probléme avec le hex et "save"

slut les Mec !!
je suis un debutant dans le delphi et j'ai un problaime avec les fichier bin et le hex
je voudrais faire un programme pour ecrire des valeur hex dans un fichier bin
mais j'arrive pas a accomplire ce projet  car  je suis débutant
mon  porgramme  doit  avoir  un tedit dont on ecris les valeur et un bouttons pour sauvgarder cette chaine de caracteres hex....
comme cette chaine
CF 7E 35 0B AB 0B 88 34 C8 40 9A 51 3A BB D8 7B
aider moi
merci

Bacterius
oui, comment faire ça???
avec un Tedit et un fichier bin vide par exemlpe...
merci alavance

La routine d'écriture :

procedure WriteHex(FilePath: String; Value: Byte);
Var
H: HFILE;
Tmp: Longword;
begin
H := CreateFile(PChar(FilePath), GENERIC_READ, FILE_SHARE_READ,  nil, OPEN_EXISTING, 0, 0);
if H <> HFILE_ERROR then
  begin
   SetFilePointer(H, 0, nil, FILE_END);
   WriteFile(H, Value, SizeOf(Byte), Tmp, nil);
   CloseHandle(H);
  end;
end;

_______________________________________________


La routine de lecture :

function ReadHex(FilePath: String; Pos: Longword): Byte;
Var
H: HFILE;
Tmp: Longword;
begin
Result := 0;
H := CreateFile(PChar(FilePath), GENERIC_READ, FILE_SHARE_READ,  nil, OPEN_EXISTING, 0, 0);
if H <> HFILE_ERROR then
  begin
   SetFilePointer(H, Pos, nil, FILE_BEGIN);
   ReadFile(H, Result, SizeOf(Byte), Tmp, nil);
   CloseHandle(H);
  end;
end;

_______________________________________________

La méthode pour le bouton :

procedure TForm1.Button1Click(Sender: TObject);
begin
{ MonFichier contient l'adresse sur disque de ton fichier }
WriteHex(MonFichier, StrToInt(Format('$%s', [Edit1.Text])));
end;

_______________________________________________


Pas de gestion d'erreurs concernant le TEdit (si tu entres des valeurs correctes, comme AB, E3, F9, tout va bien, mais si tu entres 'KHFJHFK' il y aura une exception).

Pour lire une valeur hexadécimale, il suffit d'utiliser la fonction ReadHex, en passant la position de la valeur que tu désires lire dans le paramètre Pos (0, première valeur / 1, 2eme valeur / 2, 3eme valeur ...)

Je n'ai pas testé, mais il me semble que cela devrait marcher.

Cordialement, Bacterius !

Je vais faire une source avec ce que tu désires faire, mais en plus général. Elle sera disponible avant le week-end je pense ... n'oublies pas d'y jeter un oeil !

Cordialement, Bacterius !

Utilise les Stream à la place CreateFile
c'est mieux, plus simple d'utilisation et sécurisé au niveau des allocations
toutes les procédures utiles y sont déjà implémentées !!

 
@+
Cirec

---

/// Bacterius ////
merci mon ami, j'attendrais le source pour mieux  comprendre....
merci infinément...

Bon je prépare un éditeur héxadécimal (avec TStream, sous le conseil de Cirec) ...

Cordialement, Bacterius !

Bacterius
Thx frero mais je prefere un exemple tres facile pour me facilité la vie
par exemple
ouvrir un fichier bin tres simple et ecrire des valeurs hexdemical
c tous
j'atend tous tes sujet dans ce comaine

Smith

Ce qui serait bien c'est de ne PAS attendre le travail des autres
mais essayer de le faire toi même ... la leçon rentre beaucoup mieux dans la tête de cette manière.

Pour la facilité voir les Stream

 
@+
Cirec

---