nochmal DEC: Hash wird nicht in Stream geschrieben ???

[Predator]

moin,

ich wollte gerade die HashWerte vergleichen und siehe da es wird garnichts im header geschrieben.

so sieht die function aus zum einlesen:

Delphi-Quellcode:

function ReadFileHeader(Filename: string; var FileHeader: TFileHeader): Boolean;
var
  SrcStream: TFileStream;
begin
  result := False;
  SrcStream := TFileStream.Create(Filename, fmOpenRead);
  if Assigned(SrcStream) then
  begin
    try
      SrcStream.Read(FileHeader, sizeof(TFileHeader));
    finally
      FreeAndNil(SrcStream);
    end;
  end
  else
  begin
    RaiseLastOSError();
    exit;
  end;
  result := True;
end;

und so sieht der Header aus:

Delphi-Quellcode:

type
     TFileHeader = packed record
       THashString : string[10];
end;

geschrieben wird so:
dest.write(FileHeader, sizeof(TFileHeader)); und das Ergebnis ist, das FileHeader.THashString leer ist.

woran liegt das ? Danke !