Forum: Object-Pascal / Delphi-Language
Delphi
by Ralf Stehle,
1. Nov 2005
Danke, jetzt funktioniert alles korrekt. Das Thema kann von meiner Seite daher gerne abgeschlossen werden
Ralf
Forum: Object-Pascal / Delphi-Language
Delphi
by Ralf Stehle,
1. Nov 2005
Marabus Code funktioniert einwandfrei, vielen Dank
Jetzt habe ich versucht, wie ich den stream wieder in die Datei zurückschreiben kann, mein kläglicher Versuch erzeugt aber nur ein (fast) leeres File:
procedure TEKG.WriteStream(const SelectedRoot, SelectedFile: string);
var
fs: TFileStream;
i: integer;
s: string;
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by Ralf Stehle,
1. Nov 2005
Ich muss eine Datei binär einlesen, einzelne Bytes ändern und dann wieder in einer Datei speichern.
Leider scheitere ich bereits am Einlesen, obwohl ich ausgiebig im Forum gesucht habe:
procedure TEKG.ReadStream(const SelectedRoot, SelectedFile: string);
var
s: string;
i, BUFFERSIZE: integer;
ByteArray: array of byte;
begin
//Dateigröße feststellen