Instalador do ACBr para LAZARUS

Hoje vou mostrar para vocês um script que automatiza a instalação dos componentes ACBr no Lazarus (para Windows).
Isso mesmo, chega de ficar abrindo, compilando pacotes rs
Este script ele faz tudo para você !
O Script foi criado por nosso amigo Ari Rodrigues, grande contribuidor dos grupos Lazarus no Whats e Telegram.

Autor do Script: Ari Rodrigues (https://www.youtube.com/channel/UC35PdTRt4rJ4ahbDgBv_SHA/videos)
Link GitHub para baixar o script: (https://github.com/arirod/acbrscriptlazarus)
Blog do Régys: (https://regys.com.br/)
Controle de Versão: (https://tortoisesvn.net)

Corrigir erro GNU C Compiler (gcc) version

Quem nunca estava intalando VMWare no Linux e recebeu uma mensagem de erro:
GNU C Compiler (gcc) version 9.3.0 was not found. (no meu caso Ubuntu 20.04)
ou em versões anteriores como:
GNU C Compiler (gcc) version 4.8.5 was not found. / GNU C Compiler (gcc) verion 5.4.0 was not found. / GNU C Compiler (gcc) version 7.2.0 was not found. / GNU C Compiler (gcc) verion 8.3.0 was not found.

Um simples comando pode resolver isso:

sudo apt-get install build-essential

CMSP não pega na minha TV

ATENÇÃO: Alunos que não tem acesso ao centro de mídia (CMSP) porque o modelo do celular ou notebook não é suportado, basta acessar por qualquer TV no canal CULTURA EDUCAÇÃO.

CMSP Centro de Mídia SP não está aparecendo canal na minha televisão.
Muitas pessoas estão reclamando que o canal CULTURA EDUCAÇÃO não está aparecendo na tv.
As vezes basta seguir alguns passos simples como sintonizar o canal para solucionar o problema.

Para quem não sabe como sintonizar, segue dois vídeos (sintonizar em uma tv modelo novo e uma modelo antiga da tubo):

Vídeo 1: TV ANTIGA (utilizando um conversor digital padrao):

Video 2: TV atual modelo 2019 com conversor integrado:

Instalar CMSP no Windows

Aprenda como instalar o CMSP (Centro de Mídia SP) no seu computador ou notebook.

Vamos utilizar um emulador android com o nome de BlueStacks
O CMSP é um aplicativo android, então para funcionar no computador ou notebook devemos instalar um emulador android.

Lembrando que o nem todos computadores ou notebook suportam este tipo de emulador.

Meu primeiro contato com Flutter

Atenção ! Este vídeo é sobre o meu primeiro contato com flutter.

Não uma vídeo aula !

Mostro como é diferente a estrutura de programação, como fazer um “olá mundo” no flutter que é muito diferente da linguagem de programação que conheço.

Formulário de pesquisa padrão com parâmetros Delphi

Hoje vou mostrar como criar um formulário de pesquisa padrão.

Passar parâmetros entre um formulário e outro como campos que desejo listar na pesquisa, tabela e qual campo quero capturar no resultado da consulta.

Delphi e Firedac.

Declarações(frmPesquisa):

  private
    { Private declarations }
    cCampos, cCampoRetorno, cTabela : string;
  public
    { Public declarations }
    constructor Create(AOwner : TComponent; par_lstCampos : Array of string;par_cTabela, par_cCampoResult :string);

Creator (frmPesquisa)

constructor TfrmPesquisa.Create(AOwner: TComponent;
  par_lstCampos: array of string; par_cTabela, par_cCampoResult: string);
var
 n : Integer;
begin
  inherited Create(AOwner);
  Conexao.Open;
  cCampoRetorno := par_cCampoResult;
  cCampos:='';
  cbCAMPOS.Clear;
  cTabela := par_cTabela;
  for n := 0 to Length(par_lstCampos) -1 do
     begin
       cbCAMPOS.Items.Add(par_lstCampos[n]) ;
       if n = 0 then
         cCampos := par_lstCampos[n]
       else
         cCampos := cCampos +','+ par_lstCampos[n]  ;
     end;
     cbCAMPOS.ItemIndex := 1;
  if qrSQL.Active then
     qrSQL.Close;
  with qrSQL.SQL do
      begin
        Clear;
        add('Select '+cCampos);
        add('from '+cTabela)
      end;
  qrSQL.Open;

end;

Botão de Pesquisa

procedure TfrmPesquisa.btnPesquisaClick(Sender: TObject);
begin
  if qrSQL.Active then
     qrSQL.Close;
  with qrSQL.SQL do
      begin
        Clear;
        add('Select '+cCampos);
        add('from '+cTabela);
        add('where '+trim(cbCAMPOS.Text)+' like :cParametro');
      end;
  if cbFiltro.Text = 'parte' then
     qrSQL.ParamByName('cParametro').AsString := '%'+trim(edtBusca.Text)+'%'
  else if cbFiltro.Text = 'inicio' then
     qrSQL.ParamByName('cParametro').AsString := trim(edtBusca.Text)+'%'
  else if cbFiltro.Text = 'igual' then
     qrSQL.ParamByName('cParametro').AsString := trim(edtBusca.Text) ;
  qrSQL.Open;

end;

DBgrid double click

procedure TfrmPesquisa.DBGrid1DblClick(Sender: TObject);
begin
  edtRetorno.Clear;
  edtRetorno.Text := qrSQL.FieldByName(cCampoRetorno).AsVariant;
  qrSQL.Close;
  Conexao.Close;
  frmPesquisa.ModalResult := mrYes;
end;

Botão Cliente do FrmPrincipal

procedure TfrmPrincipal.btnClienteClick(Sender: TObject);
begin
   frmPesquisa := tfrmPesquisa.Create(self,['codigo','nome','telefone'],'cliente','nome');
   try
     if frmPesquisa.ShowModal = mrYes then
        edtRetornoPesquisa.Text := frmPesquisa.edtRetorno.Text
     else
        edtRetornoPesquisa.Clear;
   finally
     FreeAndNil(frmPesquisa);
   end;
end;

delphi #lazarus #formulário delphi #formulário de pesquisa #pesquisa padrão #passar parâmetros no formularo #formulário com parametros #parametros array #parametros vetor #array #vetor #firedac #banco de dados #mysql #sql #postgre #daniel de morais #infocotidiano

Instalador Avira Antivirus free Off line 2020

Para técnicos que precisam fazer constantemente instalação do Antivirus AVIRA, sabem que tempo é fundamental.

Para não ter que fazer download toda a vez que for instalar o Antivirus, existem opções para downloads de instaladores off-line.

Clique no link abaixo para download:

Download, clique aqui !

#avira #avirafree #aviraoffline #aviradownload #antivirusgratis #antivirusgratuito

Como usar SQL no Delphi ?

Neste vídeo vou mostrar como usar comandos SQL no Delphi.

Vou utilizar o firedac para conectar no banco de dados e montar as consultas em uma query de três formas diferentes.

Aspas, quotedStr() e parametros. Qual você utiliza?

delphi, #sql, #query, #firedac, #como usar query, #consultas sql, #sql no delphi, #sql no firedac, #paremetros, #consultas, #consultas personalizadas

Instalador AVG Off Line 2020

Para técnicos que precisam fazer constantemente instalação do Antivirus AVG, sabem que tempo é fundamental.

Para não ter que fazer download toda a vez que for instalar o Antivirus, existem opções para downloads de instaladores off-line.

Clique no link abaixo para download:

PARA DOWNLOAD, CLIQUE AQUI

#avg #avg free #avg off line, #download avg #download avg full #download avg completo #avg instalador off line #instalador off line avg #instalador avg completo #baixar avg #baixar avg full #baixar avg completo free