Delphi Problem mit BlockRead, BlockWrite

Thema durchsuchen

Ansicht

Themen-Optionen

Problem mit BlockRead, BlockWrite

Ein Thema von Luckie · begonnen am 22. Okt 2003 · letzter Beitrag vom 22. Okt 2003

Vorheriger Beitrag

Nächster Beitrag

Mystic

Registriert seit: 18. Okt 2003
Ort: Flerzheim
420 Beiträge

Turbo Delphi für Win32

Re: Problem mit BlockRead, BlockWrite

22. Okt 2003, 20:08

Bei mir hatte das ganze geklappt, nachdem ich die File-Variablen zum File of Byte gemacht und das ,1 entfernt hatte, also:

zusammenfalten · markieren

Delphi-Quellcode:

			function Extract(SFXArchive, DestFile: String; SFXFileSize: LongInt): Integer;

var

  FSFXArchive, FDestFile: File of Byte;

  MemBuffer : array [0..BLOCKSIZE] of Byte;

  BytesToRead, BytesRead: Integer;

begin

  SetLastError(0);

  BytesToRead := sizeof(MemBuffer);

{$IOCHECKS OFF}

  AssignFile(FSFXArchive, SFXArchive);

  Reset(FSFXArchive);