Cómo prevenir que se cierre???

[Pandre]

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:

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]

algo rudimentario puede ser:

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]

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:

repeat
  PickMessage;
  TranslateMessage;
  ProcessMessage;
until Terminated;

o algo parecido.

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

// Saludos

[jachguate]

Empezado por roman

será, a final de cuenta un ciclo:

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]

Empezado por jachguate

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..

Curioso! Estoy defendiendo tu método de ti mismo

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

while ProcessMessage(Msg) do
  ;

y que Application.Run se reduce a:

repeat
  HandleMessage;
until Terminated;

y HandleMessage a

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.

// Saludos

[jachguate]

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

Hasta luego.