Скачать: CL | DM;

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

← →
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]

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

---

← →
Ketmar ©   (2002-11-11 10:22) [2]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c