Entwickler-Ecke

Sonstiges (Delphi) - Datei Byte für Byte auslesen


Siluro - Do 28.09.06 15:48
Titel: Datei Byte für Byte auslesen
Hi,
ich brauch da mal ein wenig Hilfe und zwar muss ich den Inhalt einer Datei Byteweise auslesen und jedes Byte Bitweise verändern können. Ich brauch nicht unbedingt ne komplette Lösung, aber wenn mir jemand ein paar Funktionen verraten könnte, mit denen sich sowas realisieren lässt, wäre ich wirklich Dankbar. Ich finde da irgendwie nichtmal nen Ansatz.

Danke schonmal im Vorraus.


chrisw - Do 28.09.06 15:53

Das könnte Dir helfen !



Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
var f : File of Byte;
    b : Byte;
begin
  try
    Assignfile(f,'c:\mydat.txt');
  except
    showmessage('Datei nicht vorhanden !');
    exit;
  end;
  Reset(f);
  while not eof(f) do
  begin
    Read(f, b);
    showmessage(Char(b));  //hier b bit- /byteweise verändern 
  end;
  CloseFile(F);

end;



Chris


elundril - Do 28.09.06 16:18

oder probiermal die Forumssuche! das thema hab ich nämlich auch schon mal gefragt! ;-)

mfg el


Siluro - Fr 29.09.06 21:26

Hi,
vielen Dank für eure Hilfe, habs geschafft.


Jakob Schöttl - Fr 29.09.06 21:42

Kannst es auch mit TFileStream machen!