RibaSoft

Aba System — A Ponte Estrutural com o Windows

Se a aba Dialogs é a ponte visual com o Windows, a aba System é a ponte invisível e estrutural com o sistema operacional. Aqui você controla processos paralelos, comunicação entre programas, serviços do Windows e muito mais — sem uma única janela aparecendo para o usuário.

• • TProcess e TProcessUTF8 — Executar programas externos
  • TAsyncProcess — Executar em segundo plano sem travar a tela
  • TTimer — Tarefas periódicas
  • TIdleTimer — Bloqueio por inatividade
  • TSimpleIPCClient e TSimpleIPCServer — Comunicação entre processos
  • TServiceManager — Controlar serviços do Windows
  • TEventLog — Logs no Visualizador de Eventos

TProcess e TProcessUTF8 — Executar Programas Externos

• Esqueça as antigas funções WinExec ou ShellExecute da API do Windows. Estes componentes são a forma moderna, segura e multiplataforma de executar programas externos.

  Você os usa para chamar um atualizador do sistema (update.exe), rodar um script de backup do Firebird (gbak.exe oculto) ou abrir o leitor de PDF após o Fortes Report gerar um arquivo.

  Dica importante: Use sempre o TProcessUTF8, pois ele lida perfeitamente com caminhos de rede e pastas que contenham acentuação (ex: C:\Notas Fiscais\).

  // Executar o GBAK do Firebird para fazer backup em segundo plano: var Proc: TProcessUTF8; Proc := TProcessUTF8.Create(nil); try Proc.Executable := 'C:\FirebirdSS-3.0\gbak.exe'; Proc.Parameters.Add('-b'); Proc.Parameters.Add('-v'); Proc.Parameters.Add('-user'); Proc.Parameters.Add('SYSDBA'); Proc.Parameters.Add('-password'); Proc.Parameters.Add('masterkey'); Proc.Parameters.Add('localhost:C:\Bancos\varejo.fdb'); Proc.Parameters.Add('C:\Backups\varejo_' + FormatDateTime('yyyymmdd_hhnnss', Now) + '.fbk'); // Opções de execução: Proc.Options := [poWaitOnExit]; // Aguarda o processo terminar Proc.ShowWindow := swoHide; // Esconde a janela do gbak Proc.Execute; if Proc.ExitStatus = 0 then ShowMessage('Backup concluído com sucesso!') else ShowMessage('Erro no backup! Código: ' + IntToStr(Proc.ExitStatus)); finally Proc.Free; end;

  Comparação com o Firebird: O gbak.exe que você chama com o TProcess é o mesmo que você rodaria no terminal do Linux no servidor de produção. A diferença é que o TProcess te dá controle sobre isso dentro do seu sistema Pascal.

TAsyncProcess — Processo Assíncrono sem Travar a Tela

• É o irmão mais novo do TProcess. Foi desenhado para rodar ferramentas de linha de comando que demoram muito, sem "congelar" a tela do seu ERP. Ele possui eventos como OnReadData, que permite capturar o texto que o programa externo está cuspindo no console (stdout) e jogar em um TMemo em tempo real.

  // Rodar a validação do SPED Fiscal sem travar a tela: AsyncProcess1.Executable := 'java.exe'; AsyncProcess1.Parameters.Add('-jar'); AsyncProcess1.Parameters.Add('PVA_SPED.jar'); AsyncProcess1.Parameters.Add(ArquivoSPED); AsyncProcess1.Options := [poUsePipes]; // Habilita captura do output AsyncProcess1.Execute; // A tela continua responsiva. O evento OnReadData vai // sendo chamado conforme o Java imprime no console. // Evento OnReadData: procedure TFormSPED.AsyncProcess1ReadData(Sender: TObject); var S: TStringList; begin S := TStringList.Create; try S.LoadFromStream(AsyncProcess1.Output); MemoLog.Lines.AddStrings(S); MemoLog.SelStart := Length(MemoLog.Text); MemoLog.ScrollBy(0, MemoLog.Height); // Rolar para o final finally S.Free; end; end;

TTimer — Tarefas Periódicas

• Executa uma rotina repetidamente a cada X milissegundos. Útil para dar um refresh automático em um painel de "Pedidos Pendentes" na tela do cozinheiro em um sistema de restaurante, ou para consultar o status de serviço da Sefaz de tempos em tempos.

  // Timer para verificar o status da Sefaz a cada 5 minutos: Timer1.Interval := 5 * 60 * 1000; // 5 minutos em milissegundos Timer1.Enabled := True; // Evento OnTimer: procedure TFormPrincipal.Timer1Timer(Sender: TObject); begin // Consulta o WebService de status da Sefaz via ACBr VerificarStatusSefaz; // Atualiza o TShape "farol" na StatusBar AtualizarFarolStatusSefaz; end;

  Atenção com o Timer: O evento OnTimer roda na thread principal (UI thread). Se o que você executa for pesado (uma query grande no Firebird), a tela vai travar durante a execução. Para consultas pesadas, use TAsyncProcess ou threads.

TIdleTimer — Bloqueio por Inatividade

• Ao contrário do Timer normal, ele só dispara se o usuário não estiver mexendo no mouse ou teclado. É o componente ideal para duas situações clássicas:

  Cenário 1 — Segurança: Se o caixa do PDV ficar 5 minutos sem tocar no computador, o TIdleTimer dispara e bloqueia a tela, exigindo a senha novamente. Evita que outra pessoa acesse o sistema enquanto o operador está atendendo um cliente no balcão.

  Cenário 2 — Performance: Rodar uma rotina pesada de limpeza de arquivos temporários do ACBr apenas quando o sistema estiver ocioso, para não causar lentidão enquanto o usuário digita uma nota.

  // Bloquear a tela após 5 minutos de inatividade: IdleTimer1.Interval := 5 * 60 * 1000; // 5 minutos IdleTimer1.Enabled := True; // Evento OnTimer do IdleTimer: procedure TFormPrincipal.IdleTimer1Timer(Sender: TObject); begin IdleTimer1.Enabled := False; // Desativa para não ficar chamando em loop // Oculta o formulário principal e mostra o formulário de bloqueio: FormBloqueio.ShowModal; // ShowModal retorna apenas quando o usuário digitar a senha correta IdleTimer1.Enabled := True; // Reativa após desbloquear end;

TSimpleIPCClient e TSimpleIPCServer — Comunicação entre Processos

• Permitem que dois executáveis diferentes conversem entre si na mesma máquina, enviando mensagens de texto de forma incrivelmente rápida e sem usar portas de rede (TCP/IP) — o que evita bloqueios chatos do Firewall do Windows.

  Cenário Clássico: Você tem o PDV rodando na frente e um "Monitor de Impressão" rodando escondido perto do relógio do Windows. O PDV usa o Client para enviar uma string IMPRIMIR_PEDIDO_55 e o Server no Monitor recebe instantaneamente e manda para a impressora. Isso evita que o PDV trave se a impressora der erro de papel.

  // No executável PDV.exe (Client): SimpleIPCClient1.ServerID := 'MonitorImpressao_RibaSoft'; // ID único do servidor SimpleIPCClient1.Active := True; if SimpleIPCClient1.ServerRunning then SimpleIPCClient1.SendStringMessage('PEDIDO:55|MESA:3|ITENS:2') else ImprimirDiretamente; // Fallback se o monitor não estiver rodando // No executável Monitor.exe (Server): SimpleIPCServer1.ServerID := 'MonitorImpressao_RibaSoft'; // Mesmo ID SimpleIPCServer1.Active := True; // Evento OnMessage: procedure TFormMonitor.SimpleIPCServer1Message(Sender: TObject); var Mensagem: String; begin Mensagem := SimpleIPCServer1.StringMessage; // Parsear e processar: 'PEDIDO:55|MESA:3|ITENS:2' ProcessarComandoImpressao(Mensagem); end;

TServiceManager — Controlar Serviços do Windows

• Permite que o seu sistema controle os Serviços do Windows (aqueles que você vê no services.msc). Em uma tela de configurações do seu ERP, você pode usar isso para verificar se o serviço do Firebird está rodando, e até dar um comando de Start ou Stop nele diretamente pelo seu sistema.

  // Verificar e iniciar o serviço do Firebird 3.0: ServiceManager1.Connect; // Conecta ao gerenciador de serviços do Windows if ServiceManager1.ServiceStatus('FirebirdServerDefaultInstance') = ssRunning then LabelStatusFirebird.Caption := '● Firebird Rodando' else begin LabelStatusFirebird.Caption := '○ Firebird Parado - Tentando iniciar...'; ServiceManager1.StartService('FirebirdServerDefaultInstance'); // Aguarda uns segundos e verifica de novo Sleep(3000); if ServiceManager1.ServiceStatus('FirebirdServerDefaultInstance') = ssRunning then LabelStatusFirebird.Caption := '● Firebird Rodando' else ShowMessage('Não foi possível iniciar o serviço do Firebird. Execute como Administrador.'); end; ServiceManager1.Disconnect;

TEventLog — Logs no Visualizador de Eventos do Windows

• Em vez de salvar logs de erros críticos em um arquivo .txt que o usuário pode apagar sem querer, este componente grava os erros diretamente no Visualizador de Eventos do Windows (Event Viewer). Fica extremamente profissional e centralizado para um suporte de TI avançado analisar depois.

  // Gravar um erro crítico no Visualizador de Eventos do Windows: EventLog1.Source := 'RibaSoft Varejo'; // Nome que aparecerá no Event Viewer // Gravar um erro de banco de dados: EventLog1.Log(EventLog1.Source, etError, 3001, 'Erro de conexão com o Firebird: ' + E.Message + ' | Usuário: ' + NomeUsuario + ' | Banco: ' + StringConexao); // Gravar uma informação de auditoria: EventLog1.Log(EventLog1.Source, etInfo, 2001, 'NF-e 000.123 autorizada. Usuário: ' + NomeUsuario);

  Comparação com um arquivo TXT: O arquivo de log pode ser apagado pelo usuário, ficar corrompido se o sistema travar no meio da escrita, e não tem ordenação garantida. O Event Viewer do Windows é atômico, protegido e consultável via ferramentas profissionais de monitoramento como o Zabbix ou SCOM.