Trabalhando com Datas e Horas no Delphi

Postado por Plinio Cruz em 27 de novembro de 2003 na categoria Delphi, Programação | Leia o primeiro comentário

 Vamos aporsentar três rotinas envolvendo data e horários no Delphi que vai ajudar a você a desenvolver as suas próprias rotinas, são elas: 1 – Comparando dois horários; 2 – Operação com horários; 3 – Alterando a Data e Hora do Sistema.

1 – Comparando dois horários

Função que retorna se a primeira hora é maior ou menor que a segunda. Recebe duas entradas e retorna como resultado ou “maior” ou “menor”. A comparação é feita com a Primeira em relação a Segunda.

function ComparaHora(Primeira,Segunda : String):String;

var

Prim,Segu : TDateTime;

begin

    Prim := StrToTime(Primeira);

    Segu := StrToTime(Segunda);

If (Prim > Segu) then 

   begin

      Result := ‘maior’;

  end

else

   begin

      Result := ‘menor’;

  end;

end;

2 – Operação com horários

Função que retira dez minutos de um horário e retorna o novo horário com os dez minutos a menos. No exemplo repare que a quantidade de hora, minuto ou segundo tem que ter o mesmo formato aceito pelo sistema: HH:MM:SS. Neste caso retiramos dez minutos do horário original, mas podemos fazer a operação que quisermos, bastando, neste exemplo, modificar a variável que quisermos.

function TiraDez(Hora: String):String;

var

Prim : TDateTime;

Dez: TDateTime;

begin

   Prim := StrToTime(Hora);

   Dez := StrToTime(’00:10:00′);

   Result := TimeToStr(Prim-Dez);

end;

3 – Alterando a Data e a Hora do Sistema

Função que retira dez minutos de um horário e retorna o novo horário com os dez minutos a menos. No exemplo repare que a quantidade de hora, minuto ou segundo tem que ter o mesmo formato aceito pelo sistema: HH:MM:SS. Neste caso retiramos dez minutos do horário original, mas podemos fazer a operação que quisermos, bastando, neste exemplo, modificar a variável que quisermos.

Function SystemDateTime(tDate: TDateTime; tTime: TDateTime): Boolean;

var

   tSetDate: TDateTime;

   vDateBias: Variant;

   tSetTime: TDateTime;

   vTimeBias: Variant;

  tTZI: TTimeZoneInformation;

  tST: TSystemTime;

begin

  GetTimeZoneInformation(tTZI);

  vDateBias := tTZI.Bias / 1440;

  tSetDate := tDate + vDateBias;

  vTimeBias := tTZI.Bias / 1440;

  tSetTime := tTime + vTimeBias;

  with tST do

    begin

       wYear := StrToInt(FormatDateTime(‘yyyy’, tSetDate));

       wMonth := StrToInt(FormatDateTime(‘mm’, tSetDate));

       wDay := StrToInt(FormatDateTime(‘dd’, tSetDate));

       wHour := StrToInt(FormatDateTime(‘hh’, tSettime));

       wMinute := StrToInt(FormatDateTime(‘nn’, tSettime));

       wSecond := StrToInt(FormatDateTime(‘ss’, tSettime));

       wMilliseconds := 0;

    end;

SystemDateTime := SetSystemTime(tST);

end;

Plínio Cruz
Analista de Sistemas – Consultor em Informática

Comandos Básicos do Linux

Postado por Plinio Cruz em 24 de novembro de 2003 na categoria Linux | Seja o primeiro a comentar

Esta é uma pequena lista de comandos Linux, mas apesar de simples e pequena e uma mina de ouro para novos e inexperientes usuários que precisam saber um básico para mexer num sistema Linux

Texto retirado da Internet

Visual Basic : Datas , Datas e mais datas…

Postado por Plinio Cruz em na categoria Programação, Visual Basic | Seja o primeiro a comentar

Bem,  eu já tratei deste assunto nos artigos: Trabalhando com datas no Visual Basic e  Visual Basic – Datas e o ano 2000. Por isto este artigo será bem direto e objetivo.  Vou mostrar como fazer cálculos com datas. Antes de começar vou falar sobre uma função muito importante : DateSerial

DateSerial retorna um tipo de dado Variant (Date) para um ano , mês e dia especificado. Sua sintaxe é : DateSerial(year, month, day)

Seus argumentos são :

Para definir uma data , como 31 de dezembro de 1991 , o intervalo de números para cada argumento da função deverá ser inserido no intervalo aceito por cada um deles. Assim para dias (day) o intervalo válido é de 1 a 31 , para mêses (month) o intervalo válido é de 1 a 12. Você também pode usar expressões numéricas para cada argumento . Então podemos fazer: DateSerial(1990 – 10, 8 – 2, 1 – 1) Esta função irá retornar uma data :

• 10 anos antes de 1990 ( 1990 – 10 )

• 2 meses antes de agosto ( 8 -2 )

• um dia antes do primeiro dia ( 1 – 1 )

No argumento ano , valores entre 0 e 29 , são interpretados como para o intervalo de anos de 2000 a 2029. Valores entre 30 e 99 são interpretados como intervalo de anos entre 1930 a 1999. Para outros intervalos ou valores para o argumento ano(year) use um valor com 4 dígitos : 1850.

Nota: Se você exceder o valor para os intervalos válidos haverá um incremento para o próximo valor , assim , se você informar 35 para o argumento dias ele será avaliado como um mês mais alguns dias dependendo do ano. Se você informar um valor maior que o intervalo -32.768/32.767 vai ocorrer um erro.

Lembre-se que o tipo de dado Time/Date é armazenado como um número de precisão dupla (double-precision) e se você não tomar cuidado poderá obter resultados incorretos ao tentar manipular valores de data e hora em uma expressão.

Agora , usando a função DateSerial , que tal alguns cálculos com datas ? Vamos lá… 

Calculando intervalo de horas

Como as horas são armazenadas como uma fração de 24 , se você tentar somar , subtrair , multiplicar ou dividir intervalos de horas maiores que 24 você vai obter resultados incorretos. Exemplo :

Para resolver este problema você deve usar as funções Int() e CSng() para separar o valor do tempo em diferentes variávies para dias , horas , minutos e segundos.

A seguir temos uma função que calcula o intervalo de tempo para valores maiores que 24 horas e expressa em dias , horas , minutos e segundos.

Se você quiser o resultado em horas basta usar a seguinte função: CalculaIntervaloHoras(datafinal-datainicial)

Se você quiser o resultado em segundos  basta usar a seguinte função: CalculaIntervaloSegundos(datafinal-datainicial)

Precisando de outros cálculos ???

1 – Quantos dias faltam para uma determinada data ?

2 – Quantos dias úteis existem entre duas datas ? (Não leva em conta feriados , somente sábados e domingos)

3- Calcular a idade em anos de uma pessoa ?

4- Calcular a idade em anos e meses de uma pessoa ?

4- Precisando calcular datas fora do intervalo suportado ???

Você sabe que a função DateSerial somente suporta cálculos entre datas para o intervalo de datas entre 01 de janeiro de 100 até 31 de dezembro de 9999. Abaixo uma função que faz cálculos fora deste  intervalo:

Ex: msgbox (astroDay(120000, 11, 25) – astroDay(120000, 11, 23))   ==>  irá exibir 2.

referências:

HOW-TO : Find Number of Days Between Dates outside of Normal range

ACC2000 : Functions for calculating and displaying date/time values

E por hoje é só até mais… 

José Carlos Macoratti
http://www.macoratti.net/

Como embutir uma DLL no executável evitando sua distribuição separadamente

Postado por Plinio Cruz em 21 de novembro de 2003 na categoria Delphi, Programação, Tutorial | Seja o primeiro a comentar

Basicamente a técnica consiste em transformar o arquivo DLL (pode ser qualquer arquivo: imagem, som, etc) em um arquivo de recursos e adicioná-lo ao pacote do executável (extensão .res). Quando houver a necessidade do seu uso, ele pode ser extraído e salvo temporariamente (ou definitivamente).

TRANSFORMANDO O ARQUIVO DLL em RES

Neste pequeno roteiro irei demonstrar como incorporar o arquivo MIDAS.DLL ao seu arquivo EXE e sua extração automática quando o programa for executado.

Primeiro precisamos transformar o arquivo MIDAS.DLL em um arquivo de recursos, o qual chamaremos de MIDAS.RES.

1. Vá ao prompt do DOS e crie um arquivo qualquer no formato texto com a extensão .rc (para manter uma coerência, chamarei-o de MIDAS.RC). Esse arquivo deverá possuir uma linha para cada arquivo a ser transformado em recurso. Nesse exemplo conterá apenas uma linha, pois trabalharei apenas com o MIDAS.DLL. Sua estrutura deverá ser:

   MIDASDLL DLLFILE C:\WINDOWS\SYSTEM\MIDAS.DLL

   O primeiro parâmetro é o label a ser atribuido ao arquivo (Será utilizado pelo delphi pra achar o recurso).

   O segundo é apenas um identificador do tipo de arquivo.

   O terceiro é o path onde o compilador de recursos irá buscar o arquivo para
   transformar em .RES.

2. Execute o compilador de recursos que acompanha o delphi: Está na pasta BIN e se chama BRCC32.EXE. Este é um programa do DOS, portanto se você não estiver na pasta BIN do delphi, tenha a certeza que sua váriavel PATH esteja apontando para lá. ( Se quiser configurar na mão digite no DOS: SET PATH=%PATH%;diretorio_delphi\bin) Para transformar o arquivo .RC em .RES digite:

   BRCC32 MIDAS.RC

   Dê um comando DIR e verifique a existência do arquivo MIDAS.RES (Se não
   encontrar, revise os procedimentos).

CRIANDO UM PROGRAMA QUE LEVA A DLL EMBUTIDA

Veja agora como criar um programa que embute a DLL no seu executável:

1. Crie um projeto com um form e coloque um TButton.
2. No código fonte da Unit você encontrará o seguinte include: {$R *.DFM}
   Logo abaixo dele inclua o seu arquivo de recurso da seguinte maneira:
   {$R MIDAS.RES} Ficará assim:

   {$R *.DFM}
   {$R MIDAS.RES}

   Obs: Você pode colocar sua include em qualquer parte do programa (o linker o achará), contudo o ideal é nesta seção para facilitar a localização visual dos recursos utilizados pela sua aplicação.

   Nesse momento se você compilar seu projeto, o arquivo MIDAS.DLL já estará incorporado ao executável da aplicação.

Veja como extrair a DLL em tempo de código.

Uma veja incorporado ao executável um recurso, será necessário extrai-lo antes do seu uso (Depois mostrarei uma técnica de autoextração).

O Delphi possui uma Classe que permite a manipulação de recursos, é a TResourceStream. A rotina abaixo extrai o arquivo MIDAS.DLL e salva no diretorio da aplicação:

Procedure SaveMidas;
Var PathToSave : String;
    Res : TResourceStream;
Begin
  PathToSave := ExtractFilePath(Application.ExeName)+'\MIDAS.DLL';
  If not FileExists(PathToSave) Then Begin
     Res := TResourceStream.Create(Hinstance, 'MIDASDLL', 'DLLFILE');
     Try
       Res.SavetoFile(PathToSave);
     Finally
       Res.Free;
     End;
  End;
End;

Para executá-la, no OnClick do botão escreva: SaveMidas;

Veja o código completo:

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.DFM}
{$R MIDAS.RES}

Procedure SaveMIDASDLL;
Var PathToSave:String;
    Res : TResourceStream;
Begin
  PathToSave := ExtractFilePath(Application.ExeName)+'\MIDAS.DLL';
  If not FileExists(PathToSave) Then Begin
     Res := TResourceStream.Create(Hinstance, 'MIDASDLL', 'DLLFILE');
     Try
       Res.SavetoFile(PathToSave);
     Finally
       Res.Free;
     End;
  End;
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
   SaveMidasDLL;
end;

end.


Se você quiser salvar no diretório System do Windows, a procedure abaixo facilitará sua vida:

Function ExtractSystemDir : String;
Var Buffer : Array[0..255] of Char;
Begin
  GetSystemDirectory(Buffer,144);
  Result := StrPas(Buffer);
End;

end.

AUTO-EXTRAINDO A DLL

Uma técnica interessante é a auto-extração da DLL no momento da inicialização de sua aplicação sem a necessidade da chamada explicita à procedure SaveMidasDLL.
Vamos utilizar o recurso de auto-inicialização das Units implementado pelo Delphi.

Para quem não conhece, o Delphi quando carrega uma Unit ele executa automaticamente o código dentro do bloco INITIALIZATION antes mesmo da aplicação ser totalmente inicializada, é um excelente gancho para se colocar rotinas de inicialização. O mais espertos já perceberam que o Bloco FINALIZATION faz o mesmo efeito, porém ao finalizar a execução da aplicação.

Para ver a auto-extração, acrescente o bloco de código abaixo ao final da Unit do Form:

Initialization
Begin
  ShowMessage('Gerando o arquivo MIDAS.DLL');
  SaveMidasDLL;
End;

End.

Veja que agora, quando o form é criado (e a unit acionada), a procedure SaveMidasDLL é executada automaticamente.

PROBLEMAS

Dependendo da forma como sua aplicação foi criada você pode se deparar com um problema: Uma parte do código pode estar chamando um arquivo que ainda não foi extraido (situação muito comum com aplicações que chamam DLL’s na sua inicialização).

Uma boa técnica é acrescentar o código de extração no arquivo .DPR, assim ele será acionado antes de qualquer outra rotina da aplicação.

Eu particularmente prefiro outra técnica: Colocar as rotinas de auto-extração em uma unit exclusiva e chamá-la primeiramente na minha aplicação, o código fica mais limpo, e todas as vezes que você precisar usar o recurso basta apenas acrescentá-la à sua cláusula Uses.

Veja o código pronto:

unit AutoMidas;

interface

Uses Windows, Classes, Sysutils, Forms,Dialogs;

Function ExtractSystemDir : String;
Procedure SaveMIDASDLL;

implementation

{$R MIDAS.RES}

Procedure SaveMIDASDLL;
Var PathToSave:String;
    Res : TResourceStream;
Begin
  PathToSave := ExtractFilePath(Application.ExeName)+‘\MIDAS.DLL’;
  If not FileExists(PathToSave) Then Begin
     Res := TResourceStream.Create(Hinstance, ‘MIDASDLL’, ‘DLLFILE’);
     Try
       Res.SavetoFile(PathToSave);
     Finally
       Res.Free;
     End;
  End;
End;

Function ExtractSystemDir : String;
Var Buffer : Array[0..255] of Char;
Begin
  GetSystemDirectory(Buffer,144);
  Result := StrPas(Buffer);
End;

Initialization
Begin
   ShowMessage(‘Gerando o arquivo MIDAS.DLL’);
   SaveMidasDLL;
End;

end.

Importante: Para evitar o problema mencionado acima, onde a aplicação chama o arquivo antes de sua extração, coloque sempre a sua Unit na primeira posição da lista da cláusula Uses, assim ela será a primeira a ser executada.
PS: uso da MIDAS.DLL foi apenas para fins didáticos, o delphi permite o uso das units MidasLib+Crtl para distribuição desse arquivo de forma mais simples.

Tutorial escrito por Adenilton Rodrigues – Belo Horizonte – MG

Como acessar uma base de dados mysql

Postado por Plinio Cruz em na categoria Banco de Dados, Delphi, Programação | Seja o primeiro a comentar

Bom, como todos sabem, o delphi tem a possibilidade de usar banco de dados Mysql. Mas muitas pessoas não sabem como fazer isso, para ter uma idéia, o banco de dados SQL, é bem conhecido na programação em Object Pascal, mas servidores SQL são muito caros.

Por isso irei lhes mostrar neste artigo, como usar banco de dados Mysql, que é muito mais em conta que servidores SQL

Mas afinal, o que é Mysql?

MySQL é um sistema de gerenciamento de banco de dados relacional que utiliza a linguagem padrão SQL e é largamente utilizado em aplicações internet.

Agora vamos, ao que interessa, que é como usar conexão a banco de dados Mysql, e quais componentes usar.

No decorrer deste artigo, irei dar alguns exemplos, comandos e outros.

Na barra de ferramentas do Delphi, crie um novo aplicativo em File >New >Application.

Após feito isto, va até a 7ª aba “dbExpress”, após isto coloque os componentes “SQLConnection”, “SQLQuery”.

Depois de ter colocado estes 2 componentes acima, clique na 5ª aba “Data Access”, e coloque o 1º componente, “DataSource” no form tb.

Bom, agora os componentes ja foram colocados em seu formulário. Agora vamos a configuração dos componentes:

no componente “SQLConnection” de 2 cliques sobre ele, irá aparecer a janela abaixo:

Em “Driver Name”, esolha a opção “MYSQL” como na figura abaixo:

Em “Connection Name”, escolha a opção “MSConnection” como na figura abaixo:

Agora em “Connection Settings”, configure da seguinte forma:

BlobSize = -1
Database = Nome do Banco de Dados Mysql
DriverName = MYSQL
ErrorResourceFile = Deixe em branco
HostName = Nome ou ip do host
LocaleCode = 0000
Password = Senha do host
User_Name = Usuário do Host

Após feita a configuração, clique no botão acima em “Test Connection”, para testar a conexão, ai clique em OK.

Agora no componente “SQLQuery”, na propriedade “SQLConnection” coloque o valor “SQLConnection1″.

No componente “DataSource”, na propriedade “DataSet”, atribua o valor “SQLQuery1″.

Pronto sua conexão ao Mysql foi feita, agora vou mostrar um pequeno exemplo, de como iserir dados.

No form, coloque os componentes: “TEdit”, “TButton”, todos dois estão localizados na 1ª aba “Standard”.

 

De 2 cliques sobre o componente “TButton”, ai, aparecerá uma tela, para editar, ai, escreva o seguinte:

SQLQuery1.Active := False;
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Add(‘insert into nome_tabela (campo1) values (‘+””+edit1.Text+””+’) ‘);
SQLQuery1.ExecSQL;

 

Após feito isto, basta colocar o arquivo libmysql.dll na pasta onde salvou o projeto, e na pasta C:\Windows\System, e executar o sistema.

 

Pronto ai está um pequeno sistema, de como acessar base de dados mysql, e como inserir dados.

Atenção, alguns computadores, já existe o arquivo libmysql.dll, mas os que não existe é bom baixar, e fazer passar a existir.

Abraços a todos!
Gercil Junio Mateus Nascimento