[Змей]

При попытке присвоения данных из файла(через FileStream) динамическому массиву, вылетает ошибка. Если массив обычный,то работает все нормально, что сделать что бы и с динамическим было тоже самое?
Текст программы:

Код:

var
  Form1: TForm1;
  A: Tfilestream;
  data: array of integer;
  i: integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
setlength(data,100);
if opendialog1.Execute then
A:=Tfilestream.Create(opendialog1.FileName, fmOpenRead);
A.Read(data,sizeof(data));
for i:=0 to 99 do
begin
memo1.Lines.Add(inttostr(data[i]));
end;
end;

Причем ошибка вылетает на строчке с memo:

[M.A.D.M.A.N.]

Сообщение от Змей

При попытке присвоения данных из файла(через FileStream) динамическому массиву, вылетает ошибка. Если массив обычный,то работает все нормально, что сделать что бы и с динамическим было тоже самое?
Текст программы:

Код:

var
  Form1: TForm1;
  A: Tfilestream;
  data: array of integer;
  i: integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
setlength(data,100);
if opendialog1.Execute then
A:=Tfilestream.Create(opendialog1.FileName, fmOpenRead);
A.Read(data,sizeof(data));
for i:=0 to 99 do
begin
memo1.Lines.Add(inttostr(data[i]));
end;
end;

Причем ошибка вылетает на строчке с memo:

Давай зырить, вот смотри:
Кусочек из твоего кода

Код:

if opendialog1.Execute then
A:=Tfilestream.Create(opendialog1.FileName, fmOpenRead);
A.Read(data,sizeof(data));

что будет, если opendialog1.Execute вернет false??? Опачки, на строке A.Read(data,sizeof(data)); мы получим "Occezz Veolation bla-bla read of address 0000003B" (не суть важно).
Да и потом, если на то уж пошло, то должно быть чето типа A.ReadBuffer(data[0], Length(data));
Так-то, господин Змий.

Олсо, существую спецовые ридеры и врайтеры (TReader, TWriter) для того, чтобы такой говнокод не набирать.

[angvelem]

Вместо:

Код:

A.Read(data,sizeof(data));

напиши

Код:

A.Read(data,length(data));

Не увидел этого же выше. Совсем слепой стал.

[lmikle]

Только

Код:

A.Read(data,length(data) * SizeOf(Integer));

[NumLock]

Код:

var
  AFileStream: TFileStream;
  Data: array of Byte;
begin
  if not OpenDialog1.Execute then Exit;
  AFileStream:=TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
  try
    SetLength(Data, AFileStream.Size);
    AFileStream.Read(Data[0], Length(Data));
    Memo1.Text:=Copy(PChar(@Data[0]), 1, Length(Data)); // это так...
  finally
    AFileStream.Free;
  end;
end;

[Змей]

Спасибо за ответы. Но только не совсем понятно,считывание происходит побайтно как я понял и побайтно записывается в массив (length(data) равено A.size), а как сделать чтобы считалось по 4 байта,то есть как тип integer?
Вот так писал,эту проблему не решает

Код:

A.Read(data,length(data) * SizeOf(Integer));

[PhoeniX]

В случае со статичными массивами, начало массива = начало первого (нулевого, да) элемента. В случае с динамическими массивами, мы имеем:
начало массива: 4 байта [длина], элемент 0, элемент 1, ...
Начинай присвоение с нулевого элемента, а не с начала массива.

Код:

A.Read(data[0],length(data) * SizeOf(Integer));

[Змей]

Сообщение от DJ PhoeniX

В случае со статичными массивами, начало массива = начало первого (нулевого, да) элемента. В случае с динамическими массивами, мы имеем:
начало массива: 4 байта [длина], элемент 0, элемент 1, ...
Начинай присвоение с нулевого элемента, а не с начала массива.

Код:

A.Read(data[0],length(data) * SizeOf(Integer));

Так и пишу,пропустил
Не пойму почему A.size равен length(data), ведь A.size это размер в байтах а length(data) количество элементов массива,получается что в массиве элементы по одному байту

[PhoeniX]

а data у тебя сейчас array of byte или array of integer?

[Змей]

array of integer (смотри первое сообщение)

[PhoeniX]

Код:

SetLength(Data, ceil(A.Size/sizeof()));

Так размер массива (в элементах, т.е. Integer) станет равен размеру файла (естественно в байтах) / размер одного Integer, что тебе и надо.
Читай так:

Код:

A.Read(data[0],A.Size);

Кстати, независимо от того, читаешь ты файл сразу после открытия или после каких-либо операций, советую устанавливать указатель на начало файла. Как-то так:

Код:

A.Seek(0,soFromBeginning);

[Змей]

Извините, предыдущий пост не до конца разобрал, там все есть
Всем спасибо!

Ребят,все равно не получается
Читаю WAV файл,как тут писали, допустим размер файла WAV.size=20.000.000, тогда размер считываемых данных должен быть примерно в 2 раза меньше(если заголовок не учитывать), то есть 10.000.000, потому что данные по 2 байта, вроде делаю все как нужно,но в итоге если посмотреть считанные данные,то начиная со второй половины все равно нулю,в данном случае с 5.000.000 до 10.000.000

Код:

var
  Form1: TForm1;
  WAV: Tfilestream;
  i: integer;
  data: array of smallint;

procedure TForm1.Button1Click(Sender: TObject);
begin
if not opendialog1.Execute then exit;
WAV:=Tfilestream.Create(opendialog1.FileName, fmopenread);
try
   setlength(data,trunc((WAV.size-44)/sizeof(smallint)));
   WAV.Seek(44, sofrombeginning);
   WAV.read(data[0], length(data));
   for i:=7000000 to 7000100 do
   memo1.Lines.Add(inttostr(data[i]));
   edit1.Text:=inttostr(WAV.size);
   edit2.Text:=inttostr(length(data));
finally
   WAV.free;
end;
end;

end.

В чем тут загвоздка?