После запуска вылетает

← →
Jonis_84 © (2012-04-24 23:10) [0]

Доброго времени суток!Подскажите пожалуйста почему после запуска прога или вылетает или наоборот закрыть можно только через дисп.задач.Если не сложно то подскажите решения(Прога снимает опред. часть экрана по заданным координатам)
procedure TForm2.Timer1Timer(Sender: TObject); var Poz:TPoint; srect,drect :trect; iwidth,iheight:integer; itmpx,itmpy :real; c :tcanvas; begin iwidth:=image1.width; iheight:=image1.height; drect:=bounds(0,0,iwidth,iheight); itmpx:=iwidth/2 ; itmpy:=iheight/2; Poz.X:=StrToInt(Edit1.Text); Poz.Y:=StrToInt(Edit2.Text); srect:=rect(Poz.x,Poz.y,Poz.x,Poz.y); inflaterect(srect,round(itmpx),round(itmpy)); c:=tcanvas.create; c.handle:=getdc(getdesktopwindow); image1.canvas.copyrect(drect,c,srect); c.free; application.processmessages; end;

← →
Германн © (2012-04-25 01:11) [1]

А с какими целями в процедуру таймера поместили вызов application.processmessages;
?

← →
AV © (2012-04-25 08:38) [2]

Чистый проект
copy|paste
- не вылетает, закрывается по крестику нормально

← →
Anatoly Podgoretsky © (2012-04-25 08:58) [3]

> А с какими целями в процедуру таймера поместили вызов application.
> processmessages;

Возможно, чтобы повесить программу.

← →
Jonis_84 © (2012-04-25 11:10) [4]

Работает но не продолжительно,через какое-то врямя сообщение "progect ....exe raised excepttion class $C00000FD with message "stack overflow at 0x76b245cc""-если запущено из delphi ,а если с ....exe то закрыть можно только через дисп.задач,
исход. взял Здесь:
procedure tform1.timer1timer(sender: tobject); var srect,drect,posforme :trect; iwidth,iheight,dmx,dmy:integer; itmpx,itmpy :real; c :tcanvas; kursor :tpoint; begin if not isiconic(application.handle) then begin // Получаем координаты курсора getcursorpos(kursor); // posform представляет прямоугольник с // координатами form (image control). posforme:=rect(form1.left, form1.top, form1.left+form1.width, form1.top+form1.height); //Показываем magnified screen //если курсор за пределами формы. if not ptinrect(posforme,kursor) then begin // Далее код можно использовать для увеличения выбранной // части экрана. iwidth:=image1.width; iheight:=image1.height; drect:=bounds(0,0,iwidth,iheight); itmpx:=iwidth / (trackbar1.position * 4); itmpy:=iheight / (trackbar1.position * 4); srect:=rect(kursor.x,kursor.y,kursor.x,kursor.y); inflaterect(srect,round(itmpx),round(itmpy)); //Получаем обработчик(handle) окна рабочего стола. c:=tcanvas.create; try c.handle:=getdc(getdesktopwindow); //Передаём часть изображения окна в tImage. image1.canvas.copyrect(drect,c,srect); finally c.free; end; end; // Обязательно обрабатываем все сообщения windows. application.processmessages; end; end;

← →
AV © (2012-04-25 11:12) [5]

> "stack overflow

procedure tform1.timer1timer(sender: tobject);
....
begin
timer1.enable := false;
бла-бла-бла
timer1.enable := true;
end;

← →
Jonis_84 © (2012-04-25 11:32) [6]

Спасибо!!!Работает , а почему?????????????????????????????????????????????????

← →
AV © (2012-04-25 11:36) [7]

не успевает выйти из процедуры, как снова заходит
все параметры при входе и адреса возврата копируются в стэк
т.о. стэк растет пока не преполняется

конструкция

onTimer;
timer1.enable := false;
бла-бла-бла
timer1.enable := true;

гарантирует, что не зайдет второй раз, пока не выйдет

примерно поэтому!!!!!!!!!!!!!!! :)

Спасибо

> Jonis_84 © (25.04.12 11:10) [4]

Ты больше там говнокод не бери.

> Jonis_84 © (25.04.12 11:40) [8]

Надеюсь это application.processmessages из кода выкинул?

← →
han_malign (2012-04-25 15:03) [10]

После запуска вылетает Найти похожие ветки