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
Dword((@buf[0])^):=$544B4A43; // CJKT bzw
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
FS.ReadBuffer(Buffer,3); liest das programm CJK
aber bei
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 Buffer:Array[1..10000]of Char; zu 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