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