Programador Online

Lendo e Inserindo Registros no Regedit - C#

2014-05-01T19:50:00.002-07:00

Vamos aprender neste tutorial como manipular o editor de registros do Windows.
Primeiramente precisamos saber quais são os diretórios de registros que o Windows possui.

No desenvolvimento com C# utilizando o .Net Framework, temos a classe Microsoft.Win32, que trata de funções sobre gerenciamento de hardware e alguns recursos do próprio sistema operacional. Uma dessas "funções" é a manipulação do Regedit.

Para iniciarmos, precisamos importar essa classe.

using Microsoft.Win32;

Agora temos disponíveis a classe RegistryKey que representa uma chave de registro, como o próprio nome diz. Então vamos começar.

Vamos declarar uma variável e associarmos à ela algum diretório de registro que queremos manipular.
Em C#, identificamos cada pasta pelo seguinte código:

ClassesRoot = HKEY_CLASSES_ROOT
CurrentUser = HKEY_CURRENT_USER
LocalMachine = HKEY_LOCAL_MACHINE
Users = HKEY_USERS
CurrentConfig = HKEY_CURRENT_CONFIG

Então, nosso código fica assim:

RegistryKey registro;
registro = Registry.CurrentUser;

Agora podemos definir o que queremos fazer dentro desse registro. Para inserirmos um valor por exemplo, usamos SetValue(registro, valor_registro)

registro.SetValue("MeuRegistro", "Programador Online");

Dessa forma criamos um registro na raiz do diretório HKEY_CURRENT_USER.

Para criarmos uma pasta dentro desse diretório, usamos o método CreateSubKey logo quando definimos a nossa chave de registro.

RegistryKey registro;
registro = Registry.CurrentUser.CreateSubKey("MinhaSubKey");

Agora podemos adicionar um novo registro.

registro.SetValue("MeuRegistro", "Programador Online");

Para lermos um registro, usamos a mesma lógica só que ao invés de CreateSubKey usaremos OpenSubKey.

// declaro o registro
RegistryKey registro;
// defino a pasta CurrentUser e a subKey que desejo ler
registro = Registry.CurrentUser.OpenSubKey("MinhaSubKey");
// defino qual registro quero retornar o valor
string valor = registro.GetValue("MeuRegistro").ToString();
// escreve o valor
Console.WriteLine(valor);

Console.ReadKey();

Assim, obtemos o valor que o registro HKEY_CURRENT_USER\MinhaSubKey\MeuRegistro contém.

A classe Win32 possui muitas funcionalidades interessantes, inclusive sobre o registro. Vale a pena explorar os métodos que essa classe possui.

Abraços e até a próxima.

Conversor de Imagem - C#

2014-05-01T12:52:00.001-07:00

Neste tutorial vamos aprender como converter uma imagem para diversos formatos utilizando a classe System.Drawing.Imaging.ImageFormat que temos no .NET Framework. Ela nos permite salvar uma imagem para um determinado formato. É isso que vamos fazer a partir de um pictureBox.

Primeiramente vamos criar nosso form.

- btnAbrir: Botão com Text = "Abrir Imagem". Abrirá a imagem a ser convertida.
- btnConverter: Botão com Text = "Converter". Ação principal que salva a imagem em um novo formato.
- cboFormato: ComboBox que terá os possíveis formatos para conversão
- picImagem: PictureBox que guardará a imagem a ser convertida.

Vamos programar as ações necessárias para abrirmos a imagem. Evento Click do btnAbrir

// Instancia um novo OpenFileDialog
OpenFileDialog dlgAbrir = new OpenFileDialog();
// Definimos o filtro do Dialog
dlgAbrir.Filter = "Arquivos de Imagem | *.png; *.bmp; *.jpg; *.gif";
// Executa o OpenFileDialog
dlgAbrir.ShowDialog();
 // Pegamos o nome do arquivo selecionado
string nomeArquivo = dlgAbrir.FileName;

// carrega o pictureBox se um arquivo válido foi selecionado
if (nomeArquivo != string.Empty)
{
   picImagem.ImageLocation = nomeArquivo;
   // Ajustamos a imagem ao pictureBox
   picImagem.SizeMode = PictureBoxSizeMode.StretchImage;
}

Note que quando criamos o filtro, usei apenas quatro extensões de arquivos, fique por sua conta explorar a classe e ver quais tipos de arquivos são suportados.

Vamos colocar as extensões dos arquivos suportados dentro do ComboBox. Podemos fazer isso através da caixa de Propriedades, mas por fins educativos, vamos fazer isso através de código!
Dê um duplo clique no formulário e será aberto o evento Load. Adicione o código que preenche o comboBox.

// Adicionamos os itens
cboFormato.Items.Add(".bmp");
cboFormato.Items.Add(".gif");
cboFormato.Items.Add(".jpg");
cboFormato.Items.Add(".png");

// Mudamos o estilo para que o usuário não possa digitar nada
cboFormato.DropDownStyle = ComboBoxStyle.DropDownList;

O DropDownStyle também pode ser alterado visualmente.

Agora o que nos resta é o código principal, que pede ao usuário para selecionar uma pasta e salva a imagem em um novo formato.
Não se esqueça de importar a classe System.Drawing.Imaging.ImageFormat no topo da classe que está programando.

using System.Drawing.Imaging.ImageFormat;

Código do btnConverter:

// Instancia um novo FolderBrowserDialog
FolderBrowserDialog dlgPasta = new FolderBrowserDialog();
// exibe o dialog
dlgPasta.ShowDialog();
 // pega o diretorio selecionado
string diretorio = dlgPasta.SelectedPath;

// verifica se a pasta escolhida é válida
if (diretorio != "") {
// salva a imagem de acordo com o que foi selecionado na comboBox
   if (cboFormato.Text == ".bmp")
       picImagem.Image.Save(diretorio + "\\imagem.bmp", ImageFormat.Bmp);
   else if (cboFormato.Text == ".gif")
       picImagem.Image.Save(diretorio + "\\imagem.gif", ImageFormat.Gif);
   else if (cboFormato.Text == ".jpg")
       picImagem.Image.Save(diretorio + "\\imagem.jpg", ImageFormat.Jpeg);
   else if (cboFormato.Text == ".png")
       picImagem.Image.Save(diretorio + "\\imagem.png", ImageFormat.Png);

// mostra mensagem de sucesso
MessageBox.Show("Imagem convertida com sucesso!");
}

Você pode tratar Exceções com Try Catch e aprendendo neste artigo http://programadoronline.blogspot.com.br/2012/08/tratando-erros-com-try-catch-em-c.html

O resultado final é esse:

Imagem carregada:

Seleção de alguns dos formatos disponíveis.

Procurar a pasta para salvar a imagem:

Imagem convertida com sucesso!

É isso aí. Abraços e até a próxima.

Delphi XE4

2013-06-22T19:44:00.000-07:00

Lançado o Delphi XE4 e Rad Studio XE4 com suporte para desenvolvimento de aplicações para iPhone e iPad.

Mais informações: http://www.embarcadero.com/br/products/delphi/whats-new

Download Trial: http://www.embarcadero.com/br/products/delphi/downloads

request.getParameter - JSP

2013-06-22T19:40:00.000-07:00

Este tutorial consiste em exemplificar como é feito a passagem de dados para um arquivo JSP.
Neste exemplo teremos apenas três campos: Nome, Endereço e Telefone.

Primeiramente vamos criar o nosso formulário HTML que o usuário digitará os dados para serem recebidos e mostrados em nosso arquivo JSP.
Antes de começar, preste atenção no action do formulário, assim como os names de cada input (caixa de texto) inserido no HTML.

<html>
    <body>
        <form method="post" action="cadastro.jsp">
            <p>Nome: <input type="text" name="nome" /></p>
            <p>E-Mail: <input type="text" name="email" /></p>
            <p>Telefone: <input type="text" name="telefone" /></p>
            <p><input type="submit" value="Enviar" /></p>
        </form>
    </body>
    
</html>

Perceba o action indicando para cadastro.jsp. Este é o arquivo que usaremos para receber os dados após o usuário clicar no botão Submit.

<html>
 <body>
            <% 
                String nome = request.getParameter("nome");
                String email = request.getParameter("email");
                String telefone = request.getParameter("telefone");
                
                out.println("<p><b>Nome:</b> " + nome + "</p>");
                out.println("<p><b>EMail:</b> " + email + "</p>");
                out.println("<p><b>Telefone:</b> " + telefone + "</p>");
            %>
 </body>
</html>

Na primeira linha do código Java, declaramos uma variável para receber o nome, onde request.getParameter("nome"); indica o elemento HTML que a propriedade nome seja "nome". Ou seja, serve para receber os dados de página solicitada, e o parâmetro "nome" é de onde esse dado veio.
Neste caso é a primeira caixa de texto do HTML. Assim para as outras duas linhas.
Esse comando funciona como o $_POST['nome'] ou $_GET['nome'] do PHP.

out.prinln foi usado para exibir os dados recebidos do HTML.

Abraço e até a próxima.

Yii Framework

2012-12-22T03:24:00.001-08:00

Yii é um framework PHP (PHP5), free e open-source, que promete ajudar no desenvolvimento de aplicações complexas.
A sigle Yii vem do inglês "Yes, is it" (Sim, isto é), que vem da série de respostas para as perguntas:

"Is it fast? ... Is it secure? ... Is it professional? ... Is it right for my next project? ... Yes, it is!"
É rápido? ... É seguro? ... É profissional? ... É certo para meu próximo projeto? ... Sim, isto é!

Você pode fazer o download do Yii Framework em http://www.yiiframework.com/download/
E pode ver as características em http://www.yiiframework.com/features/

De primeira impressão o que temos, é que, o framework é sim uma boa escolha. Nas demos que vem junto com ele, tem um blog feito totalmente em Yii.
O Framework ainda é novo, o projeto foi iniciado em 2008, mas é uma ótima ideia e uma ótima ferramenta para otimizar seu site e desenvolver aplicações complexas.
Vamos estudar um pouco mais o Yii Framework e trazer tutoriais aqui no blog.

É isso aí, abraços e até a próxima.

Sugerido por João Elson

Recuperando dados com PHP

2012-12-22T02:34:00.001-08:00

Estamos de volta! (:
Nesse artigo, estarei mostrando como é possível recuperar registros do banco de dados com PHP. Essa tarefa consiste em pegar os registros já gravados no banco e exibi-los novamente.
Suponhamos uma tabela de produtos com três campos: "Id, Descrição, Preço e Quantidade". Vamos recuperar o registro que possui o Id de número 3.

<?php

    // variáveis para a conexão com o banco MySQL
$server = 'localhost';
    $banco = 'nome_do_banco';
    $user = 'usuario';
    $senha = 'senha';

// conexão com o banco MySQL
    mysql_connect($server, $user, $senha);
    mysql_select_db($banco);

// query SQL
    $query = "SELECT descricao, preco, quantidade FROM produtos WHERE id = 3";
// executa a query e 'grava' o resultado em $res
    $res = mysql_query($query) or die(mysql_error());

// busca os campos da query
    $campo = mysql_fetch_array($res);
// armazena cada campo do banco em uma variável
    $desc = $campo["descricao"];
    $preco = $campo["preco"];
    $quant= $campo["quantidade"];

// exibe o resultado
echo "Descrição: ".$desc;
echo "Preço: ".$preco;
echo "Quantidade: ".$quant;
?>

Dessa forma, exibimos o resultado do item com Id 3.
Repare que, para buscar os campos dentro do banco de dados, usamos $campo = mysql_fetch_array($res), onde $res é a variável que retorna a query ($res = mysql_query($query);).
Após buscar os campos, armazenamos cada um em uma variável:

$desc = $campo["descricao"];
$preco = $campo["preco"];
$quant= $campo["quantidade"];

Depois, simplesmente exibimos.

E para exibir mais de um item?

Simples, vamos criar um laço for que vá de 0 até o número de registros encontrados na query. Vamos lá.
Considere que a conexão com o banco já foi feita. Vamos selecionar os registros de 1 a 5.

...
  $query = "SELECT descricao, preco, quantidade FROM produtos WHERE id >= 1 AND id <=5";
  // executa a query e 'grava' o resultado em $res
    $res = mysql_query($query) or die(mysql_error());
// pega o número de linhas que a query retornou
$num_reg = mysql_num_rows($res);

  // faz um loop de 0 até o numero de linhas encontradas
for($i=0;$i<$num_reg;$i++) {
// busca os campos da query
$campo = mysql_fetch_array($res);
// armazena cada campo do banco em uma variável
$desc = $campo["descricao"];
$preco = $campo["preco"];
$quant= $campo["quantidade"];

// exibe o resultado
echo "Descrição: ".$desc;
echo "Preço: ".$preco;
echo "Quantidade: ".$quant;
echo "---------------------";
}
?>

Repare que a lógica é praticamente a mesma, a única diferença, é que, usamos mysql_num_rows($res) que pega o número de linhas que a query retornou.

A partir daí, usamos ela para fazer o loop, que vai de 0 até a variável que armazena as linhas da query ($num_reg = mysql_num_rows($res)).

Simples né? É isso aí galera, abraço, bons estudos e até a próxima.

mysql_fetch_array();

http://php.net/manual/en/function.mysql-fetch-array.php

mysql_num_rows();

http://php.net/manual/en/function.mysql-num-rows.php

Unity 4 está disponível!

2012-11-16T07:51:00.002-08:00

Para quem não sabe, Unity é um ambiente de desenvolvimento de jogos. É usado por muitas empresas pelo seu custo/benefício.
Na nova versão do Unity, ela apresenta o suporte de renderização do DirectX 11, assim como novos recursos de animação, sistemas de partículas e efeitos de imagem.
Veja alguns dos jogos desenvolvidos usando o Unity.

Para mais informações da Engine, visite o site oficial em http://unity3d.com/unity/.

Aprendendo Assembly - Parte 2

2012-11-16T07:30:00.000-08:00

Continuação da primeira parte de Aprendendo Assembly. Caso você não tenha lido a primeira parte, leia aqui.
Na parte anterior, abordamos o operador aritmético de soma, assim como um breve exemplo do operador de subtração.
O operador de subtração, assim como todos os outros operadores, são feitos e tratados da mesma maneira.

__asm {
mov num1, 5
mov num2, 3
mov eax, num1
sub eax, num2
mov res, eax
}

Na primeira linha, atribuimos o valor 5 para a variável num1, assim como, na segunda linha atribuimos 3 para num2.

Na terceira linha, movemos o valor de num1 para o registrador eax. Dessa maneira, eax possui 5.

Na quarta linha, subtraímos eax pelo valor de num2. Desta forma, nos da o resultado 2.

Na última linha, movemos o conteúdo de eax (2) para a variável res.

Desta forma, após declararmos num1, num2 e res como int, podemos exibir o resultado.

printf("%s%d", "NUM1 - NUM2 = ", res);

A única diferença em multiplicar e dividir valores, é que, não passamos dois parâmetros para o operador. Ex:

mov num1, 5
mov num2, 3
mov eax, num1
mul num2

Para multiplicação, usamos mul. E não usamos dois parâmetros como add e sub, pois quando chamamos o operador de multiplicação, ele faz a operação do parâmetro informado (num2) pelo conteúdo do acumulador (eax).
Então para multiplicarmos os dois valores, mover o primeiro valor para eax, e depois usar mul com o segundo valor.

Para divisão usamos a mesma lógica, porém, quando se trata de divisão, tratamos com números quebrados, normalmente float, double ou real.
Como definimos as variáveis num1, num2 e res como int, devemos converter esse valor para int, pois a divisão nos retorna um número "quebrado" (double).
Temos 3 tipos de conversão:

- Conversão de byte para word: cbw
- Conversão de double para quad word: cdq
- Conversão de word para double: cwd

Em nosso caso, devemos converter o valor de double para quad word.
Quad Word é uma variável do tipo inteiro de 64 bits, semelhante a um int64, word...

Então, antes de iniciar a divisão, devemos converter o valor do acumulador (eax) para quad word e dividir pelo segundo valor (num2).
Desta forma, temos:

mov num1, 14
mov num2, 2
mov eax, num1
cdq

div num2

mov res, eax

O resultado retornado é 7.

O desenvolvimento começa a ficar mais interessante, quando passamos a receber entrada de dados do usuário.
Antes de começarmos a próxima parte falando sobre como criar uma aplicação inteira em Assembly, mostrarei como é feito o input usando o C++ como linguagem "mãe".
Usaremos o scanf do C++ para fazer a leitura das teclas, e a partir daí, passaremos os dados para os registradores. Veja um exemplo:

int _tmain(int argc, _TCHAR* argv[])
{
int num1, num2, res;

printf("Digite um numero: ");
scanf("%d", &num1);
printf("Digite outro numero: ");
scanf("%d", &num2);
__asm {
mov eax, num1
add eax, num2
mov res, eax
}
printf("%s%d", "Resultado = ", res);
getchar();
}

Usamos o scanf para fazer a leitura dos dados, e logo após ler os dois valores, passamos num1 para eax e adicionamos num2 para eax. Neste exemplo como podem perceber, foi usado uma soma.
Dessa forma, podemos manipular todos os dados com Assembly, até podemos criar uma aplicação inteira do zero.
Abraços e até o próximo capítulo.

Fundamentos em Programação Assembly

80x86 Assembly Language Architeture

Configurando o Eclipse para desenvolvimento Android

2012-10-27T16:12:00.000-07:00

Este tutorial tem o intuito de configurar as ferramentas e plug-ins necessários para o desenvolvimento Android com o Eclipse.
Para o desenvolvimento Android, usaremos um plug-in chamado ADT for Eclipse.

- Primeiramente faça o download do Android SDK em http://developer.android.com/sdk/index.html

Obs: Após o Download e instalação do SDK, abra o Android SDK Manager e instale as APIs para a versão que você vai desenvolver.
- Baixe o Eclipse for Java EE Developers em http://www.eclipse.org/downloads/packages/eclipse-ide-java-ee-developers/junosr1
- Após instalado o Android SDK, abra o Eclipse, clique em Help | Install New Software...

Na janela que se abre, clique em Add...

Digite o nome do Plug-in (Qualquer nome) e no campo abaixo digite:

https://dl-ssl.google.com/android/eclipse/

e clique em OK.

Na próxima janela, marque as duas caixas e lá em baixo, clique em Next >

Avance até chegar ao contrato de licença, marque I accept the terms of the license agreements e clique em Finish.

Aguarde o download e a instalação...

Agora está tudo pronto para o desenvolvimento Android no Eclipse. Basta iniciar uma nova aplicação, File | New | Project...| e podemos ver os tipos de aplicação e templates para Android.

Na primeira criação de uma nova aplicação Java, o plug-in pode pedir atualização. Atualize-o!
Logo, temos a interface de desenvolvimento com a paleta de componentes.

Pronto, agora o Eclipse está configurado para desenvolver aplicações Android. Abraços e até a próxima.

Introdução ao Desenvolvimento de aplicativos para o Android

Crie aplicativos para o SO Android mais recente O SO Android é uma plataforma popular e flexível para muitos dos mais desejados dispositivos móveis modernos. Este guia oferece uma introdução prática à criação de aplicativos para o Android para os dispositivos móveis mais recentes...

Ir até a loja

Google Android - Aprenda a Criar Aplicações para Dispositivos Móveis com o Android Sdk - 2ª Ed 2010

O Android é a plataforma open-source criada pelo Google para o desenvolvimento de aplicações para dispositivos móveis. É a nova sensação do momento e promete revolucionar o desenvolvimento de aplicações...

Ir até a loja

Utilizando a unit Graph - Pascal

2012-10-26T12:19:00.001-07:00

A unit Graph é uma unidade de recursos presente na maioria dos compiladores Pascal (Free Pascal...). Neste post estarei mostrando os seus recursos e como usá-los.
Primeiramente, antes de mais nada, é necessário declarar a uses Graph.

uses
Graph;

Aqui vou mostrar os principais recursos dessa unit, e um dos mais interessantes e mais usados quando ela é importada, é a manipulação de cores da aplicação.

A primeira coisa a se fazer quando vamos trabalhar com gráficos, é inicializá-los. Para isso, devemos declarar duas variáveis inteiras, uma para o driver e outra para o tipo de gráfico.

var DriverGrafico, TipoGrafico: integer;

O próximo passo é detectá-lo e inicializar o pacote de gráficos.

begin
DriverGrafico := Detect;
TipoGrafico := 0;

InitGraph(DriverGrafico, TipoGrafico, ' ');

O último parâmetro refere-se a localização da biblioteca gráfica. Use ' ' para a localização padrão.

Rectangle

Essa função é muito simples, e permite desenhar a forma de um retângulo dentro da aplicação.
Ela é composta por 4 argumentos. Rectangle(X1, Y1, X2, Y2);
Basta atribuir os quatro pontos do retângulo para desenhá-lo.

Rectangle(130, 200, 200, 130);

Circle

Permite o desenho de um círculo na aplicação. Sintaxe: Circle (X, Y, Tamanho);

Circle(30, 30, 30);

Dica:

Adicione um contador While fazendo com que o círculo seja desenhado um após o outro. Desta maneira:

while i < 1000 do
begin
Circle(i, i, 30); // X=i Y=i
Delay(100); // Espera 100 milisegundos
i := i + 10; // Acrescenta 10 para i
end;

Resultado:

Escrevendo textos

Para escrevermos textos utilizando a unit Graph, temos duas opções. OutText e OutTextXY.
A primeira (OutText) escreve o texto em ordem crescente (da esquerda para a direita).

OutText('PROGRAMADOR ONLINE');

Podemos definir as coordenadas do texto em X e Y, usando OutTextXY.

OutTextXY(50, 50, 'PROGRAMADOR ONLINE');

Podemos alterar a cor e o estilo da fonte com SetColor e SetTextStyle respectivamente.

SetColor(Yellow); // amarelo
SetTextStyle(SansSerifFont, HorizDir, 5);
OutTextXY(300, 10, 'PROGRAMADOR ONLINE');

A função SetTextStyle possui três parâmetros. O nome da fonte, a orientação (Vertical/Horizontal) do texto, e o tamanho.

Exitem vários comandos na unit Grahp é interessante que você mesmo explore-os. Aqui vai uma lista de alguns deles, além dos exemplos acima:

MoveTo(X, Y) -> Move o ponteiro para a coordenada indicada.
PutPixel(X, Y, Cor) -> Marca um pixel na orientação indicada
Line(X, Y) -> Desenha uma linha em X e Y
LineTo(X1, Y1, X2, Y2) -> Desenha uma linha nos pontos indicados
Arc(X, Y, A, B, Dimensão) -> Desenha um arco em X, Y, com ângulo A e B com a dimensão.
ClearViewPort -> Apaga a tela.
...

Esses são alguns dos comandos. Espero que o tutorial possa ter ajudado. Abraço, bons estudos e até a próxima!!!

Aprendendo Assembly - Parte 1

2012-10-25T19:34:00.001-07:00

Quando falamos de Assembly (Assembler é o "compilador"), o que te vem a cabeça?
Normalmente a primeira impressão que temos, é de que a linguagem é algo incompreensível e difícil de se entender, realmente! Mas esta série de tutoriais tem o intuito de "desmistificar" a linguagem, dando uma pequena noção sobre ela.

Pré-requisitos

- Saber programar em alto nível. (C++, Java....)
- Ter um compilador C++ (Neste tutorial usarei o C++ Builder, serve para o Dev-C++, Visual C++....)

Porque um compilador C++?

Pra começarmos esta série de tutoriais, é necessário aprender a lógica de como os bits trabalham, então neste caso, usaremos o C++ como a linguagem "mãe", e o Assembly incorporado no código C++. Isso, para termos uma "noção" antes de escrever uma aplicação em Assembly do zero.

Registradores

Os registradores fazem parte do processador, e são "unidades de memória", que tem a finalidade de armazenar bits.
Lembrando que cada processador possui uma linguagem de máquina e de montagem, sendo assim, estarei programando na arquitetura de processadores x86.

EAX -> Registrador acumulador
EBX -> Registrador de base
ECX -> Registrador de Laços/Loops/Contador
EDX -> Registrador de Dados
.......
[A lista acima mostra apenas alguns dos registradores]

Para esta primeira parte do tutorial, vamos usar apenas o registrador EAX, o acumulador, sendo que no decorrer dos tutoriais, vamos saber um pouco mais sobre os outros registradores.

Criando uma aplicação

Para iniciarmos, vamos criar uma nova aplicação de console no C++ Builder. [Visual C++, Dev-C++...]
No C++ Builder, basta clicar em New | Other... | Console Application

O que temos de início é o código gerado pelo C++ Builder:

#pragma hdrstop
#pragma argsused

#include
#include

int _tmain(int argc, _TCHAR* argv[])
{

}

Para incorporar o código Assembly em C++, basta usar o comando __asm.
Todo o código Assembly deve estar aí dentro, ex:

__asm {
// código assembly aqui
}

Agora vamos entender como é que funciona a movimentação de bits dentro do Assembly.

Suponhamos que temos a variável num1. Como seria atribuir o valor 5, para essa variável em C++?

int num1;
num1 = 5;

Para inicializar uma variável em Assembly, temos que mover esse valor para ela, da mesma forma de movemos o 5 para o num1 em C++.
A sintaxe é a seguinte:

mov num1, 5

Neste caso, o valor 5 foi movido para a variável num1.
Desta forma, podemos inicializar a variável num2 com o número 3.

mov num2, 3

Simples né? Desta forma podemos inicializar quantas variáveis quisermos.

Movendo bits para um registrador

Como vamos utilizar o registrador acumulador, temos que inicializar uma variável e movê-la para o registrador. A sintaxe é a mesma.

mov eax, num1

Como o valor de num1 era 5, então qual o valor que está no registrador eax? 5.
Dessa forma, podemos manipular os bits e os valores entre as variáveis e os registradores.

Somando um registrador

Como já adicionamos o valor da variável ao nosso registrador, vamos inicializar uma outra variável e somar com o num1. Para somar, usamos o comando add.

mov num1, 5 // num1 = 5
mov num2, 3 // num2 = 3
mov eax, num1 // eax = num1
add eax, num2 // eax = eax + num2

Dessa forma, somamos as duas variáveis num1 + num2 e o resultado está armazenado em eax.
Agora basta mover o valor de eax para outra variável para que possamos exibir o resultado com o C++.
Movemos da mesma forma:

mov res, eax

Relembrando o código anterior, esta última instrução move o valor de eax para a variável res.
Então, qual é o valor de res? 8.

Vamos declarar as variáveis no código C++ e compilar nossa aplicação.

int num1, num2, res;

O código inteiro fica da seguinte maneira.

#pragma hdrstop
#pragma argsused

#include
#include

int _tmain(int argc, _TCHAR* argv[])
{
int num1, num2, res;

__asm {
  mov num1, 5   // num1 = 5
mov num2, 3   // num2 = 3
mov eax, num1   // eax = num1
add eax, num2   // eax = eax + num2
  mov res, eax // res = eax
}

printf("%s%d", "NUM1 + NUM2 = ", res);
getchar(); // espera uma tecla

}

O resultado que temos é o seguinte:

É recomendável praticar com o comando sub para fazer subtrações.

sub eax, num2 // eax = eax - num2

Na próxima parte do tutorial, falarei sobre as outras operações aritméticas fundamentais e input de dados do usuário. Parte 2

Não se esqueça de que este, é apenas um tutorial explicando apenas simplificadamente . Para saber mais sobre Assembly, assim como os fundamentos da linguagem, é recomendado um bom livro!
Abraços, bons estudos e até a próxima!!!

Fundamentos em Programação Assembly

80x86 Assembly Language Architeture

Disponível Visual Studio 2012 Express Edition

2012-10-21T16:58:00.001-07:00

Já está disponível o download do Visual Studio 2012 Express Edition, contendo novos recursos e possibilitando o desenvolvimento de aplicativos na interface Metro para Windows 8.
Você pode conferir todas as novidades em: http://www.microsoft.com/visualstudio/ptb/whats-new

E pode fazer o download da versão Express em http://www.microsoft.com/visualstudio/ptb/downloads

Uma das novidades vista já de cara, [e que agora os downloads estão separados por
plataforma.

Trabalhando com datas - MySQL

2012-10-21T16:29:00.002-07:00

Neste post estarei mostrando como é possível manipular datas no banco de dados, utilizando apenas algumas das funções disponíveis.

Primeiramente, vamos criar um novo banco de dados.

CREATE DATABASE teste_data;

Vamos nos conectar ao banco.

USE teste_data;

E criar uma tabela para que podemos com os campos necessários.

CREATE TABLE clientes (
id INT PRIMARY KEY NOT NULL AUTO_INCREMENT,
nome VARCHAR(30),
endereco VARCHAR(30),
telefone VARCHAR(15),
data_nasc DATE);

Para podemos manipular esta tabela, vamos inserir alguns registros.

Vale lembrar que no MySQL as datas são representadas como: YYYY-MM-DD.

Para inserir os dados no MySQL, não devemos usar nada (traço, barra, underline) para separar o ano do mês e o mês do dia.

Data: 10/02/1990:
INSERT INTO clientes VALUES (null, "Joaozinho", "Rua AAA", "5555-5555", 19900210);
Data: 30/10/1994
INSERT INTO clientes VALUES (null, "Maria", "Rua BBB", "3333-3333", 19941030);

Data: 22/05/1985

INSERT INTO clientes VALUES (null, "Pedrinho", "Rua CCC", "9999-9999", 19850522);

Usando a Data Atual

Já pensou ter que ficar digitando a data atual toda hora ao inserir em algum registro que precise usar a data de hoje?
O MySQL possui um comando chamado CURDATE() ou também Current Date que chama a data atual.

Digamos que o "José" nasceu no dia de hoje.

INSERT INTO clientes VALUES (null, "Jose", "Rua DDD", "1111-1111", CURDATE());

Obs: O CurDate() retorna tanto a data atual quanto a hora atual. Pode-se usar para retornar apenas a data o comando Now().

Extraindo Ano, Mês ou Dia

É interessante usar o Extract quando precisamos pegar apenas o ano ou o mês (ou dia) de algum registro.
Por exemplo: Queremos ver apenas os clientes nascidos em 1994.

Vou inserir mais um registro nascido em 1994.

Data: 01/02/1994
INSERT INTO clientes VALUES (null, "Joaquim", "Rua EEE", "3333-3333", 19940203);

Sintaxe:

EXTRACT(#tipo# FROM #campo_data#)

Onde #tipo# = YEAR, MONTH ou DAY.

Agora vamos selecioná-los:

SELECT * FROM clientes WHERE EXTRACT(YEAR FROM data_nasc) = '1994';

A mesma coisa funciona para meses e dias, use MONTH para meses e DAY para dias.

Retornando a diferença de dias entre duas datas.

Sintaxe:

DATEDIFF(#data1#, #data2#);

Quantidade de dias entre 21-10-2012 [HOJE] e 2012-10-23 [Daqui a dois dias]

SELECT DATEDIFF('2012-10-23','2012-10-21');

Subtraindo/Adicionando Dias, Meses e Anos

Usamos o DATE_SUB() quando precisamos retornar valores de dias atrás, por exemplo: vamos subtrair 5 dias de cada data.

Sintaxe:

SELECT #campo1#, #campo2#, #campoN# DATE_SUB(#campo_data#, INTERVAL #N# #tipo#) FROM #tabela#;

Onde #tipo# = YEAR, DAY ou MONTH.

SELECT nome, DATE_SUB(data_nasc, INTERVAL 5 DAY) FROM clientes;

Neste caso, serão subtraídos 5 dias da data dos registros. Podemos somar valores utilizando DATE_ADD().

SELECT nome, DATE_ADD(data_nasc, INTERVAL 5 DAY) FROM clientes;

É isso aí, essas são algumas das básicas funções de manipulação de datas do MySQL.

Abraços e até a próxima.

VCL Metropolis UI App - Delphi XE3

2012-10-15T09:11:00.001-07:00

Nesta nova versão do Delphi, temos a possibilidade de desenvolver aplicativos com a interface Metro utilizando o VCL Metropolis UI Application.

Logo ao criar uma nova aplicação, temos alguns templates disponíveis como:

Blank Metropolis UI Application -> Cria uma nova aplicação em branco
Grid Metropolis UI Application ->
Split Pane Metropolis UI Application -> Template com barra de subitens laterais.

Podemos perceber o visual simples e sem os efeitos da interface Metro, porém, os aplicativos ficam bem mais "atraentes", sendo executados no Windows 8.

Split Pane Metropolis UI Application

Grid Metropolis UI Application

Como trata-se de um Template, podemos perceber também que ao pressionar "Esc", é exibido um TImage no canto inferior direito da tela, possibilitando fechar a aplicação.

E aí, o que você achou da nova interface?

Vai desenvolver para a interface Metro?

Abraço e até a próxima.

Rad Studio XE3 Trial

2012-09-04T13:29:00.002-07:00

Está disponível o Trial do Rad Studio XE3 com:

-Delphi
-C++ Builder
-Prism
-HTML5 Builder
-Interbase

Você pode fazer o download em: http://www.embarcadero.com/products/rad-studio/downloads

Gravar registros no Regedit - Delphi

2012-09-04T13:29:00.001-07:00

O Regedit é um "banco de dados" onde são armazenadas configurações de programas instalados, diretórios, arquivos e configurações do Windows.

Neste post demonstrarei como gravar um registro simples no Regedit através do Delphi.

A primeira coisa a se fazer, é adicionar a uses Registry.

Os seguintes diretórios, são diretórios do Regedit e precisamos informar em qual delas nosso registro será gravado.

Para podermos manipular o registro, vamos ter que declarar uma variável do tipo TRegistry.

var

registro : TRegistry;

Ao iniciar o nosso código, devemos criar uma nova instância do registro.

begin

registro := TRegistry.Create;

O seguinte código efetua a gravação no registro:

registro.RootKey := HKEY_CURRENT_USER;

registro.OpenKey('MeusRegistros',True);

registro.WriteString('MeuPrimeiroRegistro','Valor do Registro');

A primeira linha informa o diretório de registros.

A segunda linha, faz a criação de um novo diretório dentro da RootKey.

Os parâmetros do comando WriteString, fazem a criação do registro e o valor do registro respectivamente.

Da mesma forma que abrimos a chave de registro com OpenKey(), devemos fecha-la.
O código inteiro fica da seguinte maneira:

var

registro : TRegistry;

begin

registro := TRegistry.Create;

registro.RootKey := HKEY_CURRENT_USER;

registro.OpenKey('MeusRegistros',True);

registro.WriteString('MeuPrimeiroRegistro','Valor do Registro');
registro.CloseKey;
end;

Abraços e até a próxima.

Estruturas de Repetição - Delphi

2012-09-04T13:29:00.000-07:00

Estruturas de repetição (loop ou laços) são essenciais e resolvem diversos problemas e situações em que necessitamos repetir alguma estrutura ou um bloco de código.

Dentre essas estruturas, temos o laço For, For-DownTo, For-in, While e o Repeat-until.

-For
É nós quem determinamos o número de vezes que a repetição acontecerá. Sua estrutura é a seguinte:

for #contador# := #valorInicial# to #valorFinal# do
#faça_alguma_coisa#

O contador é um número inteiro, uma variável que será usada para proceder com a próxima contagem do loop.
Por exemlplo:

for i := 1 to 10 do
ShowMessage('O valor de i é ' + IntToStr(i));

Nesse caso, será mostrado uma mensagem contendo o valor de i de 1 até 10.

O valor de i é 1
O valor de i é 2
O valor de i é 3
...
O valor de i é 10

-For-downto

A diferença do laço for-downto é que ao invés de incrementar o contador, ele decrementa.

for i := 10 downto 10 do
ShowMessage('O valor de i é ' + IntToStr(i));

O valor de i é 10
O valor de i é 9
O valor de i é 8
...
O valor de i é 1

-For-in

O for-in nos permite trabalhar com cada elemento de uma coleção, por exemplo, cada letra de uma palavra.

var
Nome: string;
letra: char;
begin
Nome := 'Cristiano';
for letra in Nome do
ShowMessage(letra);
end;

Nesse caso, será mostrado uma mensagem com cada letra da variável Nome.

-While

Esse laço só continua repetindo enquanto a condição for verdadeira. Por exemplo, só executa enquanto a variável i for menor que 10.

i:=1;
while i < 10 do
begin
ShowMessage('O valor de i é ' + IntToStr(i));
i := i + 1; // agora i é igual a 2
end;

Neste caso, o código só será executado enquanto i for menor que 10. No caso acrescentamos 1 a i para que continue sendo executado.
Na próxima vez que for executado, i vai ter o valor de 2, então ainda vai continuar sendo executado pois a instrução é verdadeira até que seja menor que 10.
Na terceira vez, i vai valer 3, e assim consecutivamente.

-Repeat

Similar ao While, porém a estrutura é ao contrário. Ele executa e depois verifica a instrução.

i:=1;
repeat
begin
ShowMessage('O valor de i é ' + IntToStr(i));
i := i + 1; // agora i é igual a 2
until i > 10
end;

Neste caso, o código é executado até que i seja maior que 10.

Abraço e até a próxima.

Rad Studio XE3 Preview

2012-09-02T15:30:00.002-07:00

Está disponível a página do Preview do Rad Studio XE3. Entre as novidades está o desenvolvimento para aplicações Metro do Windows 8, uma nova versão do FireMonkey possibilitando o desenvolvimento para Windows 8 e Mac OS X Mountain Lion, e o HTML5 Builder.
Veja a página original em http://www.embarcadero.com/rad-xe3-preview

Criando um Editor Pascal em Delphi

2012-09-02T15:30:00.001-07:00

E ai galera blz?

Hoje vou mostrar um tutorial muito legal, uma dica bem interessante para estudar.

Os procedimentos são bem simples e vou mostrar tudo o que vamos utilizar, vamos lá!

Funções do nosso editor:

-Sintaxe Pascal
-Abrir e Salvar arquivos .pas
-Compilar

Para compilar vamos usar o próprio compilador do Delphi. O DCC32.

- FastScript

Componente necessário para utilizarmos a sintaxe do Pascal dentro de nossa aplicação.

Obs. O Delphi XE2 Update 4 já possui esse componente instalado.

Download em http://www.fast-report.com/en/download/fast-script-download.html

O componente FastScript possui componentes muito legais que possuem a execução de um código e sintaxe para várias linguagens, mas só usaremos um desses componentes, o TfsSyntaxMemo.

Vamos montar nosso form.
Instale o FastScript de acordo com sua versão do Delphi, ou se estiver usando o Delphi XE2 adicione-o ao seu form o componente TfsSyntaxMemo.

Mude as propriedades dele para:

Align: alClient
Name: Editor
SyntaxType: stPascal

Feito isso, vamos adicionar uma TToolbar que fica na paleta Win32:

Agora vamos adicionar os botões na Toolbar. Clique com o botão direito e clique Add New Button.

Adicione um ImageList, dê um duplo clique nele e adicione as imagens dos nossos botões.

Eu utilizei os ícones Gentlefae Free Toolbar Icons, você pode baixá-los em http://www.gentleface.com/free_toolbar_icons.html

Basta associarmos a propriedade Images da Toolbar com ImageLis1 que acabamos de adicionar e ligar as propriedades ImageIndex de cada botão com a respectiva imagem.

Nosso design está pronto!

Agora, vamos declarar uma variável pública para verificar se o arquivo já está salvo ou não, e uma para armazenar o local onde o arquivo está salvo.

public
salvo: boolean;
local: string;
end;

E vamos criar uma procedure para salvar os arquivos.
Antes de mais nada, adicione um SaveDialog que está na paleta Dialogs.

procedure TForm1.SalvarArquivo;

begin
if local = '' then // se nao tiver salvo
begin
SaveDialog1.Execute(); // executa o Dialog
if SaveDialog1.FileName <> '' then
begin
Editor.Lines.SaveToFile(SaveDialog1.FileName + '.pas'); // salva onde foi selecionado
local := SaveDialog1.FileName; // guarda o local onde foi salvo
salvo := true; // já está salvo
end;
end
else // se ja tiver salvo
begin
Editor.Lines.SaveToFile(local + '.pas'); // salva em cima
salvo := true; // já está salvo
end;
end;

----------------------

Vamos ao código do botão 1, que é o botão 'Novo'.

procedure TForm1.ToolButton1Click(Sender: TObject);

begin
if salvo = false then
begin
// pergunta se deseja salvar
if MessageDlg('Deseja Salvar o arquivo?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
SalvarArquivo; // chama a procedure para salvar
end
else // se já está salvo
begin
Editor.Lines.Clear; // apaga as linhas do Editor
salvo := false;
end;
end;

----------------------

Código do botão 1, botão 'Abrir'.
Antes, adicione um OpenDialog que se encontra na paleta Dialogs.

procedure TForm1.ToolButton2Click(Sender: TObject);

begin
if salvo = false then
begin
// pergunta se deseja salvar
if MessageDlg('Deseja Salvar o arquivo antes de abrir outro?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
SalvarArquivo; // chama a procedure para salvar
end;
OpenDialog1.Execute(); // chama o dialog
if OpenDialog1.FileName <> '' then
begin
Editor.Lines.LoadFromFile(OpenDialog1.FileName); // carrega o arquivo selecionado
local := OpenDialog1.FileName; // guarda local
end;
end;

----------------------

Código do botão 3. Salvar.

procedure TForm1.ToolButton3Click(Sender: TObject);

begin
SalvarArquivo; // chama a procedure para salvar
end;

----------------------

Código do botão 4. Executar.

procedure TForm1.ToolButton4Click(Sender: TObject);

var
arquivo: string;
begin
arquivo := local + '.exe';
WinExec(PAnsiChar(arquivo), SW_NORMAL) // executa o arquivo compilado
end;

--------------------

Código do botão 5. Compilar.

Chegamos na hora mais esperada!
Como falei no começo do post, vamos utilizar o próprio compilador do Delphi, localizado normalmente em C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\bin\dcc32.exe

É ele que vamos chamar para compilar o arquivo. Adicione um TMemo localizado na paleta Additional e marque a propriedade visible para false.
Mãos a obra!!!

procedure TForm1.ToolButton5Click(Sender: TObject);
var
localCompilador, comando: string;
begin
SalvarArquivo; // é necessario salvar antes

// altere o local do compilador se necessário
localCompilador := '"C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\bin\dcc32.exe"';
comando := localCompilador + ' "' + local + '.pas"'; // linha de comando do compilador

Memo1.Lines.Add(comando);
Memo1.Lines.Add('PAUSE'); // comando do DOS para pausar a execução do batch
Memo1.Lines.SaveToFile('compilar.bat'); // salva o arquivo com a linha de comando

WinExec('compilar.bat', SW_NORMAL); // executa a linha de comando.
end;

Repare a linha em que salvamos o arquivo compilar.bat.
Gravamos nesse arquivo a linha de comando necessária para compilar o arquivo salvo.
Caso o programa já esteja salvo, é esse linha que ele irá gerar:

"C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\bin" "c:\arquivo.pas"

Após salvar o arquivo, executamos ele, e ele compila o arquivo.

Lembrando que estamos usando o compilar da Embarcadero®, então temos que incluir todos os parâmetros que o compilador precisa, por exemplo, para criar uma aplicação em nosso editor e compilarmos, temos que adicionar a diretiva {$APPTYPE CONSOLE}. exemplo:

program teste;

{$APPTYPE CONSOLE}

begin
end.

Bom galera, é isso aí, um bom projeto para se estudar.
Você pode pegar o código fonte deste projeto aqui

Abraços e até a próxima.

Trabalhando com Date em Delphi

2012-09-02T10:43:00.002-07:00

Trabalhar com datas e horas são fundamentais para qualquer aplicação comercial, para controlar a data e a hora que o funcionário entra e sai ou quando uma venda foi efetuada...
Existem diversas funções e procedimentos capazes de manipular datas e horas, e hoje vou mostrar algumas das rotinas mais usadas e como usa-las.

-Função Date

A função Date mostra a data no formato dd/mm/aaaa, vamos a um exemplo.

ShowMessage('Hoje é ' + DateToStr(Date));

Perceba que, usamos DateToStr para converter Date para String, pois ShowMessage aceita apenas String e Date é do tipo DateTime.

-Now

Podemos usar também o comando Now ao invés de Date, mas para isso, deveríamos converte-lo de DataTimeToStr para String.
Com isso, ele mostra não só a data, mas também a hora em hh:mm:ss.

ShowMessage('Hoje é ' + DataTimeToStr(Now));

-ShortDayNames e LongDayNames

Mostram respectivamente o dia do mês curto e escrito por extenso. (Jan / Janeiro).
Para isso, usamos o índice do dia da semana, de 1 a 7.

1-Domingo
2-Segunda
3-Terça
4-Quarta
...

Por exemplo, para mostrar o domingo, usamos:

LongDayNames[1];

ou

ShowMessage(LongDayNames[1]);

Se nós usarmos ShortDayNames o resultado seria:

ShowMessage(ShortDayNames[1]);

-DayOfWeek

Esse nos permite mostrar o dia da semana sem informar seu índice, por exemplo, quero saber que dia é hoje, então usamos a combinação de LongDayNames, DayOfWeek e Now para informar o dia de hoje.

ShowMessage('Hoje é ' + LongDayNames[DayOfWeek(Now)]);

-DayOfTheMonth e DayOfTheYear

DayOfTheMonth retorna o dia do mês, no caso, em número.

ShowMessage('Hoje é dia' + IntToStr(DayOfTheMonth(Now)));

DayOfTheYear nos retorna qual o dia do ano, neste caso, já se passaram 246 dias desde 1 de Janeiro.

ShowMessage('Hoje é o dia ' + IntToStr(DayOfTheYear(Now)) + ' do ano.');

IntToStr para converter Integer para String, pois as funções retornam números inteiros e ShowMessage só recebe String.

-LongMonthNames e MonthOfTheYear

Da mesma maneira que podemos trabalhar com dias, podemos também trabalhar com os meses.

ShowMessage('Estamos no mês de ' + LongMonthNames[MonthOfTheYear(Now)]);

Também pode-se trabalhar com ShortMonthNames para mostrar os meses abreviados.

Em breve faço um artigo com as outras funções para utilizar datas e Time em Delphi.
Abraço e até a próxima.

Cursos de Programação iPED

2012-08-25T14:45:00.002-07:00

E aí galera blz?

Estou aqui para falar sobre o Grupo iPED, onde você pode fazer cursos á distância com obtenção de certificado.

Além do mais, os preços estão bem em conta. Segue a lista dos cursos de Programação e Desenvolvimento.

Curso de Delphi

de R$ ~~79,90~~ por
3x de R$ 19,97
sem juros no cartão
ou R$ 59,90 à vista

Curso de Java

de R$ ~~79,90~~ por
3x de R$ 19,97
sem juros no cartão
ou R$ 59,90 à vista

Curso de Visual Basic .Net

de R$ ~~79,90~~ por
3x de R$ 19,97
sem juros no cartão
ou R$ 59,90 à vista

Curso de PHP e MySQL

de R$ ~~79,90~~ por
3x de R$ 19,97
sem juros no cartão
ou R$ 59,90 à vista

Outros Cursos

ASP
Dreamweaver CS3

Dreamweaver CS5

HTML5

Lógica de Programação

Oracle 10g

SQL Server

Visual Basic 6

Selecionar Pasta - Delphi

2012-08-25T13:46:00.007-07:00

Eis uma função para exibir uma caixa de diálogo para selecionar uma pasta em Delphi.
Primeiramente adicione a uses FileCtrl.

procedure TForm1.Button1Click(Sender: TObject);
var
selDir : string;
begin
SelectDirectory('Selecione uma pasta', 'C:\', selDir);
end;

Explicando....

Declaramos selDir como string, pois ela armazenará o caminho que o usuário escolher.
SelectDiretory é a função para exibir a caixa de diálogo de seleção de pasta.
O primeiro argumento é a mensagem que será exibida para o usuário.
O segundo argumento é o diretório inicial da caixa de seleção.
E o terceiro, no caso, é onde será armazenado o local que o usuário escolheu.

Manipulando a variável selDir.

procedure TForm1.Button1Click(Sender: TObject);
var
selDir : string;
begin
if SelectDirectory('Selecione uma pasta', 'C:\', selDir) then
ShowMessage('Você escolheu a pasta ' + selDir);
end;

Abraço e até a próxima! (:

Carregando um Cursor externo - Delphi

2012-08-25T13:46:00.005-07:00

Este código faz com que seja possível carregar um cursor externo e substituir um dos cursores padrões do Windows em sua aplicação.
Basta que o cursor esteja no local especificado, e que você adicione o seguinte código ao evento onCreate do Form.

procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[1] := LoadCursorFromFile('shot.cur');
Form1.Cursor := 1;
end;

O código Screen.Cursors refere-se aos cursores do Windows e o índice [1] refere-se ao cursor padrão
do Windows;
Então o cursor padrão é alterado pelo cursor shot.cur que foi carregado da pasta.
E a última linha refere-se que o cursor do Form1 é o 1, que foi substituído.

Abraço e até a próxima.

Criando uma DLL - Delphi

2012-08-23T07:50:00.002-07:00

DLL ou Dynamic-Link Library é o nome que se dá á bibliotecas externas. Você já deve ter visto aplicações que utilizam diversas bibliotecas dessas, e hoje, vou falar um pouco mais sobre elas.
As DLLs podem conter funções e rotinas para qualquer aplicação. Isso facilita quando se trata de uma aplicação grande, e além de tudo, colocar as rotinas em DLLs economizam o espaço em disco e também a memória RAM em Runtime.
Além do mais, qualquer aplicação pode acessar as rotinas da DLLs.

Para criar uma DLL, abra o Delphi e clique em File>New>Other selecione a categoria Delphi Projects e Dynamic-link Library.

Para criarmos alguma função ou rotina na DLL, podemos escreve-la acima do bloco begin-end. Ex:

library minhaDLL;

uses
System.SysUtils,
System.Classes;

{$R *.res}

function Calcular(valor1: Real; operador: Char; valor2: Real): Real;
var
resultado: Real; // variavel de retorno
begin
  case operador of
    '+': resultado := valor1 + valor2;    // soma
  '-': resultado := valor1 - valor2;   // subtração
  '*': resultado := valor1 * valor2; // multiplicação
  '/': resultado := valor1 / valor2;    // divisão
  end;
result := resultado;    // retorna resultado
end;

begin
end.

Além de termos a rotina, ela ainda não pode ser usada pela aplicação. Para isso, temos que exporta-la, colocando a função na lista de exportação ainda acima do bloco begin-end.

exports
Calcular;

Agora sim, a rotina foi exportada, porém podemos apenas utiliza-la em aplicações Delphi. Se quisermos utiliza-la em outras linguagens de programação, devemos marca-la com a diretiva stdcall.

function Calcular(valor1: Real; operador: Char; valor2: Real): Real; stdcall;

O modo mais simples para carregar uma DLL em sua aplicação, é o de carga estática. Para carregarmos ela em nossa aplicação, devemos declarar a função que queremos importar na diretiva interface e mostrar o arquivo da DLL na diretiva implementation.
Dessa forma, crie uma nova aplicação e adicione uma nova unidade. (File>New>Unit).

unit funcoesDLL;

interface

function Calcular(valor1: Real; operador: Char; valor2: Real): Real; stdcall;

implementation
function Calcular; external 'minhaDLL.dll';

end.

Repare que, declaramos a função que está na DLL e na implementation mostramos onde está a função.
É possível importar a função com outro nome, desde que você mostra o nome da função depois.

function FazContas(valor1: Real; operador: Char; valor2: Real): Real; stdcall; external 'minhaDLL.dll'; name 'Calcular';

Eu salvei a unit como funcoesDLL.pas, para que possamos importar em nossa aplicação.
Crie uma nova aplicação, e na uses, adicione a unit funcoesDLL da qual acabamos de salvar.

Agora basta chamar a função, desde que a uses funcoesDLL esteja importada.

procedure TForm2.Button1Click(Sender: TObject);
begin
ShowMessage(FloatToStr(Calcular(10, '+', 10)));
end;

Eis o resultado:

É isso ai galera, esse é o básico sobre DLLs utilizando o Delphi.

Até a próxima.

DLL_Delphi.rar

Funções - Delphi

2012-08-19T17:30:00.001-07:00

Funções são parecidas com Procedimentos, mas a única diferença é que as funções retornam um valor.
Por exemplo:

function <nome_da_funcao>(<argumento1>: <tipo>; <argumento2>: <tipo>):<retorno>;

begin
result := <variavel>
end;

Onde, result := variavel indica a variável que será retornada pela função. Lembrando que o tipo da variável tem que ser o mesmo tipo indicado no retorno.
Exemplo:

// O tipo de retorno da variável será Real, conforme negritado abaixo:

function Calcular(valor1: Real; operador: Char; valor2: Real): Real;
var
resultado: Real; // variavel de retorno
begin
case operador of
'+': resultado := valor1 + valor2; // soma
'-': resultado := valor1 - valor2; // subtração
'*': resultado := valor1 * valor2; // multiplicação
'/': resultado := valor1 / valor2; // divisão

end;

result := resultado; // retorna resultado
end;

A função acima, recebe valor1 que é do tipo Real, recebe operador que é do tipo Char e recebe valor2 que é do tipo Real, além de ter a variável de retorno do tipo Real;

Podemos chamar a função da seguinte maneira:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(FloatToStr(Calcular(50, '*', 10)));
end;

* FloatToStr converte Real para String, pois ShowMessage recebe apenas String e Calcular é do tipo Real.
* Repare os argumentos da função Calcular.

Calcular(50, '*', 10);

O primeiro argumento (valor1: Real) é 50.
O segundo argumento (operador: Char) é '*'. Poderia ser '-', '/' ou '-'.
O terceiro argumento (valor2: Real) é 10.
Tudo conforme programado na função Calcular. Assim podemos ver o resultado.

Calcular(50, '*', 10);

Por hoje é isso galera, no próximo artigo, falarei sobre DLLs em Delphi.

Abraço e até a próxima.