Vote UpVote

TStreamAdapter.Seek Test

The Delphi Geek – 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: Int64; Origin: TSeekOrigin): Int64; overload; override; end;var GSeekOffset: int64;(* quick fixtype TStreamAdapter = class(Classes.TStreamAdapter) public function Seek(dlibMove: Int64; dwOrigin: Integer; out libNewPosition: Int64): HRESULT; override; stdcall; end;function ...
Favorite? Off-Topic? gabr @ 2013-10-11 20:13


Visits: 623
Votes: 0
Favorites: 0
Off-Topic: 0

Visits by Source

User Actions

Users who voted for this posting

Contact us to advertise on DelphiFeeds.com

Community Links

Torry Firebird News


Please login or register to use this functionality.
(click on this box to dismiss)