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 !