Показать сообщение отдельно
  #1  
Старый 02.02.2011, 09:36
Godod Godod вне форума
Прохожий
 
Регистрация: 23.11.2010
Сообщения: 7
Репутация: 10
По умолчанию Ошибка access violation at adress

Собственно вылазит эта ошибка при нажатии на кнопку, за которой прикреплен код:
Код:
procedure TForm1.SnapshotClick(Sender: TObject);

var
i,j:integer; VideoName:WideString;
begin
if not working then
begin
 Timer1.Tag:=0;
if RadioButton2.Checked=True then
begin
  FilterGraph.Stop;
  if OpenDialog.Execute then
  begin
    FilterGraph.Active := False;
    FilterGraph.Active := true;
    VideoName:=OpenDialog.FileName;
    if videoname<>'' then
    FilterGraph.RenderFile(OpenDialog.FileName);
  end else exit;
end;

if radiobutton1.Checked then
begin
if combobox1.ItemIndex<>-1 then
     OnSelectDevice
else
 begin
 showmessage('Пожалуйста выберите устройство ввода!');
 exit;
 end;
end;

  //для кнопки перевёртыша
  working:=true;
  Snapshot.Caption:='Окончить вычисление траектории';

x1:=0;
x2:=0;
y1:=0;
y2:=0;
point_num:=0;

 for j:=1 to Image3.Picture.Height  do
 for i:=1 to Image3.Picture.Width do
 Image3.Canvas.Pixels[i,j]:=clWhite;


    FilterGraph.Play;
    FilterGraph.Volume:=0;

  if (radiobutton1.Checked) and (SpinEdit_pr.Value<>0) then
  begin
  cooltrayicon1.ShowBalloonHint('SnapSHot','Прогрев камеры...',bitInfo,10);
  delay(SpinEdit_pr.Value*1000);
  end;

   Timer1.Enabled:=true;
   cooltrayicon1.ShowBalloonHint('SnapSHot','Определение траектории начато!', bitInfo,10);

  end
   else
  begin
  //для кнопки перевёртыша
  working:=false;
  Snapshot.Caption:='Начать вычисление траектории';
  cooltrayicon1.ShowBalloonHint('SnapSHot','Определение траектории окончено!',bitInfo,10);
  timer1.Enabled:=false;
  for i:=1 to point_num do
  Image3.Canvas.TextOut(points[i].x+2*pen_Width.Value,points[i].y,inttostr(i));
  FilterGraph.Stop;
  FilterGraph.ClearGraph;
  end;
end;

На форуме уже есть темы с подобными ошибка, да и в гугле их куча, но, к сожалению, почти все перепробовал, но ничего не помогает, может быть вы поможете.
При нажатии на кнопку вылазит окно, где ты выбираешь видео, по которому нужно начертить график(по лазеру на видео), а если выбрана камера, тогда по камере
Ответить с цитированием