Foros Club Delphi - Cómo prevenir que se cierre???

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Cómo prevenir que se cierre??? (https://www.clubdelphi.com/foros/showthread.php?t=7252)

Pandre

09-02-2004 19:42:49

Cómo prevenir que se cierre???

Que tal:

Estoy programando una aplicación que no contiene forms, por lo que todo va en el archivo .dpr. El problema es, que una vez ejecutadas las líneas entre begin y end. la aplicación termina.
El destino de esta aplicación es contener un servidor Gopher (con el componente de la librería INDY). La idea es simplemente una aplicación que contenga a ese servidor activo sin cerrarse, y que dicha aplicación no sea un servicio ni una consola.

Este es el código completo de la aplicación:

Código:

program ServidorGopher;



uses

  IdGopherServer;



{$R *.res}



var Server: TidGopherServer;



begin



  Server := TidGopherServer.Create(nil);

  Server.Active := True;



end.

¿Cómo evitar que se cierre lo anterior?

Muchísimas gracias de antemano

jachguate

09-02-2004 19:53:30

algo rudimentario puede ser:

Código:

program ServidorGopher;



uses

  IdGopherServer;



{$R *.res}



var Server: TidGopherServer;



begin



  Server := TidGopherServer.Create(nil);

  Server.Active := True;

  repeat until false;

end.

que nunca terminaría su ejecución..

ahora, esto te va a cargar el sistema con un ciclo infinito que consumirá al procesador...

Es mas sano, diria yo, poner el componente en un form, y que quede a la espera hasta que el form sea cerrado, no te parece?

hasta luego.

;)

roman

11-02-2004 03:01:57

Cita:

Empezado por jachguate

algo rudimentario puede ser:

Es mas sano, diria yo, poner el componente en un form, y que quede a la espera hasta que el form sea cerrado, no te parece?

Pero si el programa no requiere un formulario sería un poco excesivo no?

Yo creo que tu solución es más adecuada aunque con alguna puerta de escape. Quizá colocando un icono en la bandeja del sistema que permita cerrar la aplicación. De cualquier manera, al usar un formulario, como todo programa Windows, será, a final de cuenta un ciclo:

Código:

repeat

  PickMessage;

  TranslateMessage;

  ProcessMessage;

until Terminated;

o algo parecido.

Todo esto claro, sin saber por qué no desea un servicio.

// Saludos

jachguate

11-02-2004 04:17:44

Cita:

Empezado por roman

será, a final de cuenta un ciclo:

Código:

repeat

  PickMessage;

  TranslateMessage;

  ProcessMessage;

until Terminated;

Habrá que tomar en cuenta, que en este caso la rutina PickMessage (o como se llame) debiera quedar en espera de un mensaje (via una callback y no un ciclo) para evitar la carga del procesador... con lo que aunque teoricamente es un ciclo, la aplicación regularmente se mantiene a la espera de los mensajes... una gran diferencia en cuanto a carga del procesador con el repeat until false propuesto originalmente por mi..

Hasta luego.

;)

roman

11-02-2004 05:39:23

Cita:

Empezado por jachguate

Curioso! Estoy defendiendo tu método de ti mismo :p

Digamos que a tu ciclo sólo le haría falta un Application.ProcessMessages. Teniendo en cuenta que ProcessMessages se reduce a

Código:

while ProcessMessage(Msg) do

  ;

y que Application.Run se reduce a:

Código:

repeat

  HandleMessage;

until Terminated;

y HandleMessage a

Código:

if not ProcessMessage(Msg) then Idle(Msg);

ambos ciclos se ven muy parecidos, pero tu método tiene la ventaja de no gastar recursos del sistema creando un formulario. :p

// Saludos

jachguate

11-02-2004 09:02:26

Pues GRACIAS!!! has resultado un muy buen defensor... y me has convencido.. me quedo con MI propuesta... :D:D:D:D

Hasta luego.

;)

La franja horaria es GMT +2. Ahora son las 23:57:44.