Dateiinhalt Prüfen

[Gehstock]

und zwar soll die Datei anhand eines wertes identifiziert werden
bei Hex $3c-$3f da soll 544B4A43 Drinstehen

hab mal ein Codeschnipsel dazu gefunden welches mir aber nichts sagt

Delphi-Quellcode:

Dword((@buf[0])^):=$544B4A43; // CJKT

bzw

Delphi-Quellcode:

Dword((@buf[$3C])^):=$544B4A43; // CJKT

hab die datei erstmal nur in einen Filestream geladen

[Gehstock]

Ok geht so

Delphi-Quellcode:

FS  :=  TFileStream.Create(OpenDialog1.Filename,fmopenreadwrite);
  FS.Position  :=  $3c;
  FS.ReadBuffer(Buffer,4);
  S  :=  Copy(Buffer,1,4);
  Memo1.Lines.Add(s);

aber ein problem hab ich hier bei

Delphi-Quellcode:

FS.ReadBuffer(Buffer,3);

liest das programm CJK
aber bei

Delphi-Quellcode:

FS.ReadBuffer(Buffer,4);

liest das programm CJKTðâ

[Luckie]

Weil da hinter eine nicht als Zeichen darstellbare Bytefolge kommt oder der Buffer ist nicht groß genug, so dass du Müll im Speicher mit ausgibst.

[Gehstock]

Nee er war einfach zu groß hab ihn verkleinert jetzt klappt es

von

Delphi-Quellcode:

Buffer:Array[1..10000]of Char;

zu

Delphi-Quellcode:

Buffer:Array[1..4]of Char;

Delphi-Quellcode:

  FS  :=  TFileStream.Create(OpenDialog1.Filename,fmopenreadwrite);
  FS.Position  :=  $3c;
  FS.ReadBuffer(Buffer,4);
  Memo1.Lines.Add(Buffer);
end