EDIT: Das ist im prinzip das gleiche wie oben, nur dass hier das dateiformat (die richtlinien) definiert wurden und ich es so einfach finde schnell sachen an dateien zu ändern, da ja alles automatisch gemachtr wird mit nur einem readstream
EDIT2: die TDBFile kann natülich noch in andere typen eingeteilt werden. zum beispiel TDBFileHeader und TDBFileContent oder so ähnlich
Delphi-Quellcode:
type
TDBFile = packed record
Signature : array [0..024] of char;
wert : integer;
//und so weiter
end;
dann liest man so
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
ReadStream : TFileStream;
ReadSize, size : Int64;
DBFile : TDBFile;
begin
ReadStream := nil;
ReadStream := TFileSTream.Create('dbdatei.format', fmOpenRead);
size := ReadStream.Size;
ReadSize := 0;
ReadStream.ReadBuffer(DBFile, sizeof(TDBFile));
//in DBFile.Signature steht dann die Datei signatur in DBFile.wert steht dann der Integer (4 bytes)
//so braucht man sich nicht um die byte werte zu kümmern
//schreiben geht auch so
//man muss nur die datei mit schreibrechten öffnen und dann mit WriteStream arbeiten
end;
ich hoffe dir hilft das