Текущий архив: 2003.02.24;
Скачать: 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 вся ветка
Текущий архив: 2003.02.24;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.026 c
