0
votes
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

Statistics

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

Visits by Source

User Actions

Users who voted for this posting

Subscribe:
Contact us to advertise on DelphiFeeds.com

Community Links

Torry Firebird News

Sponsor

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