Recent

Author Topic: Msg.EndSession (Windows)  (Read 3721 times)

anderbelluno

  • New Member
  • *
  • Posts: 39
Msg.EndSession (Windows)
« on: July 14, 2017, 06:57:39 pm »
Pessoal blz?

estou precisando escrever um arquivo em outro pc quando desligar o meu.
ou seja
Code: Pascal  [Select][+][-]
  1. if (Msg.EndSession = TRUE) then
  2.  
  3.     begin
  4.       arqINIPC:= TIniFile.Create(CaminhoPc);
  5.        try
  6.         arqINIPC.WriteString('Config','AUTOSDWN','S');
  7.        finally
  8.            arqINIPC.Free;
  9.        end;
  10.      end;
onde
CaminhoPC é o caminho de rede.
se eu colocar esse mesmo codigo em um button (sem o if (Msg.EndSession = TRUE) then)
funciona corretamente.

Sera que o programa nao consegue encrever no arquivo antes de desligar o pc?

Obrigado.
Anderson.

anderbelluno

  • New Member
  • *
  • Posts: 39
Re: Msg.EndSession (Windows)
« Reply #1 on: July 16, 2017, 04:32:51 pm »
Será que ninguém precisou fazer algo parecido?

pc rede = pc2
meu pc = server

este pc2 depende que o server esteje ligado para se conectar ao banco de dados.
quando eu desligar o server gostaria de escrever um arquivo de texto no pc2, para informar que o server foi desligado.
e no pc2 tenho um timer que controla este arquivo, se o arquico existir, quer dizer que o server foi desligado e  que posso desligar o pc2 automaticamente.

não sei se fui claro em minha explicação, mas basicamente é isso que estou precisando fazer.

Obrigado.
Anderson.

Almir.Bispo

  • Jr. Member
  • **
  • Posts: 91
  • CSV Comp DB is the Best NoSQL
    • CSV Comp DB (NoSQL)
Re: Msg.EndSession (Windows)
« Reply #2 on: July 16, 2017, 06:57:10 pm »
Se eu fosse você usaria o componente Lnet para criar uma conexão tipo TCP/IP onde o servidor pudesse responder quando "conexão estabelecida" e executando no servidor a ação necessária.Ja no caso de falta de conexão,no lado cliente receberia mensagem de erro no evento OnError do componente.
Baixe e instale o componente Lnet.
Isso é uma vantagem devido que é multiplataforma.

Meus Projetos:http://adltecnologia.blogspot.com.br
CSV Comp DB Developer {Pascal Lover}

anderbelluno

  • New Member
  • *
  • Posts: 39
Re: Msg.EndSession (Windows)
« Reply #3 on: July 17, 2017, 06:47:08 pm »
Almir blz,
fiz o download do componente, instalei e quando pede para reconstruir a IDE de dá erro na seguinte linha
Code: Pascal  [Select][+][-]
  1. implementation
  2. {$if not defined(hasamiga)}
  3. uses sslsockets;  //Aqui da erro
  4. {$endif}  


me da o seguinte erro:
Message: Impossibile trovare sslsockets usato da fphttpclient. Make sure all ppu files of a package are in its output directory. ppu in wrong directory=C:\lazarus\fpc\3.0.2\units\x86_64-win64\fcl-net\sslsockets.ppu..
e não instala.
oque pode estar errado.
estou com o Lazarus 1.6.4

anderbelluno

  • New Member
  • *
  • Posts: 39
Re: Msg.EndSession (Windows)
« Reply #4 on: July 17, 2017, 06:56:22 pm »
Opa,
Removi os arquivos, baixei de novo e funcionou.

Vou estudar o componente e logo logo volto a postar as soluções.
Obrigado.

 

TinyPortal © 2005-2018