Чтение фрагмента файла в динамический массив.

[ZeroCool.]

Задача прочитать фрагмент файла произвольной длинны для дальнейшей обработки. Т.к. длинна кусочка может быть условно любой нужна соответственно и буферная переменная выбранной длинны.

Делаю так:

procedure SomeProc(PieceLength: integer);
var
  Piece: array of byte;
  srcFile, Result: integer;

begin
  SetLength(Piece, PieceLength);

  //

  srcFile:= FileOpen('c:\sample', fmOpenRead);

  Result:= FileRead(srcFile, Piece, PieceLength);

  FileClose(srcFile);

  //

  ShowMessage(inttostr(Result));

end;

Писал по памяти могут быть несущественные расхождения.

В Итоге переменная Result = -1, что означает что чтение провалилось.

Интересует почему и как можно эту задачу выполнить другим путем...

[Stilet]

Например так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var   t:TFileStream; st:array of byte;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var op:integer;
begin
t:=TFileStream.Create(ExtractFilePath(paramstr(0))+'unit1.pas',fmopenread);

 t.Position:=3;  // Откуда читать
 op:=10;  // Сколько читать

 setlength(st,op);
 caption:=caption+' '+inttostr(t.read(st[0],op));
 // потом если не нужен файл то t.free
end;

end.

[ZeroCool.]

Решил проблему при помощи указателей...
Я кстати и со стримами пробовал тоже не работало...
А почему нулевой эллемент передается в Read?