Delphi Pascal: cómo escribir datos en un archivo de más de 2 GB?

Question

Hice una herramienta en Delphi para crear una tabla de arcoíris. Estuvo bien hasta que el archivo creció hasta 3.1 GB. Cerré mi programa. Entonces me abrió de nuevo y se bloquea durante la ejecución de este código:

Assign(RainbowFile,'Rainbow_table.txt'); {assign a text file} 
Append(RainbowFile); 

Delphi muestra el error "levantado EInOutError clase expection con el mensaje 'I O error 131 /' Mi pregunta:. Cómo añadir datos al archivo existente grande de 2 GB // obsoleto siguiente pregunta:. tengo Actualmente código:..

Content_to_file := (#13+#10+Start_string+':'+hexstr(GTA_San_Andreas_CRC32(Start_string), 8)); 
    RainbowFile_handle.WriteBuffer(Content_to_file[1], Length(Content_to_file)*SizeOf(Char)); 

¿Cómo deshacerse de la variable Content_to_file quiero ponerlo directamente a la WriteBuffer si `s posible

EDITAR:

TFileStream funciona con archivos de más de 2 GB. Lo probé ahora. Sin embargo es posible escribir así:

RainbowFile_handle.WriteBuffer(Start_string[1]+':', 

me refiero a pasar ningún argumento variable. ¿O definitivamente he pasado el primer carácter de la variable?

EDIT 2:

que actualmente he hecho de esta manera:

Content_to_file := (#13+#10+Start_string+':'+hexstr(GTA_San_Andreas_CRC32(Start_string), 8)); 
    RainbowFile_handle.WriteBuffer(Content_to_file[1], Length(Content_to_file)*SizeOf(Char)); 

¿Es posible hacerlo sin esta variable?

Answer 1

La E/S de procedimiento simple no es adecuada para operaciones modernas. Solo use la clase TFileStream o, si necesita un control preciso, use la API de Windows directamente (lea sobre las funciones CreateFile y WriteFile).

Answer 2

Debe cambiar a las transmisiones. Un TFileStream se encargará de esto sin problemas. Tenga en cuenta que si usa acceso aleatorio, debe asegurarse de utilizar las versiones de 64 bits de Seek y Position.

Después de haber abierto la secuencia de archivo se puede buscar hasta el final:

Stream.Seek(0, soEnd); 

A continuación, puede escribir líneas como tan:

procedure StreamWriteLine(Stream: TFileStream; Text: string); 
begin 
    Text := Text + sLineBreak; 
    Stream.WriteBuffer(Text[1], Length(Text)*SizeOf(Char)); 
end; 

Con suerte, que debe darle pistas suficientes para llenar en el resto de los detalles.