This is simple test code which tests TStreamAdapter.Seek functionality and doesn’t require creating 4+GB files on the disk. A fix is also included.program SeekTest;{$APPTYPE CONSOLE}{$R *.res}uses Windows, SysUtils, Classes,
ActiveX;type TTestStream = class(TStream) function Seek(const Offset: ...
More...