Sistema De Alerta De Chegada de Arquivo

Vamos Abrir mais o Coração e Ajudar aos próximos... VIVA LINUX

Pessoal.

Boa Tarde,

 

Esse é a minha primeira Contribuição de muitas. Eu trabalho na área de Processamento de dados. No qual tenho a finalidade de ficar aguardando a transmissão de dados do cliente e depois processas os dados, enfim. Desenvolvi um pequenos sistema de alerta, no qual. onde ele tem a finalidade sinaliza com áudio e um ShowMessage, ao chegar arquivo no Servidor.

Observação: Sabendo que o Programa fica em LOOP. Até ele Encontrar o (Arquivo desejado).

 
 
Componentes:
 
3 BitBtn
2 Label
2 Edit
 
 

Vamos ao Codigo:

</FONT></DIV> <DIV align=left></FONT> </DIV> <DIV align=left>unit Unit1;</FONT></DIV> <DIV align=left>interface</FONT></DIV> <DIV align=left>uses<BR>  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<BR>  Dialogs, StdCtrls, MMSystem, Buttons, jpeg, ExtCtrls ;</FONT></DIV> <DIV align=left>type<BR>  TForm1 = class(TForm)<BR>    Panel1: TPanel;<BR>    Image1: TImage;<BR>    Edit1: TEdit;<BR>    BitBtn1: TBitBtn;<BR>    BitBtn2: TBitBtn;<BR>    Label1: TLabel;<BR>    BitBtn4: TBitBtn;<BR>    Edit2: TEdit;<BR>    Label2: TLabel;<BR>    procedure BitBtn1Click(Sender: TObject);<BR>    procedure BitBtn2Click(Sender: TObject);<BR>    procedure BitBtn3Click(Sender: TObject);<BR>    procedure BitBtn4Click(Sender: TObject);<BR>  private<BR>    { Private declarations }<BR>  public<BR>    { Public declarations }<BR>  end;</FONT></DIV> <DIV align=left>var<BR>  Form1: TForm1;</FONT></DIV> <DIV align=left>implementation</FONT></DIV> <DIV align=left>uses ABOUT;</FONT></DIV> <DIV align=left>{$R *.dfm}</FONT></DIV> <DIV align=left>procedure TForm1.BitBtn1Click(Sender: TObject);<BR> Var<BR>arquivo: String;<BR>Movimento : String;<BR>Endereco : string;<BR>begin<BR>   Movimento := Copy(Edit1.Text, 0,4);<BR>   Endereco := Edit2.Text;<BR>   arquivo := Endereco + ''\'' + ''GRB'' + Movimento + ''01.zip'';</FONT></DIV> <DIV align=left>  if FileExists(arquivo) = true then<BR>begin<BR>    sndPlaysound(''C:\Windows\Media\Alerta.wav'',snd_async); //Coloca O Caminho do MID ou Wav.<BR>    ShowMessage(''O Arquivo Já Existe, Na Pasta Local..'');<BR>end<BR>  else<BR>if FileExists(arquivo) = False then<BR>repeat<BR>  begin<BR>   FileExists(arquivo);<BR>  end;<BR>until FileExists(arquivo) = true;<BR>   sndPlaysound(''C:\Windows\Media\Alerta.wav'',snd_async); //Coloca O Caminho do MID ou Wav.<BR>    ShowMessage(''Arquivo Sendo Transferido...'');</FONT></DIV> <DIV align=left>end;</FONT></DIV> <DIV align=left>procedure TForm1.BitBtn2Click(Sender: TObject);<BR>begin<BR>    Close;<BR>end;</FONT></DIV> <DIV align=left>procedure TForm1.BitBtn3Click(Sender: TObject);<BR>begin<BR>     AboutBox.ShowModal;<BR>end;</FONT></DIV> <DIV align=left>procedure TForm1.BitBtn4Click(Sender: TObject);<BR>begin<BR>   SndPlaySound('''', SND_MEMORY);<BR>end;</FONT></DIV> <DIV align=left>end.</FONT></DIV> <DIV align=left>

 

Ai pessoal. Segue todo o Código Fonte desse sistema.. Principalmente pra aqueles que trabalha de Madrugada (hehehe, no meu caso).. Peço que conforme vão Atualizando esse sistema. Contribua Aqui no Mural.

 

Deste de Já...

 

Um Abraço...

Artigos relacionados