Letreiro - Atualizar

Delphi

26/10/2005

Galera, Gostaria da ajuda de voces
em meu sistema eu controlo um letreiro digital...
Ou seja,
o adm. coloca uma mensagem para seus usuarios
e esta mensagem fica correndo no canto inferior da tela,,,
No evento show do form principal, ele faz a rotina responsavel...

Mas durante a aplicação eu tenho um timer de 5 minutos q me atualiza este conteudo...
Mas o que estou querendo é uma coisa diferente
Quando o Adm, mudar o letreiro, ele atualizar nas estações onde o programa esta rodando

Alguem tem alguma ideia

Abraços..


Tremonti

Tremonti

Curtidas 0

Respostas

Aerreira

Aerreira

26/10/2005

(...) Mas o que estou querendo é uma coisa diferente Quando o Adm, mudar o letreiro, ele atualizar nas estações onde o programa esta rodando

Faço algo muito parecido. Numa tela de parâmetros do sistema o adminstrador pode colocar qualquer frase num campo para a ´Mensagem´ numa tabela de parâmetros do sistema.

No form, tenho um timer com intervalo de 200 msec que chama uma rotina que lê o campo ´Mensagem´ e mostra ela num label do form. A rotina do timer não está muito boa ainda não... mas é assim:
procedure TfmMain.timerMsgTimer(Sender: TObject);
begin
  tempoMSG := tempoMSG + 1;
  mMsg := dm.tbParamMsgGeral.value + ´               ´+dm.tbParamMsgGeral.value+ ´               ´;
  if length(mMsg) < 80 then
     mMsg := mMSG + stringofchar(´ ´,100-length(mMsg));
  if tempoMSG < length(mMsg) then
  begin
    mMsg := copy(mMsg,tempoMSG,500);
  end
  else
    tempoMSG := 0;

  if length(mMSG) < 80 then
     mMSG := mMSG + copy(dm.tbParamMsgGeral.value,1,tempoMSG);

  with fmMain.lbMsg do
  begin
    if dm.tbParamMsgPrin.value = ´S´ then
    begin
      Font.Color := StringtoColor(dm.tbParamMsgCor.value);
      width := 449;
      caption := mMsg;
    end
    else
      caption := ´´;
  end;

end;

No inicio de sua Unit coloque em ´private´ as declarações abaixo:
    { Private declarations }
    mMsg: string;
    tempoMSG: integer;



GOSTEI 0
Tremonti

Tremonti

26/10/2005

Cara, nao queria usar um Timer...

Pensei num ServerSocket Sei lá

Mas mesmo assim Obrigado


GOSTEI 0
POSTAR