[Kurdt]

Здраствуйте, хочу разработать приложение чтобы работала как сенсор движения. Тоесть принимать с камеры изображение и*сделать "умное"*распознавание*принятых*изображений чтобы потом найти отличие, и его амплитуду
Пока до этого не дошел, так как подвисает приложение*у*меня*СЕ*К750І
вот сорс:
program sensor;
uses media;
Var im:image;
procedure getImfromCam;
Begin
media.start_video('capture://video');
delay(500);
debug(media.get_last_err);
im:=media.capture_image;
end;

begin

Repeat
getImfromCam;
drawImage(im, 10, 10);
showcanvas;
repaint;
delay(1000);

until GetClickedCommand<>EmptyCommand;

delay(2000);
end.

Принимается гдето кадра 3 и виснет тупо... и перегружается телефон.