Непонятка

← →
Valentain © (2002-11-08 16:03) [0]

Имеется программка (на http://users.kpi.kharkov.ua/program/delphi/stati/migsi.htm), все хорошо работает, но ... при попытке вклиниться - возникает ошибка... А именно:
... procedure TForm1.OnWaveIn; var ... data8: PData8; data16: PData16; ... XScale, YScale: single; um: array[1..44100] of double; // <- вклиненный массив. h: integer; begin h := PaintBox1.Height; XScale := PaintBox1.Width/BufSize; if Bits16 then begin data16:= PData16(PWaveHdr(Msg.lParam)^.lpData); YScale:= h/(1 shl 16); for i:= 0 to BufSize-1 do begin um[i]:= data16^[i]; // Пытаюсь заполучить данные // Без предыдущей строчки норма p^[i]:= Point(round(i*XScale), round(h/2-data16^[i]*YScale));{Debuger Exception Notification} end; ... end; ...
В итоге возникает ошибка // Project ... raised exception class EAccessViolation with meassage "Access violation at address...//
Как мне получить заполненный массив и рабочую программу?
Если отвлечься от этой программы, существует толпа программ для записи Wav-ок на винт (что мне не надо), и опять же, вклинивание вело (в лучшем случае) к "отсутствию сигнала на входе" (массив нулевых значений).
Поделитесь кусочком рабочего кода, плиз.
С уважением.

← →
Valentain © (2002-11-11 09:38) [1]

... спасыбо ...
С уважением.

в 17-й строке ошибка.

Satanas Nobiscum! 11-Nov-XXXVII A.S.

Непонятка Найти похожие ветки