[deniks]

Здравствуйте уважаемые знатоки. Делаю программу для диплома ( в универе паскаль учили да и все) и столкнулся с трудностями. Есть рабочая программа на паскале, ее нужно переделать в делфи.

Суть программы заключается в считывании данных из *.wav и работа с ними. Но на этапе считывания wav столкнулся с проблемами, делфи говорит о выходе за пределы.

Часть программы на паскале, где считывается .wav

Код:

(var datafile : file of byte )

 Assign(DataFile,ss[kd]+mpp+'.wav');
   Reset(DataFile);
   seek(DataFile, 50);
 AAs[0]:=0;
       for i:=1 to k do
 A[i]:=0;

 for jj:=1 to jjk do
begin
   for i := 1 to 4096 do
      begin
      Read(DataFile, Xx);
X^[i]:=xx/1;
end;

моя попытка в делфи:

Код:

AssignFile(DataFile,ss[kd]+mpp+'.wav');
Reset(DataFile, 1);
AAs[0]:=0;
for i:=1 to k do
A[i]:=0;
seek(DataFile, 50);


   for i:=1 to 4096 do
         begin
         blockread(Datafile,buf,1);
         X^[i]:=buf;
end;

Если кто может, огромная просьба помочь.

Выскакивает ошибка на blockread(Datafile,buf,1); Read beyond end of file. Вроде бы как выходит за пределы. исправить не получается...

[angvelem]

Для начала заключи приведённый код в тег , затем приведи переменные которые используешь. При указанной переменной DataFile, нужно писать Reset(DataFile).
Если используется переменная DataFile того типа как сейчас приведена, то нужно испольбзовать Read.
P.S. Как читал в старом добром Паскале, также читаешь и сейчас.

[deniks]

Код:

unit pribor56;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    private
    { Private declarations }
  public
    { Public declarations }
  end;

type
            mascp=array[1..4096] of single ;
              mask=array[0..4096] of single ;
              mascpptr=^mascp;

              maskd=array [0..10] of string;


var
  Form1: TForm1;

var xx: byte;
datafile : file of byte;
mpp:string;
kd:longint;
jj:integer;
   sabb, sgarm, ss: maskd;

          const jjk=2;{L=5;}n=12;pkr=100;fmax=11025/2;
          var  dt,a,f,xk:mask;
      x,y:mascpptr;
     
        i,j,k,L: integer;
          

implementation
{$R *.dfm}

begin

mpp:='1';
ss[kd]:='1w';

Assign(DataFile,ss[kd]+mpp+'.wav');
Reset(DataFile);
seek(DataFile, 50);

for i:=1 to k do
A[i]:=0;
for jj:=1 to jjk do
begin
for i := 1 to 4096 do
begin
Read(DataFile, Xx);
X^[i]:=xx/1;
end;end; end.

lmikle: Дальше буду карать!!! дальше такого не будет, спс

[deniks]

на строке Read(DataFile, Xx); как бы читаем из .wav по байту

выбивает ошибку, поэтому думал по другому считать, к чему пришел в 1м посте, но ошибка из 1го места переместилась в другое.

[angvelem]

Вы собираетесь пользоваться тегом [code]? Пока не исправите ответа не ждите.

[deniks]

сори.. не знал ваших правил оформления. модер уже подправил

[AlexSku]

Перед началом цикла

Код:

for i:=1 to k do

переменную К надо инициализировать. Сейчас в ней мусор.

А после implementation разве можно писать операторы? Операторы должны быть внутри функций / процерур.

Т.е. ты неправильно перешёл от Паскаля к Delphi. Если приложение консольное, то оно похоже на Паскаль. Если обычное, оконное, то начало программы в файле .dpr, который обычно никто не трогает, а все пишут в unit'ах, в которых, как я написал, только описания и подпрограммы (то бишь все операторы внутри подпрограмм).

[deniks]

это k можно убрать, не в нем проблема. Ругается при присваивании массиву значений, полученных из .wav. на строчке X^[i]:=xx/1;

Код:

unit pribor56;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    private
    { Private declarations }
  public
    { Public declarations }
  end;

type
            mascp=array[1..4096] of single ;
              mask=array[0..4096] of single ;
              mascpptr=^mascp;

              maskd=array [0..10] of string;


var
  Form1: TForm1;

var xx: byte;
datafile : file of byte;
mpp:string;
kd:longint;
jj:integer;
   sabb, sgarm, ss: maskd;

          const jjk=2;{L=5;}n=12;pkr=100;fmax=11025/2;
          var  dt,a,f,xk:mask;
      x,y:mascpptr;
     
        i,j,L: integer;
          

implementation
{$R *.dfm}

begin

mpp:='1';
ss[kd]:='1w';

Assign(DataFile,ss[kd]+mpp+'.wav');
Reset(DataFile);
seek(DataFile, 50);
for jj:=1 to jjk do
begin
for i := 1 to 4096 do
begin
Read(DataFile, Xx);
X^[i]:=xx/1;
end;end; end.

[AlexSku]

Какой смысл объяснять оператор, если после implementation их вообще не должно быть (начиная с begin)?

[angvelem]

Сообщение от AlexSku

А после implementation разве можно писать операторы? ...

Можно. ___

[deniks]

почитаю как нужно оформлять программу в делфи, ошибка может быть из-за этого?

[Karsh]

Ругается при присваивании массиву значений, полученных из .wav. на строчке X^[i]:=xx/1;

Что-то я не нашел, а где у вас указателю X присваивается адрес? На что он должен указывать?

xx/1;

а это зачем? зачем делить на единицу?

[deniks]

x присваивается массив. непонял какой у него должен быть адрес

1 можно убрать, это связано с тестами программы на паскале.

[Karsh]

x присваивается массив. непонял какой у него должен быть адрес

X у вас не массив, а указатель на массив, и пока вы не присвоите ему адрес, он будет указывать "в никуда", из-за чего программа даст сбой.

[angvelem]

Сколько шума из ничего:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  F    : File;
  I, J : Integer;
  XX   : Byte;
begin
  mpp    := '1';
  ss[kd] := '1w';

{$I-}
  AssignFile(F, ss[kd] + mpp + '.wav');
  Reset(F, 1);
  if IOResult = 0 then
  begin
    Seek(F, 50);

    for I := 1 to jjk do
      for J := 1 to 4096 do
      begin
        BlockRead(F, XX, 1);
        X[J] := XX;
      end;
    CloseFile(F);
  end;
{$I+}
end;

Но проверь на ошибки, всякое может случиться.