| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Непонятка [D6, Win95/98]
Valentain © (2002-11-08 16:03:00)Имеется программка (на 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-ок на винт (что мне не надо), и опять же, вклинивание вело (в лучшем случае) к "отсутствию сигнала на входе" (массив нулевых значений).
Поделитесь кусочком рабочего кода, плиз.
С уважением.
Ketmar (2002-11-11 10:22:00) [1]в 17-й строке ошибка.
Satanas Nobiscum! 11-Nov-XXXVII A.S.
Valentain (2002-11-11 09:38:00) [2]... спасыбо ...
С уважением.
| |
