Pascal/Delphi O programa compila mas fecha na mesma hora

[Felipe Eduardo R. Mesquita]

Boa tarde a todos!

 

De vez em quando, acontece isso comigo, o Delphi compila a aplicação mas ela não roda ou fecha sozinha...Para resolver eu estou sempre tendo que fechar o delphi e criar uma nova aplicação. Alguém poderia me ajudar conforme o vídeo abaixo?

 

Agradeço pela atenção.

[devair1010]

@Felipe Eduardo R. Mesquita       isso não é comum de acontecer ,  se você puder poste seu código para vermos como está e em que podemos ajudar  .

[Felipe Eduardo R. Mesquita]

8 horas atrás, devair1010 disse:

@Felipe Eduardo R. Mesquita       isso não é comum de acontecer ,  se você puder poste seu código para vermos como está e em que podemos ajudar  .

Bom dia,

agradeço pela ajuda, segue em anexo.

Emissor de NFCE e NFE.rar

[devair1010]

@Felipe Eduardo R. Mesquita     olá,  esse arquivo rar que você enviou está danificado e não se consegue abri-lo ,  seria melhor você postar seu código aqui no fórum mesmo .

[Felipe Eduardo R. Mesquita]

1 hora atrás, devair1010 disse:

@Felipe Eduardo R. Mesquita     olá,  esse arquivo rar que você enviou está danificado e não se consegue abri-lo ,  seria melhor você postar seu código aqui no fórum mesmo .

Segue o codigo:

unit uFrmMenu;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus,
  FireDAC.Stan.Intf,
  FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf,
  FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys,
  FireDAC.Phys.FB, FireDAC.Phys.FBDef, FireDAC.VCLUI.Wait, Data.DB,
  FireDAC.Comp.Client;

type
  TFrmMenu = class(TForm)
    MainMenu1: TMainMenu;
    Cadastros1: TMenuItem;
    Clientes1: TMenuItem;
    Produtos1: TMenuItem;
    ransportadoras1: TMenuItem;
    Emisso1: TMenuItem;
    NFe1: TMenuItem;
    NFCe1: TMenuItem;
    Sair1: TMenuItem;
    Conexao: TFDConnection;
    procedure Sair1Click(Sender: TObject);
    procedure Clientes1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMenu: TFrmMenu;

implementation

{$R *.dfm}

uses uFrmCadastroClientes;

procedure TFrmMenu.Clientes1Click(Sender: TObject);
begin
  if frmCadastroClientes = nil then
  begin
    Application.CreateForm(TFrmCadastroClientes, frmCadastroClientes);
  end;
  frmCadastroClientes.Show;
end;

procedure TFrmMenu.Sair1Click(Sender: TObject);
begin
  Close;
end;

end.

unit uFrmCadastroClientes;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Data.DB,
  FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param,
  FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf,
  FireDAC.Stan.Async, FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.Comp.Client,
  Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids, Vcl.Mask, Vcl.DBCtrls, Vcl.CheckLst,
  Vcl.ExtCtrls;

type
  TFrmCadastroClientes = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    txtValorPesquisa: TEdit;
    btnPesquita: TButton;
    DBGrid1: TDBGrid;
    Pes: TLabel;
    QueTabela: TFDQuery;
    QueTabelaCODIGO: TIntegerField;
    QueTabelaNOME: TStringField;
    QueTabelaPESSOA: TStringField;
    QueTabelaCNPJ_CPF: TStringField;
    QueTabelaIE_RG: TStringField;
    QueTabelaENDERECO: TStringField;
    QueTabelaNUMERO: TStringField;
    QueTabelaBAIRRO: TStringField;
    QueTabelaCOMPLEMENTO: TStringField;
    QueTabelaCEP: TStringField;
    QueTabelaCODIGO_CIDADE: TIntegerField;
    QueTabelaNOME_CIDADE: TStringField;
    QueTabelaCODIGO_UF: TIntegerField;
    QueTabelaNOME_UF: TStringField;
    Label1: TLabel;
    txtCodigo: TDBEdit;
    DataSource1: TDataSource;
    Label2: TLabel;
    txtNome: TDBEdit;
    lblCPFCNPJ: TLabel;
    txtCPFCNPJ: TDBEdit;
    lblIERG: TLabel;
    txtIERG: TDBEdit;
    Label6: TLabel;
    txtEndereco: TDBEdit;
    Label7: TLabel;
    txtnumero: TDBEdit;
    Label8: TLabel;
    txtBairro: TDBEdit;
    Label9: TLabel;
    txtComplemento: TDBEdit;
    Label10: TLabel;
    txtCEP: TDBEdit;
    btnIncluir: TButton;
    btnAlterar: TButton;
    btnExlcuir: TButton;
    btnSalvar: TButton;
    btnCancelar: TButton;
    lcCidade: TDBComboBox;
    lcEstado: TDBComboBox;
    Label4: TLabel;
    Label5: TLabel;
    DBRadioGroup1: TDBRadioGroup;
    procedure AtivaDesativaBotoes;
    procedure btnIncluirClick(Sender: TObject);
    procedure btnAlterarClick(Sender: TObject);
    procedure btnSalvarClick(Sender: TObject);
    procedure btnCancelarClick(Sender: TObject);
    procedure btnExlcuirClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure btnPesquitaClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmCadastroClientes: TFrmCadastroClientes;

implementation

{$R *.dfm}

uses uFrmMenu;

procedure TFrmCadastroClientes.AtivaDesativaBotoes;
begin
  btnIncluir.Enabled := not btnIncluir.Enabled;
  btnExlcuir.Enabled := not btnExlcuir.Enabled;
  btnAlterar.Enabled := not btnAlterar.Enabled;
  btnCancelar.Enabled := not btnCancelar.Enabled;
  btnSalvar.Enabled := not btnSalvar.Enabled;
end;

procedure TFrmCadastroClientes.btnAlterarClick(Sender: TObject);
begin
  if not QueTabela.FieldByName('Codigo').IsNull then
  begin
    AtivaDesativaBotoes;
    QueTabela.Edit;
    txtNome.SetFocus;
  end;
end;

procedure TFrmCadastroClientes.btnCancelarClick(Sender: TObject);
  procedure LimparEdits(AControl: TComponent);
  var
    vLoop: Integer;
  begin
    AtivaDesativaBotoes;
    for vLoop := 0 to AControl.ComponentCount - 1 do
    // ComponentCount retorna a qtde de componentes que o
    begin // o parent é o AControl, ou seja, somente os componentes que
      { Se for um componente do tipo TEdit, }     // estão ligados a ele
      { então iremos limpar o conteúdo, caso }
      { contrário, iremos rechamar a procedure }
      { pois o AControl pode ser um painel e temos }
      { que limpar inclusive os edits do painel }
      if AControl.Components[vLoop].ClassType = TEdit then
        TEdit(AControl.Components[vLoop]).Clear
        // Aqui utilizamos o Cast para obter as propriedades e métodos do edit }
      else
        LimparEdits(AControl.Components[vLoop]);
    end;
  end;

begin
  LimparEdits(Self);
  // O processo irá iniciar limpando os edits que estão diretamente
  // focados no form
end;

procedure TFrmCadastroClientes.btnExlcuirClick(Sender: TObject);
begin
  if not QueTabela.FieldByName('Codigo').IsNull then
  begin
    QueTabela.Delete;
    ShowMessage('Cliente Excluido!');
  end
  else
  begin
    ShowMessage('Nenhum Cliente Selecionado!');
  end;
end;

procedure TFrmCadastroClientes.btnIncluirClick(Sender: TObject);
begin
  AtivaDesativaBotoes;
  QueTabela.Append;
  txtNome.SetFocus;
end;

procedure TFrmCadastroClientes.btnPesquitaClick(Sender: TObject);
begin
  QueTabela.Close;
  QueTabela.SQL.Clear;
  QueTabela.SQL.Add('Select * from Tab_Clientes where nome like :pPesq');
  QueTabela.ParamByName('pPesq').AsString := '%' + txtValorPesquisa.Text + '%';
  QueTabela.Open;
end;

procedure TFrmCadastroClientes.btnSalvarClick(Sender: TObject);
begin
  try
    QueTabela.Post;
    AtivaDesativaBotoes;
    ShowMessage('Cliente Gravado com Sucesso!');
  except
    ShowMessage('Erro ao Gravar!');
  end;
end;

procedure TFrmCadastroClientes.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TFrmCadastroClientes.FormDestroy(Sender: TObject);
begin
  FrmCadastroClientes := nil;
end;
end.

 

[devair1010]

@Felipe Eduardo R. Mesquita     esse primeiro código eu testei aqui e está funcionando normal , mas o segundo ainda não consegui monta-lo para testar pois ele tem muitos botões ,  mas o que percebi ao testar é que o antivírus  deixa o programa compilar e rodar apenas por 10 segundos e depois ele fecha o programa , então o que precisei fazer foi desabilitar o antivírus enquanto estava testando e aí funcionou bem  .

[Felipe Eduardo R. Mesquita]

12 horas atrás, devair1010 disse:

@Felipe Eduardo R. Mesquita     esse primeiro código eu testei aqui e está funcionando normal , mas o segundo ainda não consegui monta-lo para testar pois ele tem muitos botões ,  mas o que percebi ao testar é que o antivírus  deixa o programa compilar e rodar apenas por 10 segundos e depois ele fecha o programa , então o que precisei fazer foi desabilitar o antivírus enquanto estava testando e aí funcionou bem  .

Muito obrigado pela ajuda.