Чтение двоичного файла.

← →
Raiv (2002-07-10 14:16) [0]

Как прочесть двоичный файл в динамический массив array of Char и использовать j-тый элемент этого массива.

← →
Skier (2002-07-10 14:29) [1]

>Raiv
А зачем динамический массив, есть же TFileStream ?

← →
Raiv (2002-07-10 14:34) [2]

Пример части кода
FSize:=FileSize(FromF);
SetLength(Buf,FSize);
.......
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);

Как прочитать из Buf[i] какое либо значение?
Просто Buf[10]:="a" - нельзя.

← →
Skier (2002-07-10 14:41) [3]

>Raiv

> Как прочитать из Buf[i] какое либо значение?
> Просто Buf[10]:="a" - нельзя.

Не понял ! Говоришь "прочитать", а сам делаешь присваивание...
Логика где ты ? :)

← →
Raiv (2002-07-10 14:46) [4]

Суть дела в том, что если я опишу так:
Buf: array [1..400000]of Char;
то нет никаких проблем:
a:=Buf[10] или наоборот Buf[15]:="C"
а вот если описать
Buf: array of Char;
.....
FSize:=FileSize(FromF);
SetLength(Buf,FSize);
......
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);

то черта лысого из этого массивы что вытащишь.

← →
Eugene Lachinov (2002-07-10 14:47) [5]

BlockRead(FromF, Pointer(Buf)^, FSize, NumRead);

← →
Raiv (2002-07-10 14:47) [6]

← →
Skier (2002-07-10 14:50) [7]

>Raiv
Приведи, пожалуйста, полностью код чтения из файла.

← →
Raiv (2002-07-10 15:17) [8]

БОЛЬШОЕ БОЛЬШОЕ СПАСИБО! Все заработало - только Инет глючит. Провайдера пора на рее повесить.

← →
McSimm (2002-07-10 15:17) [9]

var Buf: array of Char;
F: File of Char;
FSize: Integer;
begin
AssignFile(F, "....");
Reset(F);
try
FSize := FileSize(F);
SetLength(Buf, FSize);
BlockRead(F, Buf[0], FSize)
finally
CloseFile(F)
end

Чтение двоичного файла. Найти похожие ветки