Ayuda con TFileStream
 

Estimados foreros:
Tengo el problema de crear un archivo de mas de 2GB de tamaño y debo emplear la rutina seek. El problema es que por defecto esta rutina no sirve para estos tamaños de archivo por lo que he decidido probar con TFileStream.

Se trata de usar TFileStream en lugar de lo siguiente. Unas lineas de codigo por vuestra parte me iria de perlas.

Código Delphi [-]
const 
  max = 1024*1024;
type 
  TArr = array [1..max] of double;
var 
  buf:TArr;
  F: File of TArr;
 
procedure CreaArchivo;
var i: integer;
begin
  AssignFile(F,'C:\1.tmp');
  rewrite(F);
  for i := 1 to 1024 do write(F,buf);
  closefile(F);
end;
 
procedure Busca(pos: Integer);
begin
  AssignFile(F,'C:\1.tmp');
  reset(F);
  Seek(F,Pos);  /// <---  Error
  read(F,buf);
  closefile(F);
end;

Muchas gracias

¿No te sirve algo así?

Código Delphi [-]
var
  Stream: TFileStream;

begin
  Stream := TFileStream.Create('CalendarCombo.dcu', fmOpenRead);

  try
    Stream.Seek(Pos, soBeginning);
    Stream.ReadBuffer(Buf, SizeOf(Buf));
  finally
    Stream.Free;
  end;
end;

// Saludos

He intentado hacer un ejemplo de lectura escritura empleando seek pero solo me lee ceros. Ignoro por que.

Código Delphi [-]
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
const max = 1024*1024;
type
  TArr=array[1..max] of double;
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  buf:Tarr;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var  Stream: TFileStream; pos: integer;
begin
  Stream := TFileStream.Create('c:\1.tmp', fmOpenReadWrite);
  try
    for pos := 0 to 512 do
    begin
      Stream.Seek(Pos, soBeginning);
      Stream.ReadBuffer(Buf, SizeOf(Buf));
      Button1.Caption := IntToStr(Trunc(Buf[1]));
      Application.ProcessMessages;
      Stream.Seek(Pos, soBeginning);
      Stream.WriteBuffer(Buf, SizeOf(Buf));
    end;
  finally
    Stream.Free;
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var  Stream: TFileStream; pos,i: integer;
begin
  Stream := TFileStream.Create('c:\1.tmp', fmCreate);
  try
    for pos := 0 to 512 do
    begin
      fillchar(Buf,sizeof(buf),0);
      for i := 1 to max do Buf[i] := pos;
      Stream.WriteBuffer(Buf, SizeOf(Buf));
      Button2.Caption := IntToStr(Trunc(Buf[1]));
      Application.ProcessMessages;
    end;
  finally
    Stream.Free;
  end;
end;
end.