Se para al activarse el salvapantallas

[mosco]

Exacto Casimiro, son dos tuberias (pipes) que creo para comunicarme con un servidor (router) y los procesos de enviar y recibir son los siguientes:

Código Delphi [-]
procedure EnviaDatos(Cadena: string);
var
  i: integer;
  begin
    for i:= 1 to length(Cadena) do
      begin
        buf[i-1]:= Cadena[i];
        buf[length(Cadena)]:= #13; // Añadimos "intro" para que el comando se introduzca
      end;  
    WriteFile(write_stdin,
              buf,
              length(Cadena)+1,
              bread,
              Nil);
  end;

procedure RecibeDatos;
  Begin
    BorraBuffer;
    sleep(100);
    PeekNamedPipe(read_stdout,@buf,BUFFERSIZE-1,@bread,@avail,NiL);
    // Chequear si hay datos para leer en stdout
    if (avail <> 0) then
      Begin
        ReadFile(read_stdout,
                 buf,
                 BUFFERSIZE,
                 bread,
                 Nil);
        FuerzaSenial:= StrToInt(buf[bread-20] + buf[bread-19]);
        DatosConConexion:= 1;
      end
    else
      begin
        DatosConConexion:= 0;
        showmessage('No hay conexion establecida');
      end
  end;

Se crean las dos pipes para enviar y recibir datos y las mantengo abiertas hasta que salgo del programa. Cuando salgo cierro todos los handles.
Puedo poner el codigo completo de las dos unidades que componen el programa pero me parece un poco extenso.

[[nlsgarcia]]

mosco,

Empezado por mosco

El programa se ejecuta perfectamente hasta que salta el salvapantallas de windows (3 minutos).

Dudas:

1- ¿La falla se presenta con cualquier opción de Protector de Pantalla de forma automática y manual independientemente del lapso de tiempo?

2- ¿Haz probado comentar de manera selectiva (De lo general a lo específico) el código dentro del Repeat-Until para tratar de aislar la falla?

3- ¿Haz probado el programa en otro Computador con igual y diferente Sistema Operativo Windows?

4- ¿Haz probado el programa en el mismo Computador en Modo Safe?

En Resumen: La idea general es tratar de aislar la falla para posteriormente encontrar su solución.

Prueba hacer este cambio:

Código Delphi [-]
   Loop := True;

   Repeat

   // Tu Código.
 
   // Permite cancelar el ciclo externamente por medio de la variable global Loop
   until Loop = False;

Espero sea útil

Nelson.

[ecfisa]

Hola mosco.

Si el problema es el protector de pantalla, otra opción es desactivarlo temporalmente y luego del proceso activarlo. (Zarko Gajic)

Por ejemplo:

Código Delphi [-]
function ActivateScreenSaver(Activate: boolean): boolean;
var
  IntActive: byte;
begin
  if Activate then
    IntActive := 1
  else
    IntActive := 0;
  Result := SystemParametersInfo(
   SPI_SETSCREENSAVEACTIVE, IntActive, nil, 0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Button1.Enabled:=False;
  Button2.Enabled:=False;
  try
    try
      ActivateScreenSave(False);
      repeat
        Application.ProcessMessages;
        Memo1.Clear;
        BorraBuffer;
        EnviaDatos('....');
        RecibeDatos;
        if DatosConConexion = 0 then break;
        Memo1.Font.Size:= 300;
        Memo1.Lines.Text := IntToStr(FuerzaSenial);
        sleep(500);
      until (Button3.Tag = 1) or (Button4.Tag = 1);
    finally
       ActivateScreenSaver(True)
    end;
    Memo1.Clear;
    Memo1.Font.Size:= 10;
    Button1.Enabled:=True;
    Button2.Enabled:=True;
    Button3.Tag:= 0;
    Button4.Tag:= 0;
  except
   ...
  end;
end;

Saludos.

[mosco]

Muchas gracias señores por su ayuda. Ya lo he solucionado (hace tan solo unos minutos). Lo he solucionado simplemente colocando un Try...excep...end en el procedimiento "RecibeDatos" de la Unidad 2.
Ya no le afecta el salvapantallas. !!!Que cosas oye!!!.

Saludos.