<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.6000.16850" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial>Perfecto.</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>1 Millón de Gracias</FONT></DIV>
<DIV>=========<BR>¦¦ ISMAEL ¦¦<BR>=========<BR>"Oír o leer sin reflexionar es
una ocupación
inútil".<BR>
Confucio (551-479 a. C.); filósofo chino.<BR></DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Mensaje original ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>De:</B> <A
title=xortix@gmail.com href="mailto:xortix@gmail.com">christian Ortiz</A>
</DIV>
<DIV style="FONT: 10pt arial"><B>Para:</B> <A
title=lazarus-es@lists.lazarus.freepascal.org
href="mailto:lazarus-es@lists.lazarus.freepascal.org">Spanish version of
Lazarus List</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Enviado:</B> martes, 29 de diciembre de 2009
11:00</DIV>
<DIV style="FONT: 10pt arial"><B>Asunto:</B> Re: [Lazarus-es] Formulario no
refresca en ciclos grandes</DIV>
<DIV><BR></DIV>asi no trabaja <BR><BR><BR>while algo_ocurra do
begin<BR><BR>
Application.ProcessMessages;<BR> ... to
codigo<BR><BR>end<BR><BR>
<DIV class=gmail_quote>2009/12/29 Ismael L. Donis García <SPAN dir=ltr><<A
href="mailto:ismael@citricos.co.cu">ismael@citricos.co.cu</A>></SPAN><BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; MARGIN: 0pt 0pt 0pt 0.8ex; BORDER-LEFT: rgb(204,204,204) 1px solid">
<DIV bgcolor="#ffffff">
<DIV><FONT face=Arial>Me da el siguiente error:</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>ufrmcierremp.pas(78,22) Error: identifier idents no
member "processmesage"<BR></FONT></DIV>
<DIV><FONT face=Arial>pongo:</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>if Application.processmesage('Estás seguro que desea
inicializar un nuevo día de
trabajo?',pchar(caption),$00000004+$00000020+$00000100) = 7 then
</FONT></DIV>
<DIV><FONT face=Arial>
begin<BR>
txtmes.SetFocus;<BR>
exit;<BR> end;<BR></FONT><FONT
face=Arial></FONT></DIV>
<DIV><FONT face=Arial>que Unit hay que referenciar?</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>El mensaje no está dentro del ciclo, sino lo que
pregunta si realiza la operación o no la realiza, además no solo no refresca
el formulario quedando la caja del mensaje, sino que al rato de estar
operando marea la aplicación por el número tan grande de
operaciones.</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Repito que eso en Visual Basic se elimina traspasando
la prioridad de ejecución al sistema operativo y después devolviéndosela a
la aplicación.</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Yo actualmente hago:</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial> if
Application.MessageBox('Estás seguro que desea inicializar un nuevo día de
trabajo?',pchar(caption),$00000004+$00000020+$00000100) = 7
then<BR>
begin<BR>
txtmes.SetFocus;<BR>
exit;<BR>
end;<BR> frmmp.lblestado.Caption :=
'Realizando Cierre Diario';<BR>
frmmp.Refresh;</FONT></DIV>
<DIV><FONT face=Arial>
self.Hide;<BR> .............</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Pero ni se me oculta la ventana de la pregunta,
ni el formulario desde donde pongo la operación.</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Repito eso solo ocurre en los ciclos
grandes.</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Saludos reiterados</FONT></DIV>
<DIV class=im>
<DIV>=========<BR>¦¦ ISMAEL ¦¦<BR>=========<BR>"Oír o leer sin reflexionar
es una ocupación
inútil".<BR>
Confucio (551-479 a. C.); filósofo chino.<BR></DIV></DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: rgb(0,0,0) 2px solid; MARGIN-RIGHT: 0px">
<DIV
style="FONT: 10pt arial; font-size-adjust: none; font-stretch: normal">-----
Mensaje original ----- </DIV>
<DIV
style="BACKGROUND: rgb(228,228,228); FONT: 10pt arial; font-size-adjust: none; font-stretch: normal; -moz-background-clip: border; -moz-background-origin: padding; -moz-background-inline-policy: continuous"><B>De:</B>
<A title=xortix@gmail.com href="mailto:xortix@gmail.com"
target=_blank>christian Ortiz</A> </DIV>
<DIV class=im>
<DIV
style="FONT: 10pt arial; font-size-adjust: none; font-stretch: normal"><B>Para:</B>
<A title=lazarus-es@lists.lazarus.freepascal.org
href="mailto:lazarus-es@lists.lazarus.freepascal.org"
target=_blank>Spanish version of Lazarus List</A> </DIV></DIV>
<DIV
style="FONT: 10pt arial; font-size-adjust: none; font-stretch: normal"><B>Enviado:</B>
martes, 29 de diciembre de 2009 09:15</DIV>
<DIV>
<DIV></DIV>
<DIV class=h5>
<DIV
style="FONT: 10pt arial; font-size-adjust: none; font-stretch: normal"><B>Asunto:</B>
Re: [Lazarus-es] Formulario no refresca en ciclos grandes</DIV>
<DIV><BR></DIV><B>application.processmesage</B> dentro de tu bucle<BR><BR>
<DIV class=gmail_quote>El 29 de diciembre de 2009 09:34, Ismael L. Donis
Garc?a <SPAN dir=ltr><<A href="mailto:ismael@citricos.co.cu"
target=_blank>ismael@citricos.co.cu</A>></SPAN> escribió:<BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; MARGIN: 0pt 0pt 0pt 0.8ex; BORDER-LEFT: rgb(204,204,204) 1px solid">No,
no lo puedo hacer en un proceso independiente, debe ser en el
proceso<BR>principal. Lo que necesito es transferir el proceso a los
otros sistemas de<BR>forma temporal o refrescar el formulario interciclo
para evitar que la<BR>aplicación se maree ya que el sistema no debe
dejar hacer nada más hasta que<BR>no termine esa operación. Así que no
me sirve el multihilo o multihebra.<BR><BR>Saludos a to2s<BR>
<DIV>=========<BR>¦¦ ISMAEL ¦¦<BR>=========<BR>"Oír o leer sin
reflexionar es una ocupación inútil".<BR>
Confucio (551-479 a. C.); filósofo
chino.<BR><BR>----- Mensaje original -----<BR>De: "JoshyFun" <<A
href="mailto:joshyfun@gmail.com"
target=_blank>joshyfun@gmail.com</A>><BR>Para: "Spanish version of
Lazarus List"<BR></DIV>
<DIV><<A href="mailto:lazarus-es@lists.lazarus.freepascal.org"
target=_blank>lazarus-es@lists.lazarus.freepascal.org</A>><BR></DIV>Enviado:
lunes, 28 de diciembre de 2009 04:06<BR>Asunto: Re: [Lazarus-es]
Formulario no refresca en ciclos grandes<BR>
<DIV>
<DIV></DIV>
<DIV><BR><BR>Hello christian,<BR><BR>Monday, December 28, 2009, 10:38:20
PM, you wrote:<BR><BR>cO> intenta algo como<BR>cO>
application.processmessage<BR>cO> o usa algo mas decente con hilos de
ejecucion (aveces le llaman hebras)<BR>cO> <A
href="http://wiki.lazarus.freepascal.org/Multithreaded_Application_Tutorial/es"
target=_blank>http://wiki.lazarus.freepascal.org/Multithreaded_Application_Tutorial/es</A><BR><BR>Una
hebra es otra cosa, aunque algunos a veces lo usan incorrectamente<BR>de
manera indiferente.<BR><BR>Cuando un sistema operativo ejecuta cosas lo
puede hacer en 3
modos<BR>"básicos":<BR><BR>Proceso:<BR>-------------<BR>A) El código
tiene una zona de programa común (todas las copias del<BR>mismo proceso
comparten el código).<BR>B) La zona de datos es diferent para cada
proceso.<BR>C) Stack independiente para cada proceso.<BR><BR>Thread o
Hilo<BR>-------------<BR>A) El código es común entre todos los procesos
iguales e hilos<BR>iguales.<BR>B) Zona de datos común para todos los
hilos de un mismo proceso.<BR>C) Stack independiente para cada
hilo.<BR><BR>Fiber o hebra<BR>-------------<BR>A) El código es común
entre todos los procesos iguales, hilos y<BR>hebras iguales.<BR>B) Zona
de datos común para todos los hilos y hebras de un
mismo<BR>proceso.<BR>C) Stack común para todos.<BR><BR>Esto implica que
la multitarea en una hebra o "fiber" no es posible<BR>del mismo modo que
con un "thread", y esta ha de ser "cooperativa" al<BR>igual que lo eran
los threads y los procesos en Win 3.1.<BR><BR>La ventaja de la hebra
sobre el thread es que hacer un "task<BR>switching" no requiere poner el
procesador en modo "context switch" lo<BR>que requiere muchos ciclos, ya
que todo el proceso se realiza en el<BR>modo "usuario" o "ring
3".<BR><BR>Windows creo que soporta hebras desde Vista en adelante,
pero<BR>programar con hebras es para artistas :)<BR><BR>--<BR>Best
regards,<BR> JoshyFun<BR><BR><BR>_______________________________________________<BR>Lazarus-es
mailing list<BR><A href="mailto:Lazarus-es@lists.lazarus.freepascal.org"
target=_blank>Lazarus-es@lists.lazarus.freepascal.org</A><BR><A
href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es"
target=_blank>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</A><BR><BR><BR><BR>_______________________________________________<BR>Lazarus-es
mailing list<BR><A href="mailto:Lazarus-es@lists.lazarus.freepascal.org"
target=_blank>Lazarus-es@lists.lazarus.freepascal.org</A><BR><A
href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es"
target=_blank>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</A><BR></DIV></DIV></BLOCKQUOTE></DIV><BR><BR
clear=all><BR>-- <BR>Christian<BR></DIV></DIV>
<P></P>
<HR>
<DIV class=im>
<P></P>_______________________________________________<BR>Lazarus-es
mailing list<BR><A href="mailto:Lazarus-es@lists.lazarus.freepascal.org"
target=_blank>Lazarus-es@lists.lazarus.freepascal.org</A><BR><A
href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es"
target=_blank>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</A><BR></DIV></BLOCKQUOTE></DIV><BR>_______________________________________________<BR>Lazarus-es
mailing list<BR><A
href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</A><BR><A
href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es"
target=_blank>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</A><BR><BR></BLOCKQUOTE></DIV><BR><BR
clear=all><BR>-- <BR>Christian<BR>
<P>
<HR>
<P></P>_______________________________________________<BR>Lazarus-es mailing
list<BR>Lazarus-es@lists.lazarus.freepascal.org<BR>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es<BR></BLOCKQUOTE></BODY></HTML>