Templates Gratuitos Joomla

2011-08-09T05:35:00.000-07:00

Pra quem gosta de desenvolver sites utilizando Joomla, esse site possui vários templates gratuitos: http://www.gelono.com

Eu não testei todos, mas os que testei eram realmente gratuitos, sem aquelas restrições como um título enorme no lugar onde deveria ser o nome do site.
No máximo tinha um rodapé padrão e um "powered by joomla", mas que podem ser facilmente removido editando o template em "extensions" e clicando em cima do seu template. Depois é só ir em "Edit HTML" e apagar ou comentar a linha que tem "$sg = 'banner'; include..." e modificar ou apagar o conteúdo da div "footer".
Bom, fica aí a dica! Qualquer besteira que eu tenha dito aqui, entre em contato pra me corrigir, rsrsrs!

Abraços!

Inversor de Palavras

2011-07-18T07:59:00.000-07:00

Ótima solução para aqueles links que estão invertidos para dificultar o download.

Clique aqui para fazer o download do Inversor de Palavras!

Agenda de Contas 1.2

2011-07-17T22:07:00.000-07:00

Sabe quando você procura um arquivo pra baixar e, bem na hora de fazer o download, o site informa que é necessário fazer um cadastro primeiro?
Pois é! Muitas vezes eu fazia o cadastro rapidinho apenas para baixar um arquivo ou visualizar um link e nem me importava em lembrar detalhes como Email que usei para cadastro, usuário, senha, etc.
Ou ainda eu anotava tudo num bloco de notas, mas na hora de procurar algo era um pouco incômodo.

Enfim, pensando em fazer algo específico e prático para nunca mais perder os dados de uma conta, resolvi fazer uma agenda. Agora, toda vez que vou me cadastrar em algum site, abro a agenda e anoto as informações mais importantes que utilizei, como usuário, senha, Email, url do site, etc.

Quando fiz a agenda, algumas pessoas que estudavam comigo se interessaram e disseram que também tinham problemas na hora de lembrar os dados de seus cadastros na internet.

Quem também se preocupa com segurança e prefere não utilizar o mesmo email, usuário e senha para todas as contas na web, faça download da Agenda de Contas clicando aqui!

É fácil, rápido e de graça! Aproveitem!

Compatível com Windows XP, Windows 7 e Windows Vista.

Enviando Email com Programa Feito em Delphi 2009

2011-07-09T10:23:00.001-07:00

Vou demonstrar de forma simples como fazer um programa em Delphi que envia mensagem de uma conta do gmail.
Fiz esse tutorial porque a um tempo atrás eu precisei fazer um programa que fizesse isso e percebi que, por mais que hajam tutoriais e mais tutoriais sobre isso, um número enorme de pessoas tem dificuldade devido a diversos fatores, como por exemplo, onde encontrar as dll's necessárias, que versão do Delphi utilizar, qual conta de e-mail pode-se utilizar para enviar as mensagens, etc.
Aqui vou tentar não só mostrar o caminho das pedras, mas também segurar a mão, levar pelo caminho e ainda deixar um mapa! (rsrsrs)

Bom, primeiramente tenha em mão (ou, em computador):

Sistema Operacional Windows XP Serviçe Pack 3;
Delphi 2009; Download do Delphi 2009
Uma conta no Gmail;
Palettas Standart, Indy Clients, Indy I/O Handlers e Indy Misc;
Arquivos libeay32.dll e ssleay32.dll; Download das dll's
Não baixe as dll's de outro lugar, pois existem outras com o mesmo nome mas incompatíveis.
(essa é a lista do que eu utilizei e funcionou, se for usar outras versões, será por sua conta e risco)

Primeiramente você precisará ter uma conta no Gmail e ativar o POP e IMAP dela.
Para isso, acesse sua conta no Gmail.

Depois, clique no desenho da engrenagem no canto direito superior da tela, como mostra a figura:

Clique em Configurações do Google Mail.

Agora vá para a aba Encaminhamento e POP/IMAP e marque Ativar POP para todos os e-mails (mesmo os que já foram baixados) e Ativar IMAP.

Feito isso, você ativou sua conta do Gmail para que seu programa possa acessá-la.

Abra o Delphi 2009, depois clique em File/New/VCL Forms Application - Delphi.

Depois, clique em File, Save All e crie uma pasta com o nome que desejar e salve seu projeto dentro dela. Salve com o nome que foi sugerido pelo próprio Delphi.

Um mapa do Delphi 2009 aberto. Em vermelho o nome das ferramentas que iremos utilizar.

Em seguida, em Tool Palette, vá na paletta Indy Clients e clique em TIdSMTP. Agora clique no seu form para que esse componente seja inserido nele.

Com o TIdSMTP selecionado, vá em Object Inspector na propriedade Name, apague o que estiver escrito e digite ClienteSMTP. Assim você renomeou o componente de seu form.

Abra a paletta Indy I/O Handlers e clique no componente TIdSSLIOHandlerSocketOpenSSL e clique no form para inserir mais esse componente.
Como fizemos anteriormente, com o componente selecionado vá em Object Inspector na propriedade Name e renomeie para SSLHandlerSMTP.

Agora, na paletta Indy Misc, Cliqeu em TIdMessage e coloque-o no form.
Vá em Object Inspector em Name e renomeie para IdMessage1 (é provável que já esteja assim).

Agora vá na paletta Standard e Clique em TButton e coloque-o em seu form.

Seu Form deve estar com uma aparência como a da figura abaixo:

Em Project Manager, Dê clique duplo em Unit1.pas para que o código do seu programa seja exibido.

Feito isso, selecione o código do início dele até o nome implementation.

Substitua tudo pelo código abaixo:

unit Unit1;

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL,
IdSSLOpenSSL, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase,
IdSMTP;

type
// a definição fica TOTALMENTE FORA da definição do formulário
TParametrosEmail = record
SMTPHost, SMTPUsername, SMTPPassword: string;
SMTPConta, SMTPNomeExibicao, SMTPDestinatarios: string;
SMTPAutenticacao, SMTPSSL: boolean;
SMTPPorta: integer;
end;

TForm1 = class(TForm)
ClienteSMTP: TIdSMTP;
IdMessage1: TIdMessage;
SSLHandlerSMTP: TIdSSLIOHandlerSocketOpenSSL;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);

private
{ Private declarations }
FParametrosEmail: TParametrosEmail; // declaracao da variável
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

Depois disso vá novamente em Project Manager e de clique duplo em Unit1.dfm, para abrir o seu form novamente.
Agora, de um duplo clique em cima do TButton que adicionamos anteriormente ao formulário.
Se você clicou corretamente, agora estará vendo um código parecido com este:

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

Substitua este código pelo código abaixo:

procedure TForm1.Button1Click(Sender: TObject);
var
AutenticouSMTP: boolean;
begin
//** configura SMTP **
if ClienteSMTP.Connected then
try
ClienteSMTP.Disconnect;
except
end;

ClienteSMTP.Host := FParametrosEmail.SMTPHost; // atribui o host (pop.gmail.com)
ClienteSMTP.Port := FParametrosEmail.SMTPPorta; // atribui a porta (465)

if FParametrosEmail.SMTPAutenticacao then // se requer autenticacao
begin
ClienteSMTP.Username := FParametrosEmail.SMTPUsername; // atribui o nome do usuario
ClienteSMTP.Password := FParametrosEmail.SMTPPassword; // atribui a senha
end
else
begin // se não requer autenticacao
ClienteSMTP.Username := ''; // limpa o usuario
ClienteSMTP.Password := ''; // limpa a senha
end;

if FParametrosEmail.SMTPSSL then // se requer conexao segura
begin
ClienteSMTP.IOHandler := SSLHandlerSMTP; // vincula o manipulador de SMTP ao cliente SMTP
ClienteSMTP.UseTLS := utUseImplicitTLS; // atribui ao cliente SMTP o suporte implícito a TLS

SSLHandlerSMTP.Port := ClienteSMTP.Port; // atribui a porta ao manipulador (igual a do cliente FTP)
SSLHandlerSMTP.Destination := ClienteSMTP.Host + ':' + IntToStr(ClienteSMTP.Port); // indica o destino da conexão (pop.gmail.com:465)
SSLHandlerSMTP.Host := ClienteSMTP.Host; // atribui o host (pop.gmail.com)
end
else
begin // se não requer conexao segura
ClienteSMTP.IOHandler := nil; // desvincula o manipulador de SMTP
ClienteSMTP.UseTLS := utNoTLSSupport; // indica que nao ha suporte a TLS
end;

AutenticouSMTP := False; // variavel para indicar se a autenticacao foi bem sucedida

// *** montagem da mensagem ***
// ****************************
// cabecalho
IdMessage1.Clear;
IdMessage1.ContentType := 'text/html';
IdMessage1.From.Address := FParametrosEmail.SMTPConta; // conta do remetente
IdMessage1.From.Name := FParametrosEmail.SMTPNomeExibicao; // nome do remetente
IdMessage1.Recipients.EMailAddresses := FParametrosEmail.SMTPDestinatarios; // destinatarios (separados por vírgula! não é ponto e vírgula!)
IdMessage1.Subject := 'Envio de email automatico'; // assunto

// corpo do email
IdMessage1.Body.Clear;
IdMessage1.Body.Add('<html>');
IdMessage1.Body.Add(' <body>');
IdMessage1.Body.Add(' <h4>SISTEMA DE EMAIL AUTOMATICO</h4>');
IdMessage1.Body.Add(' ');
IdMessage1.Body.Add(' Teste de envio de email');
IdMessage1.Body.Add(' <hr size=1 noshade>');
IdMessage1.Body.Add(' ');
IdMessage1.Body.Add('Isto é somente um exemplo que você pode tomar como base para gerar as suas mensagens');
IdMessage1.Body.Add(' ');
IdMessage1.Body.Add(' ');
IdMessage1.Body.Add(' <hr size=1 noshade>');
IdMessage1.Body.Add(' EMITIDO AUTOMATICAMENTE PELO SISTEMA ');
IdMessage1.Body.Add(' ');
IdMessage1.Body.Add(' Boa semana');
IdMessage1.Body.Add(' ');
IdMessage1.Body.Add(' ');
IdMessage1.Body.Add(' </body>');
IdMessage1.Body.Add('</html>');

// efetua a conexao ao servidor SMTP
if not ClienteSMTP.Connected then
try
ClienteSMTP.Connect; // conecta ao SMTP
if FParametrosEmail.SMTPAutenticacao then // se requer autenticacao
AutenticouSMTP := ClienteSMTP.Authenticate // efetua a atenticacao e retorna o resultado para a variável
else // se nao requer autenticacao
AutenticouSMTP := True; // assume que a conexao foi bem sucedida
except
on E:Exception do // em caso de erro gera um log com a mensagem de erro
ShowMessage('Não foi possível conectar ao servidor SMTP: '+E.Message);
end;

// se a conexao foi bem sucedida, envia a mensagem
if AutenticouSMTP and ClienteSMTP.Connected then
ClienteSMTP.Send(IdMessage1);

// depois de tudo pronto, desconecta do servidor SMTP
if ClienteSMTP.Connected then
ClienteSMTP.Disconnect;
end;

Novamente, em Project Manager, de duplo clique sobre Unit1.dfm para que seu form seja exibido na tela.
Agora de um clique em alguma parte vazia do form, vá em Object Inspector na aba Events e de duplo clique em frente ao nome OnCreate.
Se fez corretamente, seu código foi exibido novamente e agora você está vendo um código como este:

procedure TForm1.FormCreate(Sender: TObject);
begin
end;

Substitua esse código pelo abaixo:

procedure TForm1.FormCreate(Sender: TObject);
begin
FParametrosEmail.SMTPConta := 'meuemail@gmail.com'; //email completo
FParametrosEmail.SMTPNomeExibicao := 'Meu Nome';
FParametrosEmail.SMTPPassword := 'minhasenha';
FParametrosEmail.SMTPUsername := 'meuusuario'; //não coloque o @gmail.com

FParametrosEmail.SMTPHost := 'pop.gmail.com';
FParametrosEmail.SMTPPorta := 465;
FParametrosEmail.SMTPAutenticacao := True; // requer autenticacao
FParametrosEmail.SMTPSSL := True; // requer conexao segura

// destinatarios separados por virgula
FParametrosEmail.SMTPDestinatarios := 'fulanodetal@gmail.com, ciclanodetal@ig.com.br';
end;

Agora, na pasta onde você salvou seu projeto, coloque os arquivos libeay32.dll e ssleay32.dll.

Volte para o Delphi e clique no botão verde para compilar o programa (ou aperte F9).

Você deve estar vendo um programa vazio com apenas um botão chamado Button1, certo? clique nele.
Se tiver funcionado, o botão ficará pressionado por um tempo e depois voltará ao normal. Agora é só checar a caixa de e-mail para onde você enviou a mensagem.

Caso tenha perdido o fio da meada durante o tutorial, disponibilizei aqui o programa funcionando, bastando acessá-lo pelo Delphi e modificar o código colocando os dados do seu email, como usuário, senha, email, etc.

Não se esqueça de ativar o POP e o IMAP de seu Gmail antes de testar, do contrário o programa não funcionará!

Download do programa funcionando juntamente com as dll's

Programando de Tudo

Templates Gratuitos Joomla

Inversor de Palavras

Agenda de Contas 1.2

Enviando Email com Programa Feito em Delphi 2009