Einzelnen Beitrag anzeigen

Predator
(Gast)

n/a Beiträge
 
#1

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

  Alt 28. Okt 2003, 02:41
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 !
  Mit Zitat antworten Zitat