Tfilestream用偏移量

Question

我需要扩展tfilestream，以便它可以使用0偏移的文件，但是从用户定义的偏移量。我的意思是它必须将用户定义的偏移量解释为流开始。我的代码是：

type
  TSuFileStream = class(TFileStream)
  protected
    FOffset : int64;

    procedure SetOffset(Offset : int64);

    procedure SetSize(NewSize: Longint); override;
    procedure SetSize(const NewSize: Int64); override;
  public
    constructor Create(const AFileName: string; Mode: Word); overload;
    constructor Create(const AFileName: string; Mode: Word; Rights: Cardinal); overload;

    function Seek(Offset: Longint; Origin: Word): Longint; override;
    function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; override;

    property Offset : int64 read FOffset write SetOffset;
  end;
...
constructor TSuFileStream.Create(const AFileName: string; Mode: Word);
begin
  inherited Create(AFileName, Mode);
  FOffset := 0;
end;

constructor TSuFileStream.Create(const AFileName: string; Mode: Word; Rights: Cardinal);
begin
  inherited Create(AFileName, Mode, Rights);
  FOffset := 0;
end;

procedure TSuFileStream.SetOffset(Offset : int64);
begin
  FOffset := Offset;
  inherited Seek(FOffset, soBeginning);
end;

procedure TSuFileStream.SetSize(NewSize: Longint);
begin
  inherited SetSize(FOffset + NewSize);
end;

procedure TSuFileStream.SetSize(const NewSize: Int64);
begin
  inherited SetSize(FOffset + NewSize);
end;

function TSuFileStream.Seek(Offset: Longint; Origin: Word): Longint;
begin
  Result := Seek(Int64(Offset), TSeekOrigin(Origin));
end;

function TSuFileStream.Seek(const Offset: Int64; Origin: TSeekOrigin): Int64;
begin
  case Origin of
    soBeginning: Result := inherited Seek(FOffset + Offset, soBeginning) - FOffset;
    soCurrent: Result := inherited Seek(Offset, soCurrent) - FOffset;
    soEnd: Result := inherited Seek(Offset, soEnd) - FOffset;
  end;
end;
 

.

但它不起作用。问题在寻求功能中，但我不知道为什么。当我将这样的流传递给第三方组件时，它仅适用于TSUFILESTEAR.OFFSET：= 0;

Answer 1

使用tgpstreamwindow ，可在我的web 和 Google代码。

用法：

var
  offsetStream: TGpStreamWindow;

begin
  offsetStream := TGpStreamWindow.Create(originalStream, initialOffset, originalStream.Size - 1);
  try
    DoSomethingWith(offsetStream);
    offsetStream.SetWindow(anotherInitialOffset, originalStream.Size - 1);
    DoSomethingElseWith(offsetStream);
  finally FreeAndNil(offsetStream); end;
end;

.

Answer 2

首先，仅覆盖其中一个方法版本。您可以从类接口中看到，您可以使用相同方法的Hongint和Int64版本（如Setaze和Seek）。这是在Delphi文档中。覆盖INT64版本。

其次，我不会覆盖tfilestream，而是直接覆盖tfilestream，而是直接覆盖tstream来创建一个“在流之间的流”中使用。 在构造函数中我将放2个参数：

1. 任何类型的实际源流
2. 偏移

   所以基本上您想要创建的是实际流和自定义版本之间的代理。这样，在您的寻求实现中，您必须添加偏移量（看TMemoryStream和TFileStream，以了解它的位置）。您还可以获得支持任何类型的流源的好处。

   您应该最终使用易于使用的代理：

   mMyStream:=TMyProxyStream.Create(mRealStream,2800); //Root offset at 2800
   try
     mMyStream.Read(mBuffer,1024); // After read, offset = 3824
     mMyStream.position:=0; //Reset offset back to to 2800
   finally
     mMyStream.free;
   end;
   

   .

   寻求功能可以有点棘手来计算。这是一个来自代理类的一个例子，我编码了我的缓冲系统（foffset是内部变量，这是您想要操作的代理））：

   function TSLBufferStreamAdapter.Seek(const Offset:Int64;
            Origin:TSeekOrigin):Int64;
   Begin
     Case Origin of
     soBeginning:
       Begin
         if Offset>=0 then
         FOffset:=Math.EnsureRange(Offset,0,FBufObj.Size);
       end;
     soCurrent:
       Begin
         FOffset:=math.EnsureRange(FOffset + Offset,0,FBufObj.Size);
       end;
     soEnd:
       Begin
         If Offset>0 then
         FOffset:=FBufObj.Size-1 else
         FOffset:=math.EnsureRange(FOffset-(abs(Offset)),0,FBufObj.Size);
       end;
     end;
     result:=FOffset;
   end;
   

   .

   我现在更新此回复以包含更新链接。我的库希望它有所帮助！