Собственно вылазит эта ошибка при нажатии на кнопку, за которой прикреплен код:
Код:
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;
На форуме уже есть темы с подобными ошибка, да и в гугле их куча, но, к сожалению, почти все перепробовал, но ничего не помогает, может быть вы поможете.
При нажатии на кнопку вылазит окно, где ты выбираешь видео, по которому нужно начертить график(по лазеру на видео), а если выбрана камера, тогда по камере