Manejo de Archivo, Consulta??

[marceloalegre]

Buenas Tardes:

Estoy abriendo unos fuentes hechos por otra persona y veo de una base de datos genera un archivo binario... veo sentencias como:
BlockWrite
BlockRead
Prior
SetOffset
Seek
RecordCount

etc ... que no me son familiares ya que no tengo he trabajado nunca con manejode archivos en delphi, el la web no he encontrado ningun sitio bien claro sobre el tema, en mi libro la biblia de delphi de marco cantu tampoco se nombra el tema, solo veo manejo de bases de datos pero no archivos binarios.
Alguien me podría recomendar algun buen tutorial del tema para manejar los conceptos bien claros? (ya que la ayuda de delphi muchas veces nos queda corta) Gracias!!

[Casimiro Notevi]

En la ayuda de delphi viene un ejemplo, en este caso lo que hace es
leer de un fichero que le digamos y hace una copia del mismo
también con el nombre y lugar que deseemos.

Creo que te puede servir.


var
FromF, ToF: file;
NumRead, NumWritten: Integer;
Buf: array[1..2048] of Char;
begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(FromF, OpenDialog1.FileName);
Reset(FromF, 1); { Record size = 1 }
if SaveDialog1.Execute then { Display Save dialog box}
begin
AssignFile(ToF, SaveDialog1.FileName); { Open output file }
Rewrite(ToF, 1); { Record size = 1 }
Canvas.TextOut(10, 10, 'Copying ' + IntToStr(FileSize(FromF)) + ' bytes...');
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FromF);
CloseFile(ToF);
end;
end;
end;

Aquí (http://www.geocities.com/SiliconValley/Park/3230/pas/pasl1013.html) tienes un sencillo tutorial y un ejemplo de manejo de archivos binarios.

[marceloalegre]

Grande Casimiro!


Muchas gracias.