Fórum Abrir arquivo binario #141819

Vamos lah.. por favor uma luz.

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;

Oi, Carnette.


Gostaria de entender o que o vetor Buf armazena e porque a sua dimensão foi fixada de 1..2048.

Eu tenho um arquivo binário (imagem .rst do IDRISI32 - Sistema de Informação Geográfica) que é uma matriz de valores numéricos.
Como eu faço para ler e armazenar em um vetor criado por mim cada valor numérico dessa matriz?

Se puder explicar com mais detalhes a função do BlockRead e BlockWrite ajudaria muito.

Obrigada,

Rafael

Olá

Se algume puder me ajudar, gostaria de saber por que ao dar esse reset em um arquivo somente leitura ocorre um erro.

O Reset nao informa q a abertura é somente leitura? Sendo que esse erro do reset so ocorre quando passamos como parametro o tamanho do registro:
Reset(arquivo,1); //ocorre erro

se trabalhamos com arquivos tipados:
reset(arquivo); //nao ocorre erro

agradeco qualquer ajuda

Carlos