Sauvgarger des modifications sur un fichier binaire

Question

salut  tous le monde!!!
j'ai un petit problème avec la methode qui m'aide a sauvgarder les modifications sur un fichier bin.
voici mon source
------------------------------------------------------------------------------------
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
type a = array [0..1159368] of char;
type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    Panel1: TPanel;
    Button1: TButton;
    Edit1: TEdit;
    GroupBox1: TGroupBox;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
  f:file of a;
  d: a;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer ;
begin
if OpenDialog1.Execute then
begin
Edit2.Text:= '';
        AssignFile (F, OpenDialog1.FileName);
        reset(f);
        Read(F, d);
        Edit1.Text := ExtractFileName(OpenDialog1.FileName);
for i := 746404 to 746419 do
   begin
     Edit2.Text := Edit2.Text + IntToHex(Ord(d[i]),2) + ' ';
   end;
end;
end;
end.
--------------------------------------------------------------------------------
Moi je veux sauvgarder les modifications que l'utilisateur du programme fais dans "Edit2" dans lâ même adress de la lecture dont elle est dans ce source
 i := 746404 to 746419

merci
Smith

Bacterius · Answer

N'utilises plus les "file of", c'est totalement dépassé. Passe aux TFileStream.

Cordialement, Bacterius !

Smith4400 · Answer

Bacterius, merci
mais comment peux-je passer au "TFileStream"???
Smith

Nicolas___ · Answer

En bossant un peu tout seul : 

http://flash-koti.developpez.com/articles/delphi/104-tfilestream/

http://delphipage.free.fr/flux.html

bonne lecture

Bacterius · Answer

Et aussi en écrivant 'TFileStream' dans ton source, en le sélectionnant et en appuyant sur la touche F1.

Cordialement, Bacterius !

Smith4400 · Answer

merci infinément Bacterius & Bicolas
j'ai lu les exemples et j'ai une petite question.
dans ce mode de fichier on peux facilement écrire des valeurs Hex???

Bacterius · Answer

Ben une valeur hexadécimale reste une valeur binaire ...

Cordialement, Bacterius !

Smith4400 · Answer

Bacterius
ok, et si j'utilise un Tedit pour les valeurs , il faut transformer ces valeurs avce une fonction ou quoi faire ???
mErCi
SmItH

Bacterius · Answer

Ben tout simplement un StrToInt ... une valeur Integer c'est la même chose qu'une valeur hexadécimale ... c'est juste une suite d'octets ... Je crois qu'il te manque quelques notions particulièrement sur la "représentation de données codées".

Cordialement, Bacterius !

Smith4400 · Answer

Bacterius,
oui je suis un peux faible dans ce sujet la...
"eprésentation de données codées"
ya t'il des explications ou des tutos a propos de ce sujet???

Bacterius · Answer

Oui il y en a plein. Et heureusement car c'est la base même de la programmation orientée objet (POO).

Cordialement, Bacterius !

Smith4400 · Answer

Bacterius,merci infinément pour ton aide et pardon moi pour les questions..
une chose de plus
j'ai touvé un code de vb6 pour le fichier bin
comme ça..
Call SetHEXtoFILE(text1.Text, "00011a03", index.Text)
et en Delphi j'arrive pas a controlé les changement de "TFileStream" dont tu ma parler sur mon source ...
pouvez vous m'aider a changer mon source + la méthode du sauvgardement
merci merci merci

Sauvgarger des modifications sur un fichier binaire

11 réponses

Votre réponse

Discussions similaires