"Nesse Tutorial estarei ensinando a fazer pesquisa de datas só pelo mês ou pela data completa, um código muito importante em um sistema com certeza todo sistema precisa realizar uma consulta por data, seja em relatórios, ou em uma outra tela qualquer de seu sistema."
Marcadores:
Delphi,
Programacao,
Tutoriais Delphi
[Delphi] Pesquisa entre datas
Postado por
Jhonatan Felipe
Marcadores:
Delphi,
Programacao,
Tutoriais Delphi
For em Delphi
"Artigo traduzido da versão em inglês do Delphi Basics. A palavra-chave “FOR” inicia um ciclo de controle, que é executado um número finito de vezes. A variável é definida como o resultado da expressão 1.
Se o resultado for inferior ou igual ao resultado da segunda expressão (quando especificada), assim, a instrução é executada. A variável é então incrementada por 1 e o processo é repetido até que o valor da variável exceder o valor de expressão 2.
Para a técnica downto, o valor da variável é verificado como sendo maior do que ou igual à segunda expressão, e o seu valor é decrementado no final do laço for. As expressões podem resultar em qualquer tipo ordinal – Integers, Characters ou Enumerations. A Declaração for pode compreender uma única linha, ou um conjunto de instruções com um bloco de início (begin) / fim (end)."
Postado por
Jhonatan Felipe
Marcadores:
Delphi,
Programacao,
Tutoriais Delphi
Bom pessoal então era isso que eu queria estar compartilhando com vocês, ate a próxima postagem
Função para Criptografia MD5
Uma das melhores criptografias existentes no momento, a md5 e inquebrável ela só criptografa mais não descriptografa, sendo que é uma segurança a mais para o usuário e para o dono do software, pois pode ser usada em varias ocasiões, eu mesmo utilizo e aprovo, então vim postar aqui para vocês esta função, se caso não conseguirem usar eu dou uma ajuda só postar um comentário ai.
Obs : para que essa function possa funcionar precisa ter :
Código.:
function TForm1.md5(const Input: String): String;
var
hCryptProvider: HCRYPTPROV;
hHash: HCRYPTHASH;
bHash: array[0..$7f] of Byte;
dwHashLen: DWORD;
pbContent: PByte;
i: Integer;
begin
dwHashLen := 16;
pbContent := Pointer(PChar(Input));
Result := '';
if CryptAcquireContext(@hCryptProvider, nil, nil, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT or CRYPT_MACHINE_KEYSET) then
begin
if CryptCreateHash(hCryptProvider, CALG_MD5, 0, 0, @hHash) then
begin
if CryptHashData(hHash, pbContent, Length(Input), 0) then
begin
if CryptGetHashParam(hHash, HP_HASHVAL, @bHash[0], @dwHashLen, 0) then
begin
for i := 0 to dwHashLen - 1 do
begin
Result := Result + Format('%.2x', [bHash[i]]);
end;
end;
end;
CryptDestroyHash(hHash);
end;
CryptReleaseContext(hCryptProvider, 0);
end;
Result := AnsiLowerCase(Result);
end;
A unit Wcrypt2.pas. no link abaixo você encontra a unit necessária http://stuff.irsoft.de/CryptoAPI2.zip |
Código.:
function TForm1.md5(const Input: String): String;
var
hCryptProvider: HCRYPTPROV;
hHash: HCRYPTHASH;
bHash: array[0..$7f] of Byte;
dwHashLen: DWORD;
pbContent: PByte;
i: Integer;
begin
dwHashLen := 16;
pbContent := Pointer(PChar(Input));
Result := '';
if CryptAcquireContext(@hCryptProvider, nil, nil, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT or CRYPT_MACHINE_KEYSET) then
begin
if CryptCreateHash(hCryptProvider, CALG_MD5, 0, 0, @hHash) then
begin
if CryptHashData(hHash, pbContent, Length(Input), 0) then
begin
if CryptGetHashParam(hHash, HP_HASHVAL, @bHash[0], @dwHashLen, 0) then
begin
for i := 0 to dwHashLen - 1 do
begin
Result := Result + Format('%.2x', [bHash[i]]);
end;
end;
end;
CryptDestroyHash(hHash);
end;
CryptReleaseContext(hCryptProvider, 0);
end;
Result := AnsiLowerCase(Result);
end;
Bom pessoal então era isso que eu queria estar compartilhando com vocês, ate a próxima postagem
Postado por
Jhonatan Felipe
Marcadores:
Delphi,
Programacao,
Tutoriais Delphi
[Delphi] Entendendo mais sobre variaveis
"Os dados que são armazenados na memória do computador. Para que não seja necessário se referir a estes dados de forma direta, através de um endereço numérico difícil de memorizar, o compilador nos permite trabalhar variáveis com esta finalidade. Escolhendo nomes simples e sugestivos (mnemônicos) para as variáveis (tais como funcao, telef, client, id) facilita e muito a compreensão dos códigos"
Postado por
Jhonatan Felipe
Marcadores:
Apostilas Delphi,
Delphi,
Programacao
[Apostila] Delphi Criando Calculadora,Jogo Velha e muito mais
"Ola pessoal beleza ?, Vim aqui postar uma apostila aonde vocês iram criar uma calculadora, Jogo da Velha, Bloco de Notas um relógio despertador e irão fazer vários outros exercícios, a apostila auxilia bastante em quem esta iniciando em Delphi"
Postado por
Jhonatan Felipe