|
#1
|
|||
|
|||
Работа с wav
Здравствуйте уважаемые знатоки. Делаю программу для диплома ( в универе паскаль учили да и все) и столкнулся с трудностями. Есть рабочая программа на паскале, ее нужно переделать в делфи.
Суть программы заключается в считывании данных из *.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. Вроде бы как выходит за пределы. исправить не получается... Последний раз редактировалось lmikle, 14.03.2012 в 02:04. |