Anderson Silva

Tecnologia da informação pra quem gosta de TI

Instalando aplicativo no linux — 13/02/2015

Instalando aplicativo no linux

Essa duas pequenas dicas foram passados por um colega de trabalho e que ao meu ver irá facilitar para todos aqueles que precisarem por algum motivo baixar um programa e realizar uma instalação manual posteriormente.
Dica 01: Instalando o programa:
Explicação do comando:
#sudo update-alternatives –install /usr/bin/[nome do arquivo .sh] [nome ou link para o programa] [caminho completo até o programa baixado] [número para referência a instalação do programa]

Exemplo do comando para instalação do maven após ter sido realizado o download e descompactado o arquivo.
#sudo update-alternatives –install /usr/bin/mvn mvn /home/anderson/dev/apache-maven-3.2.5/bin/mvn 1

Dica 02: Configurando as versões de um software instalado
Para o caso de ter duas versões de um mesmo programa instalado.
#sudo update-alternatives –config mvn

Espero que seja útil.

Boa implementação a todos.

Esta dica chegou até mim por @joaocarlos86

Delphi – Selecionando diretório e retornando o caminho (SelectDirectory) — 03/08/2014

Delphi – Selecionando diretório e retornando o caminho (SelectDirectory)

Salve delphianos,

Resolvi postar este pequeno trecho, para que fique registrado uma forma de selecionar diretórios da forma mais independente de componente de terceiros.

A implementação abaixo é simples e foi testada na versão 7 do Delphi.

Passo 01: Adiciona FileCtrl no Uses do formulário.

Passo 02: Código de exemplo para o procedimento.

procedure TForm1.Button1Click(Sender: TObject);
var
  caminho: string;
begin
  caminho := ‘c:’;
  if SelectDirectory(caminho, [sdAllowCreate, sdPerformCreate, sdPrompt],0) then
  begin
    Label1.Caption := caminho;
  end;
end;

Considerações finais:

Este exemplo de código, assume algumas premissas. Como:

– O código será executado em um formulário chamado Form1;

– O formulário terá um Button chamado Button1;

– O formulário terá um label cujo nome é Label1;

Boa implementação a todos.

Delphi – Colocando o cursor em uma posição exata de um DBEdit ou Text — 01/11/2013

Delphi – Colocando o cursor em uma posição exata de um DBEdit ou Text

É sempre bom compartilhar pequenas funções ou comandos que ajudam no cotidiano do desenvolvedor, neste caso é um comando no delphi que permite colocar o curso em uma posição exata de um componente de texto ( DBEdit e Text ).

...
Var
  vPosicao : Integer;
begin
  dbEdit1.selstart:= vPosicao;
  // dbEdit1.selstart:= Length(dbEdit1.text);
end;
...

O que destaquei em vermelho e negrito é a posição que deseja o curso, podendo ser inclusive um contagem no próprio campo.

Boa implementação a todos.

Delphi – Paginador utilizando ClientDataSet — 26/10/2013

Delphi – Paginador utilizando ClientDataSet

É sempre bom compartilhar pequenas funções ou comandos que ajudam no cotidiano do desenvolvedor.

Situação: Criação de um paginador de forma super simples através do ClientDataSet.

Importante! Pesquisei esta implementação pela dificuldade encontrada ao manipular uma grande quantidade de registros, utilizando o mínimo de recursos de rede e pc.

Esta implementação vai trazer os dados sob demanda e evita trazer todos os dados para realizar qualquer outro tipo de manipulação dentro do Delphi.

No ClientDataSet que seja realizar a paginação, realize a configuração:
  - Na propriedade FetchOnDemand deixe em false
  - Na propriedade PacketRecords coloque o número de registros que deseja visualizar por vez.

Configure o evento AfterScroll, implementando o seguinte código:
  - If ClientDataSet.Eof Then 
    begin 
      ClientDataSet.GetNextPacket;
    end;

Nesta instrução, virá mais N quantidade de registros definido na propriedade PacketRecords.

 

Boa implementação a todos.

Extraindo Dia, Mês e Ano de uma data no Delphi — 22/04/2013

Extraindo Dia, Mês e Ano de uma data no Delphi

Pequena rotina, simples como a vida deve ser que nos ajuda a extrair a partir de uma data as informações separadas de dia, mes e ano permitindo as mais diversas implementações a partir dela

procedure TForm1.Button1Click(Sender: TObject);
var
Data: TDateTime;
Ano, Mes, Dia: Word;
begin
Data:= StrToDate( <<DATETIME do Delphi>> );
DecodeDate( Data , Ano, Mes, Dia);
end;

 

Boa implementação a todos.

Delphi: Simulando a tecla TAB — 11/04/2013

Delphi: Simulando a tecla TAB

Um dia desses precisei realizar a seguinte tarefa:

Desafio: Antes de gravar os dados no banco de dados você deve ir para o próximo campo para realizar a atualização dos dados.

Pensei: Blz, vamos simular o pressionar da tecla TAB e após alguns minutos de pesquisa me deparei com um código simples e eficiente que gostaria de compartilhar com todos os leitores.

Este é o código:Self.Perform(WM_NEXTDLGCTL,0,0);

Boa implementação a todos.

Referência de um dos lugares que encontrei o código:  http://xucro.wordpress.com/2009/06/03/mudando-para-o-proximo-campo-automaticamente-em-delphi/

Quick Report – Formatação monetária em TQRExpr — 14/03/2013
Pesquisando com LOCATE em ADO ou BDE — 07/10/2012

Pesquisando com LOCATE em ADO ou BDE

Para utilizar o recurso de pesquisa por dados de campos já carregados em memória. Ex. DBGrid.

Para pesquisar por apenas um campo:

TAcesso.Locate(‘Usuario’, TUsuariosCodigo.value),[]);

Para pesquisar por mais de um campo, a estratégia é utilizar um Array como no exemplo abaixo.

IMPORTANTE!!! Deverá ser adicionada na cláusula Uses do Forma a Classe Variants;

TAcesso.Locate(‘Usuario;Modulo’, varArrayOf([TUsuariosCodigo.value,TModulosCodigo.Value]),[])

Boa sorte a todos…

Trabalhando com Filter do ClientDataSet – Delphi — 08/11/2011

Trabalhando com Filter do ClientDataSet – Delphi

Filters no clientDataSet é semelhante a cláusula Where do T-SQL, com a vantagem de ser em memória, não realizando nova consulta no banco de dados, tornando o processo bem mais ágil.

Operadores e exemplos:

Opções de Filter
Filter

 

 

 

 

 

 

 

 

 

 

 

Exemplo de progração para ativar um filter em um ClientDataSet:

procedure TForm1.AdicionarFiltroClick(Sender: TObject);
begin
//Insere como filtro a clausula que esta no Edit
cdsInscricoes.Filtered := false;
cdsInscricoes.Filter := Nome Like ‘%Anderson%’;
cdsInscricoes.Filtered := true;
end;

Importante!!!

Para remover o filtro basta aplicar False na propriedade Filtered do ClientDataSet.

Link: http://www.devmedia.com.br/post-13571-Trabalhando-a-propriedade-filter-do-clientdataset-parte-1.html

http://www.devmedia.com.br/post-13575-Trabalhando-a-propriedade-filter-do-clientdataset-parte-2.html

Criando Splash no Delphi — 27/08/2011

Criando Splash no Delphi

O Splash de ( Tela de apresentação do sistma ) deverá star visível enquanto o sistema estiver iniciando.

No arquivo DPR da aplicação, logo após o *.res, inclua os comandos abaixo.

{$R *.res}

begin
  frmSplash := TfrmSplash.Create(Application);
  frmSplash.Show;
  Application.Initialize;
  frmSplash.Update;     // Necessário para atualizar a tela e exibir todo o seu conteúdo.

……    // Após carregar os forms da sua aplicação, insira os comandos abaixo para ocultar o form e liberar o flash da memória.

  frmSplash.Hide;
  frmSplash.Release;
  Application.Run;
end.

Propriedades aconselhadas a estarem assinaladas no Splash:
BorderStyle := bsNone;          //Retirar as bordas
Position:= poScreenCenter;  //Posicionar no meio da tela

Boas implentações a todos.