Howto: Datei byteweise lesen und schreiben

[PASST]

Hi NG.

Delphi 4 (update 3)

Wie kann ich in einer Datei ein bestimmtes Byte auslesen und überschreiben?

Hintergrund ist, ich möchte bei einer dbase Datei an Byte 1C (der MDX-Flag) den Wert von 1 auf 0 ändern.

Gruß
Peter

[Der_Unwissende]

HI,
ich bin mir nicht 100%ig sicher, aber es gibt doch bestimmt schon TStream in D4?
Mit Streams kannst du genau das machen. Schau einfach mal in der OH nach TFileStream/TMemoryStream/TStream.

Gruß Der Unwissende

[PASST]

Stimmt, damit müsste es gehen. Leider kenne ich mich mit Streams nicht so gut aus, werde wohl ein wenig suchen udn tüfteln müssen.

Jetzt habe ich aber noch eine Verständnisfrage.
Ich möchte ja eine dbase Datei "manipulieren". Wenn ich mit einem TStream in Delphi die Datei an einem Byte ändern will, funktioniert das eigentlich doch so, dass ich den Stream bis zu diesem Byte lesen muss, das Byte anschließend ersetze, den Rest der Datei einlesen und wieder auf die Platte schreiben.

Ist das nicht ein wenig umständlich? Gibt es nicht die Möglichkeit, genau das gewünschte Byte zu verändern, ohne das alles gelesen und alles wieder geschrieben wird?

Gruß
Peter

[kolbaschedder]

Probier'S mal mit den nativen Dateiroutinen.
Ungefähr so.

Code:

procedure writeByte;
var f : integer;
    buffer : byte;
    nOffset : integer;
begin
  buffer := 0;
  nOffset := $1C;
  f := FileOpen('datei.xxx', fmOpenWrite);
  if f >= 0 then
  try
    fileSeek(f, nOffset, soFromBeginning);
    fileWrite(f,buffer, 1);
  finally
   fileClose(f);
  end; 

end;

[DGL-luke]

mit streams würd so gehen:

Delphi-Quellcode:

procedure StreamSetByte(AFilename: string;APosition: Int64; AValue: Byte);
begin
  with TFileStream.Create(AFileName, fmOpenReadWrite) do //öffnen
    try
      Position := APosition;         //Position "suchen"
      Write(AValue, sizeof(AValue)); //Schreiben
    finally
      Free; //schließen
    end;
end;

Ich hoffe, die with...do und try..finally..end syntaxelemente sind dir geläufig.

EDIT: varibale entfernt, filemode geändert...

[Der_Unwissende]

Zitat von DGL-luke:

mit streams würd so gehen:

Delphi-Quellcode:

var FS: TFileStream;
begin
  with TFileStream.Create(AFileName, fmOpenWrite) do //öffnen

Ich hoffe, die with...do .. syntaxelemente sind dir geläufig.

[DGL-luke]

Der Compiler macht das schon weg

EDIT: hat er

[PASST]

Vielen Dank euch allen, insbesondere an kolbaschedder. Seine Lösung passt per Copy Paste

Ich habe es zuerst als TFilestream versucht, aber es hat nicht geklappt. Habe ich hier am Code irgendwas falsch gemacht?

Delphi-Quellcode:

var
  FS: TFilestream;
  aFileName: String;
  aPosition: Longint;
  aValue: Byte;
begin

  aFileName := 'datei.dbf';
  aPosition := $1C;
  aValue := 0;
  with FS.Create(AFileName, fmOpenWrite) do //öffnen
    try
      Position := APosition;         //Position "suchen"
      Write(AValue, sizeof(AValue)); //Schreiben
    finally
      Free; //schließen
    end;

[inherited]

Zitat von DGL-luke:

  with TFileStream.Create(AFileName, fmOpenWrite) do //öffnen

*hüstel*, müsste es nicht fmCreate oder fmOpenReadWrite sein, weil fmOpenWrite den bisherigen inhalt doch komplett ersetzt?

[DGL-luke]

Sicher? Das wäre ja... katastrophal...

Zitat:

fmOpenWrite
Die Datei wird ausschließlich zum Schreiben geöffnet. Beim Schreiben in die Datei wird der aktuelle Inhalt vollständig ersetzt.

Ja... tatsächlich...

wirs sofort korrigiert. Das ist aber nicht sehr sprechend...

fmOpenWriteAndDeleteEveryThingWhenIReallyWrite wäre passender