Introdução

O controle de transação serve para garantir a integridade dos dados. Isso significa que através dele podemos ter a certeza de que todos os dados serão gravados no banco de dados. Em caso de eventual falha em algum momento da gravação todo o processo volta ao estado inicial, sem inserções parciais. Ao encontrar um erro durante o processo (leia-se um ou mais inserts em seqüencia) simplesmente é dado um rollback e nada é gravado no banco. Ao completar o processo com sucesso, a transação dá um commit e grava os dados no banco.

Exemplificando

Peguemos um sistema de vendas como exemplo. Para efetuar um pedido, devemos gravar as informações do cliente na tabela cliente, os itens do pedido na tabela itens, atualizar o estoque na tabela produtos e por fim gravar os dados da venda na tabela vendas. Agora imaginemos que no meio deste processo é gerado algum erro. Digamos que já tenhamos inserido os dados na tabela de clientes, os itens do pedido e atualizado o estoque. Falta apenas gravar os dados da venda. E neste momento ocorre algum erro. O que fazer com os dados que já foram gravados? Como fica o estoque que já foi atualizado? Em um sistema que não possui nenhum tipo de controle, isso seria o caos: o estoque fica comprometido, o banco de dados ganha inconsistências e nunca o sistema será confiável.

Pondo a teoria em prática

Então vamos implementar o nosso controle de transações utilizando o TransactionScope, fornecido pela biblioteca System.Transactions.dll. Em primeiro lugar devemos adicionar a referencia da biblioteca em nosso projeto. Com isso, basta ir no menu Project e depois em Add Reference.

Depois selecionamos o assembly System.Transactions.

Depois disso é só pôr a mão na massa. Primeiramente adicionamos a referência à nossa classe.

Em C#

using System.Transactions;

Em VB

Imports System.Transactions

Feito isso, agora implementar o controle de transações:

Em C#

TransactionOptions options = new TransactionOptions();
options.IsolationLevel = System.Transactions.IsolationLevel.ReadCommitted;

using (TransactionScope scope = new TransactionScope(TransactionScopeOption.Required, options))
{
//Insira os comandos de insert aqui

scope.Complete();

}

Em VB.NET

Using scope As New TransactionScope(TransactionScopeOption.Required, IsolationLevel.ReadCommitted)
‘* Insira os comandos de insert aqui
scope.Complete()
End Using

Parâmetros Necessários

Para criar uma nova instância de um TransactionScope, devemos passar alguns parâmetros.

TransactionScopeOption

Em TransactionScopeOption temos as seguintes opções:

Required - Re-utiliza uma transação ativa ou cria uma nova caso não haja nenhuma ativa.

RequiresNew - Cria sempre uma nova transação sem re-aproveitar outra transação.

Suppress - Simplesmente não utiliza nenhuma transação.

IsolationLevel

Serializable - Os dados, durante a transação, podem ser lidos mas nenhum dado pode ser adicionado ou modificado.

RepetableRead - Os dados podem ser lidos e adicionados mas não podem ser modificados.

ReadCommited - Dados não podem ser lidos, mas podem ser modificados.

ReadUncommited - Dados podem ser lidos e modificados durante a transação.

Snapshot - Os dados podem ser lidos e modificados, porém, antes de modificar alguma informação, a transação verifica se o conjunto de dados permanecem os mesmos. Se tiverem sido alterados, uma exceção é gerada.

Chaos - As alterações pendentes de transações em níveis superiores não podem ser sobrepostas.

Unspecified - Um IsolationLevel diferente do atual está sendo usado, mas não é possível determinar o seu tipo. Neste caso é gerada uma exceção.

Finalizando

Implementar um controle de transações é algo muito simples e poupa muita dor de cabeça. O ideal seria que todos os sistemas, por mais simples que sejam, utilizassem um controle como este. Desta forma seria possível entregar sistemas mais seguros e confiáveis, melhorando a qualidade do produto e a imagem do desenvolvedor junto aos clientes.

Confira ofertas de: DVD, filmes, celular, notebook, livros, jogos, Wii, PS3, MP4

a

Implementando controle de transações com TransactionScope

Neste artigo vou mostrar como buscar este TIFF para podermos trabalhar com ele.

Exemplo

Este exemplo consiste em efetuar o upload de um arquivo EPS, e mostrar o preview do arquivo EPS na página.

1 - Crie o arquivo Default.aspx que vai conter a interface do exemplo;

2 - Insira no arquivo um component FileUpload e o renomeie para FileUploadEps;

3 - E insira um componente Button e o renomeie para ButtonUploadEps;

Arquivo Default.aspx

<%@ Page Language=”C#” AutoEventWireup=”true” CodeFile=”Default.aspx.cs” Inherits=”_Default” %>

<!DOCTYPE html PUBLIC “-//W3C//DTD XHTML 1.0 Transitional//EN” “http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd”>

<html xmlns=”http://www.w3.org/1999/xhtml” >
<head runat=”server”>
<title>Preview de Arquivos EPS</title>
</head>
<body>
<form id=”form1″ runat=”server”>
<div>
<asp:FileUpload ID=”FileUploadEps” runat=”server” Style=”position: relative” />
<asp:Button ID=”ButtonUploadEps” runat=”server” OnClick=”ButtonUploadEps_Click” Style=”position:relative” Text=”Upload EPS” />
</div>
</form>
</body>
</html>

4 - Crie o arquivo Default.aspx.cs que vai conter o código em C#;

5 - Use os seguintes namespace:

using System;
using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;

using System.Web.UI.HtmlControls;

using System.IO;
using System.Drawing;
using System.Drawing.Imaging;

6 - Crie o evento de click do botão “ButtonUploadEps” e insira nele o seguinte código:

FileStream fileStreamEps = null;
string strCaminhoEpsUpload = “”;

//* Verifica se o usuário selecionou algum arquivo
if (FileUploadEps.PostedFile.FileName != “”)
{

//* Monta o caminho da onde o arquivo vai ser salvo
strCaminhoEpsUpload = MapPath(”.”) + “\\” + Path.GetFileName(FileUploadEps.PostedFile.FileName);

//* Executa o upload do arquivo
FileUploadEps.PostedFile.SaveAs(strCaminhoEpsUpload);

//* Abre o arquivo e lê o header
fileStreamEps = File.Open(strCaminhoEpsUpload, FileMode.Open, FileAccess.Read, FileShare.ReadWrite);

byte[] buf = new byte[32];

//* Passa para o buffer o header do arquivo
fileStreamEps.Read(buf, 0, 32);

//* Converte para uint
uint idArquivo = obtemU(buf, 0);

//* Verifica se o arquivo de entrada é um EPS
if (idArquivo != 0xc6d3d0c5)
{

return;

}

//* obtem o uint
uint TIFOff = obtemU(buf, 20);

//* Verifica se foi encontrado no EPS a identificação de preview
if (TIFOff == 0)
{

return;

}

//* Não posicionou no TifOffset
if (fileStreamEps.Seek(TIFOff, SeekOrigin.Begin) != TIFOff)
{
return;
}

//* obtem o uint
uint TIFSize = obtemU(buf, 24);

//* Redimensiona o buffer
byte[] msBuf = new Byte[TIFSize];

//* Passa o arquivo para a memória
MemoryStream memoryStreamEps = new MemoryStream(msBuf);
fileStreamEps.Read(msBuf, 0, (int)TIFSize);

//* Cria um novo bitmap apartir do conteudo da memoria
Bitmap bitMapEps = new Bitmap(memoryStreamEps);

//* Mostra a imagem na tela
bitMapEps.Save(Response.OutputStream, ImageFormat.Jpeg);
bitMapEps.Dispose();
}

7 - Crie uma função para obter o uint:

private static uint obtemU(byte[] buf, int pos)
{
return (uint)(buf[pos] + 0×100 * buf[pos + 1] + 0×10000 * buf[pos + 2] + 0×1000000 * buf[pos + 3]);
}

Vale lembrar que não são todos os EPS que contem um arquivo de preview. Na hora de salvar a imagem em EPS o usuário tem a escolha, se deseja salvar o preview, e em qual qualidade será gerado o preview.

Download do Exemplo

Clique aqui para efetuar o download do projeto de exemplo. O projeto foi criado no Visual Studio 2005.

Confira ofertas de: DVD, filmes, celular, notebook, livros, jogos, Wii, PS3, MP4

a

Buscando o preview de um arquivo EPS em C# com ASP.NET

Os arquivos PDF se transformaram ao longo do tempo em um padrão para troca de documentos. Desde relatórios até contratos, este formato tem sido usado em larga escala devido a sua portabilidade - é possível abrir arquivos deste tipo em qualquer sistema operacional - além de, geralmente, ser um arquivo pequeno. Isso sem falar que um arquivo PDF não pode ser modificado, garantindo, desta forma, que o arquivo irá sempre manter o mesmo conteúdo. Eu arriscaria dizer, ainda, que passa uma aparência mais profissional enviar um arquivo em formato PDF, ao invés de outros formatos, como DOC, por exemplo.

Neste artigo iremos conhecer os fundamentos da criação de um arquivo PDF utilizando a linguagem PHP. Para tal, será usada a biblioteca FPDF, responsável pela criação do arquivo. O download pode ser feito aqui.

Conhecendo as principais funções

Abaixo estão relacionadas as principais funções que serão utilizadas para a criação do arquivo, com a respectiva descrição.

SetFont - Define a fonte que será usada para imprimir o texto. É obrigatório setar ao menos uma vez a fonte que será utilizada no documento.

SetTitle - Define o título do documento.

SetSubject - Define o assunto do documento.

SetX - Define a abscissa da posição corrente. A grosso modo podemos dizer que informa a posição a partir da margem esquerda do documento.

SetY - Explicando de uma forma simples, indica a linha (posição vertical).

Cell - Imprime uma célula (área retangular) com bordas opcionais, cor de fundo e texto. O canto superior-esquerdo da célula corresponde à posição atual. O texto pode ser alinhado ou centralizado. Depois de chamada, a posição atual se move para a direita ou para a linha seguinte. É possível pôr um link no texto. Se a quebra de página automática está habilitada e a pilha for além do limite, uma quebra de página é feita antes da impressão.

Ln - Faz uma quebra de linha. A abscissa corrente volta para a margem esquerda e a ordenada é somada ao valor passado como parâmetro.

MultiCell - Este método permite imprimir um texto com quebras de linha. Podem ser automática (assim que o texto alcança a margem direita da célula) ou explícita (através do caracter n). Serão geradas tantas células quantas forem necessárias, uma abaixo da outra.

Image - Permite inserir uma imagem no documento. Os tipos permitidos são JPG e PNG.

AddPage - Acrescenta uma página ao documento.

PageNo - Informa a página atual.

AliasNbPages - Define um apelido para a impressão do número total de páginas.

Header e Footer - Estes métodos inserem automaticamente o cabeçalho e rodapé das páginas do documento. Porém, para utilizá-las, é necessário criar uma subclasse para sobrepor os métodos originais.

Output - Envia o documento para o destino informado. Pode-se abrir o arquivo no navegador, fazer o download ou mesmo salvar o arquivo no disco.

OBSERVAÇÃO:

Sempre que for necessário setar a posição X e Y, sete primeiro o Y e depois o X.

Criando nosso primeiro documento

Agora vamos ver como criar um arquivo simples, contendo algum texto e uma imagem.

<?

require_once(”fpdf/fpdf.php”);

$texto = “Os arquivos PDF se transformaram ao longo do tempo em um padrão para troca de documentos. Desde relatórios até contratos, este formato
tem sido usado em larga escala devido a sua portabilidade - é possível abrir arquivos deste tipo em qualquer sistema operacional - além de, geralmente, ser um arquivo pequeno.
Isso sem falar que um arquivo PDF não pode ser modificado, garantindo, desta forma, que o arquivo irá sempre manter o mesmo conteúdo. Eu arriscaria dizer, ainda, que passa uma
aparência mais profissional enviar um arquivo em formato PDF, ao invés de outros formatos, como DOC, por exemplo.”;

//defininfo a fonte !
define(’FPDF_FONTPATH’,'fpdf/font/’);

//instancia a classe
//uso: FPDF(orientacao - retrato ou paisagem), unidade de medida, tamanho do papel)
$pdf = new FPDF(”P”,”mm”,”A4″);

//define a fonte a ser usada
//uso: SetFont(nome da fonte, estilo (branco = normal, b = negrito, i = italico, u = sublinhado), tamanho da fonte)
$pdf->SetFont(’arial’,”,10);

//define o titulo
$pdf->SetTitle(”Criando nosso primeiro arquivo PDF !”);

// seta a posicao vertical e horizontal
$pdf->SetY(”-1″);

//assunto
$pdf->SetSubject(”Criação de arquivos PDF com PHP!”);

//escreve o texto
//uso: Cell(largura, altura, conteudo, borda, quebra de linha, alinhamento (L = esquerdo, R = direito, C = centralizado)
$pdf->Cell(0,5,”Criando arquivos PDF com PHP”,0,0,’L');
$pdf->Cell(0,5,’http://fdweb.com.br’,0,1,’R');
$pdf->Cell(0,0,”,1,1,’L');
$pdf->Ln(8);

//Seta a fonte do texto do documento
$pdf->SetFont(’arial’,”,8);

// insere a imagem
//uso: Image(caminho, posicao X,posicao Y,altura, largura)
//$pdf->Image(”http://fdweb.com.br/downloads/logo.jpg”, $pdf->GetX(), $pdf->GetY(), 20, 20);
$pdf->Image(”logo.jpg”,10,30);

//posiciona horizontalmente
$pdf->SetY(”30″);
$pdf->SetX(”50″);

//Insere o texto do documento
//uso: MultiCell(largura, altura, conteudo, borda, quebra de linha, alinhamento (L = esquerdo, R = direito, C = centralizado, J = justificado)
$pdf->MultiCell(0,5,$texto,0,”L”,0);

$pdf->Output(”arquivo pdf”,”I”);

?>

Este exemplo mostra como criar um arquivo simples, com texto e uma imagem.

Implementando cabeçalho e rodapé

Para que todas as páginas possuam cabeçalho e rodapé padrão, temos que estender a classe FPDF e sobrepor os métodos Header e Footer. Note que a partir desse momento, ao invés de chamarmos a classe FPDF para gerarmos os documentos iremos passar a chamar a nossa classe estendida. Observe:

<?

require_once(”fpdf/fpdf.php”);

class PDF extends FPDF
{

// sobrepõe o método header
function Header()
{
//escreve o texto
//uso: Cell(largura, altura, conteudo, borda, quebra de linha, alinhamento (L = esquerdo, R = direito, C = centralizado)
//$this->SetY(-1);
$this->SetFont(’arial’,”,8);
$this->Cell(0,5,”Criando arquivos PDF com PHP”,0,0,’L');
$this->Cell(0,5,’http://fdweb.com.br’,0,1,’R');
$this->Cell(0,0,”,1,1,’L');
$this->Ln(8);

}
// sobrepõe o método footer
function Footer()
{
//Vai para 1.5 cm da parte inferior

$this->SetY(-15);

//Seleciona a fonte Arial itálico 8

$this->SetFont(’Arial’,'I’,8);

//Imprime o número da página corrente e o total de páginas

$this->Cell(0,10,’Página ‘.$this->PageNo().’ de {total}’,0,0,’C');
}
}

$texto = “Os arquivos PDF se transformaram ao longo do tempo em um padrão para troca de documentos. Desde relatórios até contratos, este formato
tem sido usado em larga escala devido a sua portabilidade - é possível abrir arquivos deste tipo em qualquer sistema operacional - além de, geralmente, ser um arquivo pequeno.
Isso sem falar que um arquivo PDF não pode ser modificado, garantindo, desta forma, que o arquivo irá sempre manter o mesmo conteúdo. Eu arriscaria dizer, ainda, que passa uma
aparência mais profissional enviar um arquivo em formato PDF, ao invés de outros formatos, como DOC, por exemplo.”;

//defininfo a fonte !
define(’FPDF_FONTPATH’,'fpdf/font/’);

//instancia a classe
//uso: PDF(orientacao - retrato ou paisagem), unidade de medida, tamanho do papel)
$pdf = new PDF(”P”,”mm”,”A4″);

$pdf->AliasNbPages( ‘{total}’ );

$pdf->AddPage();

//define a fonte a ser usada
//uso: SetFont(nome da fonte, estilo (branco = normal, b = negrito, i = italico, u = sublinhado), tamanho da fonte)
$pdf->SetFont(’arial’,”,10);

//define o titulo
$pdf->SetTitle(”Criando nosso primeiro arquivo PDF !”);

//assunto
$pdf->SetSubject(”Criação de arquivos PDF com PHP!”);

//Seta a fonte do texto do documento
$pdf->SetFont(’arial’,”,8);

// insere a imagem
//uso: Image(caminho, posicao X,posicao Y,altura, largura)
//$pdf->Image(”http://fdweb.com.br/downloads/logo.jpg”,$pdf->GetX(),$pdf->GetY(),20,20);
$pdf->Image(”logo.jpg”,10,30);

//posiciona horizontalmente
$pdf->SetY(”30″);
$pdf->SetX(”50″);

//Insere o texto do documento
//uso: MultiCell(largura, altura, conteudo, borda, quebra de linha, alinhamento (L = esquerdo, R = direito, C = centralizado, J = justificado)
$pdf->MultiCell(0,5,$texto,0,”L”,0);

$pdf->Output();

?>

Podemos notar que o código sofreu três alterações:

Declaramos $pdf = new PDF() ao invés de $pdf = new FPDF().

Acrescentamos as linhas : $pdf->AliasNbPages( ‘{total}’ ); e $pdf->AddPage();

O código que montava o cabeçalho foi para dentro da função Header, saindo do corpo do documento.

Considerações Finais

Antes de finalizar é bom ressaltar alguns itens:

- Não esquecer de informar a fonte antes de imprimir qualquer texto. Caso contrário a página ou o texto anterior ao primeiro SetFont não aparecerá no documento;

- Setar sempre a posição Y primeiro. Primeiro Y depois X, e não o contrário.

- Se for necessário colocar algum texto no final de cada página, como por exemplo a soma total de um campo, basta usar a função GetY é para determinar a posição da impressão dentro do documento. Isso pode ser verificado dentro de um loop for ou while. Por exemplo, o código abaixo imprime o número de linha de 1 a 150. Ao chegar no final da página (ou seja, a 27cm) ele escreve a palavra total e continua a impressão da linha seguinte na próxima página:

for($i=1;$i<=150;$i++)
{

if ($pdf->GetY() >= 270)
{
$pdf->Cell(0,5,”total: “,0,0);
$pdf->AddPage();
$pdf->Cell(0,5,”Line $i - ” . $pdf->GetY() ,0,1);
}
else
{
$pdf->Cell(0,5,”Line $i - ” . $pdf->GetY() ,0,1);
}

}

Concluindo

Vimos que criar arquivos PDF pode ser uma tarefa bem simples. Claro que documentos ou relatórios mais bem elaborados e/ou complexos podem dar um pouco mais de trabalho, mas o resultado final fica com aspecto mais profissional e elegante.

Confira ofertas de: DVD, filmes, celular, notebook, livros, jogos, Wii, PS3, MP4

a

Gerando arquivos PDF com PHP

Para inserir, modificar, e remover objetos da taskbar, usaremos uma API do windows que se encontra em shell32 e o método a ser chamado é o “Shell_NotifyIconA” .

Exemplo

Neste artigo, vamos criar um simples exemplo, mostrando como trabalhar com está API em nossas aplicações criadas em Visual Basic em sua versão 6.

Primeiro vamos criar a interface do exemplo:

1. Crie um novo projeto Standard EXE.

2. Crie a seguinte estrutura de menus, no formulário:

mnuIconeTaskbar

- mnuIconeTaskbarAlterar “Alterar Ícone”

- mnuIconeTaskbarMostrarFormulario “Mostrar Formulário”

- mnuIconeTaskbarSair “Sair”

3. Vamos precisar usar o componente CommonDialog, para adicionar este componente ao seu projeto entre no menu Project->Components.. e marque na lista o item “Microsoft Common Dialog Control 6.0″, se não constar na lista este item, você tem que instalar o Service Pack 6 do Visual Basic que pode ser encontrado para download aqui . Insira este componente no formulário e renomeie para “cmmdlgArquivo”.

Code

Agora com a nossa interface pronta, vamos a parte de código. Após o Option Explicit declare o tipo typeIconeTaskbar, que será usado para guardarmos os dados que precisamos para criar o ícone na taskbar:

Private Type typeIconeTaskbar
cbSize As Long
hWnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
End Type

Declare as constantes que usaremos no decorrer do nosso exemplo:

Private Const cntIconeTaskbarInsere = &H0
Private Const cntIconeTaskbarAltera = &H1
Private Const cntIconeTaskbarRemove = &H2
Private Const cntIconeTaskbarMensagem = &H1
Private Const cntIconeTaskbarIcone = &H2
Private Const cntIconeTaskbarTipo = &H4

Private Const cntMouseMove = &H200
Private Const cntMouseEsquerdoDuploClick = &H203
Private Const cntMouseEsquerdoDown = &H201
Private Const cntMouseEsquerdoUp = &H202
Private Const cntMouseDireitoDuploClick = &H206
Private Const cntMouseDireitoDown = &H204
Private Const cntMouseDireitoUP = &H205

As constantes que começam com cntIconeTaskbar, são relativas a o objeto na taskbar. E as que começam com cntMouse, são relativas aos eventos do mouse.

Declare a API para podermos interagir com a taskbar:

Private Declare Function apiIconeTaskbar Lib “shell32″ _
Alias “Shell_NotifyIconA” (ByVal dwMessage As Long, objIconeTaskbar As typeIconeTaskbar) As Boolean

Ainda na parte publica do formulário, declare a seguinte variável:

Dim objTaskbar As typeIconeTaskbar

Agora vamos criar duas subs, uma para esconder o formulário e a outra para mostra-lo:

Sub subEscondeFormulario()

Me.Hide

objTaskbar.cbSize = Len(objTaskbar)
objTaskbar.hWnd = Me.hWnd
objTaskbar.uId = vbNull
objTaskbar.uFlags = cntIconeTaskbarIcone Or cntIconeTaskbarTipo Or cntIconeTaskbarMensagem
objTaskbar.uCallBackMessage = cntMouseMove
objTaskbar.hIcon = Me.Icon
objTaskbar.szTip = Me.Caption & vbNullChar

apiIconeTaskbar cntIconeTaskbarInsere, objTaskbar

End Sub

Na sub subEscondeFormulario ao ser chamada , executamos um hide no nosso formulário e definimos as propriedades do nosso objeto, para inseri-lo no taskbar. No objeto, definimos o comprimento na propriedade cbSize. Na propriedade hWnd definimos o identificador do nosso formulário. Definimos como nulo o uId. Definimos quais serão os flags na propriedade uFlags. Definimos qual o evento que será gerado por este objeto na propriedade uCallBackMessage. Na propriedade hIcon definimos o ícone que será apresentado na taskbar, que no caso será o ícone que estiver definido no formulário e por ultimo a propriedade szTip, onde fica armazenado o caption do objeto na taskbar.

Após definirmos as propriedades do objeto, executamos a API para inserir o objeto na taskbar. O parâmetro para a API saber que está inserindo um objeto, está apontado por cntIconeTaskbarInsere.

Agora crie a subMostraFormulário, que altera o WindowState do formulário para vbNormal, mostra o formulário, seta o focus nele e atualiza o formulário. Após, executa a API para remover o objeto da taskbar:

Sub subMostraFormulario()

Me.WindowState = vbNormal

Me.Show

Me.SetFocus

Me.Refresh

apiIconeTaskbar cntIconeTaskbarRemove, objTaskbar

End Sub

No evento Load do formulário, executa a subEscondeFormulario:

Private Sub Form_Load()

subEscondeFormulario

End Sub

No evento Resize do formulário, verifica se o formulário foi minimizado, se sim, executa a subEscondeFormulario:

Private Sub Form_Resize()

If Me.WindowState = vbMinimized Then _
subEscondeFormulario

End Sub

Agora vamos criar o evento MouseMove do formulário. Nele verificamos qual o evento foi executado no nosso objeto que se encontra na taskbar. Caso for um duplo clique com o botão esquerdo, mostramos o formulário. Caso clicarmos com o botão direito do mouse no objeto, abrirá um menu para selecionarmos uma das opções:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim lngEvento As Long
Dim sFilter As String

lngEvento = X / Screen.TwipsPerPixelX

Select Case lngEvento

Case cntMouseEsquerdoDown

Case cntMouseEsquerdoUp

Case cntMouseEsquerdoDuploClick

subMostraFormulario

Case cntMouseDireitoDown

PopupMenu mnuIconeTaskbar

Case cntMouseDireitoUP

Case cntMouseDireitoDuploClick

End Select

End Sub

Agora vamos criar os eventos do nosso menu. No mnuIconeTaskbarAlterar vamos vai abrir uma caixa de dialogo onde podemos selecionar o novo ícone do nosso formulário. Alterando também o ícone que se encontra na taskbar:

Private Sub mnuIconeTaskbarAlterar_Click()

cmmdlgArquivo.DialogTitle = “Selecione um ícone”

cmmdlgArquivo.Filter = “Icone (*.ico)|*.ico|Todos os arquivos (*.*)|*.*”
cmmdlgArquivo.ShowOpen

If cmmdlgArquivo.FileName <> “” Then

Me.Icon = LoadPicture(cmmdlgArquivo.FileName)
objTaskbar.hIcon = Me.Icon
apiIconeTaskbar cntIconeTaskbarAltera, objTaskbar

End If

End Sub

No mnuIconeTaskbarMostrarFormulario, vamos apenas chamar a subMostraFormulario:

Private Sub mnuIconeTaskbarMostrarFormulario_Click()

subMostraFormulario

End Sub

E finalizando o nosso exemplo, vamos criar o evento do mnuIconeTaskbarSair:

Private Sub mnuIconeTaskbarSair_Click()

subMostraFormulario

Unload Me

End Sub

Debug

Pronto! Agora é só testar, execute o projeto.
Ao iniciar o formulário, o mesmo será escondido, e um ícone será criado na sua taskbar. Ao dar um duplo click no ícone com o botão esquerdo o formulário será mostrado, e o ícone removido da bandeja. Ao minimizar a aplicação, o formulário é escondido novamente, e inserido o ícone na taskbar. Ao clicar no ícone com o botão direito do mouse, teremos três opções: Sair, para fecharmos a aplicação e remover o ícone da bandeja. Mostrar Formulário, para chamar o formulário novamente e remover o ícone da bandeja. E a ultima opção que é Alterar Ícone, para alterarmos o ícone do formulário e do objeto da taskbar.

Download do Exemplo

O link para download do exemplo:
http://www.fdweb.com.br/downloads/TaskbarVB.zip

Confira ofertas de: DVD, filmes, celular, notebook, livros, jogos, Wii, PS3, MP4

a

Trabalhando com a taskbar do windows no Visual Basic

Como o BitTorrent funciona

Para que você possa fazer download (e upload) pelo BitTorrent, é necessário que cada item compartilhado esteja associado a um arquivo denominado torrent, cuja extensão é .torrent (por exemplo, infowester.torrent). Trata-se de um arquivo pequeno, mas que contém as informações necessárias para o compartilhamento, como o local onde o arquivo está e a seqüência que verifica a integridade deste. Esse arquivo pode estar disponível em um site e, quando acessado, inicia o download do arquivo compartilhado (desde que o BitTorrent esteja instalado). Isso significa que você precisa achar um torrent do arquivo que você deseja baixar. Para encontrar torrents você pode usar sites voltados a este fim. Há vários na internet, basta digitar a palavra "torrent" em mecanismos de busca para localizá-los.

Para entender o compartilhamento de arquivos do Torrent, é necessário conhecer alguns termos:

Seed (ou seeding): é a denominação dada ao computador que possui um arquivo completo compartilhado, como o computador que primeiramente disponibilizou o arquivo e os outros que o baixaram por inteiro;

Peer: nome dado a cada computador que compartilha arquivos. Quando você está baixando algo pelo Torrent, seu computador é um peer, ou seja, um ponto ou um nó da rede;

Leech (ou leeching): é a denominação dada ao momento em que um computador faz download;

Tracker: denominação dada ao servidor que é responsável por organizar os arquivos disponíveis e direcionar os downloads;

Swarm: nome dado ao conjunto de computadores que estão compartilhando o mesmo arquivo. Se, por exemplo, o arquivo infowester.pdf está sendo compartilhado por 2 seeds e por 8 peers, o swarm do arquivo contém 10 computadores (2 seeds + 8 peers).

O tracker é um dos principais responsáveis pelo funcionamento da rede do Torrent, pois ele praticamente gerencia a distribuição de arquivos porque possui informações sobre onde estão os computadores com os arquivos compartilhados num determinado momento.

Quando você inicia um download, o tracker é consultado para que a lista de computadores que possui o arquivo em questão seja informada. Enquanto o download vai sendo feito, seu computador se comunica periodicamente com o tracker para informar o quanto de download já foi feito e para saber o quanto falta. É importante ao tracker saber o quanto já foi baixado ao seu computador porque assim ele pode indicar sua máquina à outra que esteja precisando do "pedaço" do arquivo que você já tem. Assim, quanto mais computadores estiverem compartilhando aquele arquivo, mais rápido será o download, pois há mais opções de fontes.

Um fato interessante, é que se por alguma razão o tracker parar de funcionar (quando isso ocorre, geralmente é temporário) o swarm continua compartilhando o arquivo que lhe cabe, afinal, cada computador sabe de onde fazer o download. No entanto, nenhuma outra máquina poderá fazer parte do swarm, pois não há tracker que possa direcioná-la.

Clientes Torrent

Para poder baixar um arquivo .torrent é necessário utilizar um programa que entenda o arquivo .torrent e faça o download dos arquivos contidos dentro dele. Este programa chamamos de cliente torrent (ou torrent client). Existem diversos programas espalhados pela internet. Um dos melhores e mais usados é o uTorrent, que pode ser baixado aqui.

O programa é bem fácil de usar, possuindo uma interface bastante intuitiva. Fora o fato de ter suporte à língua tupiniquim.

Conclusão

Agora que já temos uma boa idéia do que é e de como funcionam os arquivos Torrent, é só sair por aí baixando seus filmes e músicas favoritas! O céu é o limite ( e a banda da internet também!).

Confira ofertas de: DVD, filmes, celular, notebook, livros, jogos, Wii, PS3, MP4

a

Arquivo Torrent: O que é e como funciona

Para esta edição o slogan da competição será: “Imagine um mundo onde a tecnologia permita um meio ambiente sustentável.”.

E as categorias serão: Design de Software, Desenvolvimento Embarcado, Desenvolvimento de Games, Projeto Hoshimi, IT Challenge, Algoritmo, Fotografia, Filme e Design de Interface.

Para se cadastrar no Imagine Cup e obter informações sobre a competição, entre neste link:
http://imaginecup.com/Registration/Default.aspx

Para efetuar o download dos sotwares, entre neste link:
http://imaginecup.com/MyStuff/FreeSoftware.aspx

Confira ofertas de: DVD, filmes, celular, notebook, livros, jogos, Wii, PS3, MP4

a

Download sem custo do Visual Studio 2005 Professional Edition, Visual SourceSafe 2005, SQL Server 2005 Developer Edition e o Expression Web

Vou montar um simples exemplo, demonstrando o envio de um email.

Exemplo

Trabalhar com Winsock é muito simples, você se conecta ao seu servidor SMTP, e envia comandos para ele interpretar, que retornam resposta para você tratar. Os primeiros três caracteres da mensagem retornada formam um código, para você identificar o significado da mensagem retornada.

Vamos criar a interface do nosso exemplo:

1. Crie um formulário e o nomeie para frmPrincipal.

2. Insira 5 Labels, e defina a propriedade Caption para cada Label respectivamente: “Smtp”, “Remetente”, “Destinatário”, “Assunto”, “Mensagem”.

3. Insira 5 TextBoxs, e defina a propriedade Name para cada TextBox respectivamente: “txtSmtp”, “txtRemetente”, “txtDestinatario”, “txtAssunto”, “txtMensagem”.

4. Insira um CommandButton, e defina a propriedade Name para “cmdEnviarEmail” e a propriedade Caption para “Enviar Email”.

5. Insira um controle Winsock, e defina a propriedade Name para “winsockEmail”. Para inserir o componente Winsock na sua barra de controles, vá até o menu Project->Components na lista procure por Microsoft Winsock Control, marque a caixa de seleção, e confirme a alteração no botão OK.

Organize a interface da maneira que achar melhor.

No formulário frmPrincipal, crie as seguintes constantes:

Const cntConectando = 0

Const cntDesconectar = 1

Const cntConectado = 2

Const cntAutenticar = 3

Const cntAutenticarUsuario = 4

Const cntAutenticarSenha = 5

Const cntRemetente = 6

Const cntPara = 7

Const cntMensagem = 8

Const cntFinalizar = 9

Crie tambem as seguintes variaveis:

Dim strUsuarioSMTP As String

Dim strSenhaSMTP As String

Dim blnAutenicarSMTP As Boolean

Base 64

Agora vamos criar o modulo para encriptação do usuário e a senha enviados para o servidor SMTP, renomei-e para mdlBase64. E insira o código abaixo:

Public Function sBase64Decode(BASE64TEXT_IN As String) As String

Dim i As Long, sText As String, rc As Integer

Dim sFour As String, sThree As String

Dim sOut As String

sText = sRemoveWhitespace(BASE64TEXT_IN)

For i = 1 To Len(sText) Step 4

sFour = Mid$(sText, i, 4)

While Len(sFour) < 4: sFour = sFour & “=”: Wend

sThree = sDecode4(sFour)

If Len(sThree) = 3 Then

sOut = sOut & sThree

Else

rc = MsgBox(”Illegal Characters <” & sFour & “> found”, vbOKCancel, “PROGRAM ERROR”)

If rc = vbCancel Then Exit For

sOut = sOut & “???”

End If

Next i

sBase64Decode = sOut

End Function

Public Function sBase64Encode(TEXT_IN As String) As String

Dim i As Long, sText As String, sThree As String, sFour As String

Dim sOut As String, nLineLength As Integer

Dim nNulls As Integer

sText = TEXT_IN

For i = 1 To Len(sText) Step 3

sThree = Mid$(sText, i, 3)

nNulls = Len(sThree) Mod 3

If nNulls > 0 Then nNulls = 3 - nNulls

sThree = sThree & Left$(Chr$(0) & Chr$(0), nNulls)

sFour = sEncode3(sThree)

If nNulls > 0 Then

sFour = Left$(sFour, 4 - nNulls)

sFour = sFour & Left$(”==”, nNulls)

End If

sOut = sOut & sFour

nLineLength = nLineLength + 4

If nLineLength >= 64 Then

sOut = sOut & vbNewLine

nLineLength = 0

End If

Next i

sBase64Encode = sOut

End Function

Private Function nBase64Digit(VALUE_IN As Integer) As Byte

Dim Digit64 As Byte, n As Integer

Debug.Assert VALUE_IN >= 0 And VALUE_IN <= 63

n = VALUE_IN

Select Case n

Case Is <= 25: Digit64 = Asc(”A”) + n

Case Is <= 51: Digit64 = Asc(”a”) + (n - 26)

Case Is <= 61: Digit64 = Asc(”0″) + (n - 52)

Case 62: Digit64 = Asc(”+”)

Case 63: Digit64 = Asc(”/”)

Case Else

Digit64 = “?”

Debug.Assert False

End Select

nBase64Digit = Digit64

End Function

Private Function nBase64Value(ONEBYTE_IN As String) As Integer

Dim n As Integer

Select Case ONEBYTE_IN

Case “A” To “Z”: n = Asc(ONEBYTE_IN) - Asc(”A”)

Case “a” To “z”: n = 26 + Asc(ONEBYTE_IN) - Asc(”a”)

Case “0″ To “9″: n = 52 + Asc(ONEBYTE_IN) - Asc(”0″)

Case “+”: n = 62

Case “/”: n = 63

Case “=”: n = 0

Case Else

n = 255

End Select

nBase64Value = n

End Function

Private Function sDecode4(BASE64TEXT_IN As String) As String

Dim nBits As Long

Dim s1 As String, s2 As String, s3 As String, s4 As String

Dim t1 As String, t2 As String, t3 As String

Dim n1 As Byte, n2 As Byte, n3 As Byte, n4 As Byte

If Len(BASE64TEXT_IN) <> 4 Or Not IsBase64(BASE64TEXT_IN) Then

Debug.Assert False

sDecode4 = “”

Exit Function

End If

s1 = Mid$(BASE64TEXT_IN, 1, 1)

s2 = Mid$(BASE64TEXT_IN, 2, 1)

s3 = Mid$(BASE64TEXT_IN, 3, 1)

s4 = Mid$(BASE64TEXT_IN, 4, 1)

n1 = nBase64Value(s1)

n2 = nBase64Value(s2)

n3 = nBase64Value(s3)

n4 = nBase64Value(s4)

If n1 = 255 Or n2 = 255 Or n3 = 255 Or n4 = 255 Then

sDecode4 = “”

Exit Function

End If

nBits = nBits Or n4

nBits = nBits Or (n3 * 64&)

nBits = nBits Or (n2 * 64& * 64&)

nBits = nBits Or (n1 * 64& * 64& * 64&)

t3 = Chr$(nBits And 255)

t2 = Chr$((nBits \ 256) And 255)

t1 = Chr$((nBits \ 256 \ 256))

sDecode4 = t1 & t2 & t3

End Function

Private Function sEncode3(THREEBYTES_IN As String) As String

Dim s1 As String, s2 As String, s3 As String

Dim n1 As Byte, n2 As Byte, n3 As Byte

Dim nBits As Long

Dim t1 As Byte, t2 As Byte, t3 As Byte, t4 As Byte

Debug.Assert Len(THREEBYTES_IN) = 3

s1 = Mid$(THREEBYTES_IN, 1, 1)

s2 = Mid$(THREEBYTES_IN, 2, 1)

s3 = Mid$(THREEBYTES_IN, 3, 1)

n1 = Asc(s1)

n2 = Asc(s2)

n3 = Asc(s3)

nBits = nBits Or n3

nBits = nBits Or (n2 * 256&)

nBits = nBits Or (n1 * 256& * 256&)

t4 = nBase64Digit(nBits And 63)

t3 = nBase64Digit((nBits \ 64) And 63)

t2 = nBase64Digit((nBits \ 64 \ 64) And 63)

t1 = nBase64Digit((nBits \ 64 \ 64 \ 64) And 63)

sEncode3 = Chr$(t1) & Chr$(t2) & Chr$(t3) & Chr$(t4)

End Function

Public Function IsBase64(TEXT_IN As String, Optional MSGBOX_IN As Boolean = False) As Boolean

Dim i As Long, sText As String

If TEXT_IN = “” Then

IsBase64 = False

Exit Function

End If

sText = sRemoveWhitespace(TEXT_IN)

For i = 1 To Len(sText)

Select Case Mid$(sText, i, 1)

Case “A” To “Z”, “a” To “z”, “0″ To “9″, “+”, “/”, vbCr, vbLf

Case “=”

If i = Len(sText) - 1 Then

If Mid$(sText, i + 1, 1) = “=” Then

End If

ElseIf i = Len(sText) Then

Else

If MSGBOX_IN Then MsgBox “Text Error: Equal Sign not at end of text”, , “TRIM END OF TEXT”

IsBase64 = False

Exit Function

End If

Case Else

If MSGBOX_IN Then MsgBox “Non-base64 character <” _

& Mid$(TEXT_IN, i, 1) & “> found in base64″ _

& ” text”, , “ILLEGAL BASE64 BYTE”

IsBase64 = False

Exit Function

End Select

Next i

IsBase64 = True

End Function

Private Function sRemoveWhitespace(TEXT_IN As String) As String

Dim sText As String

sText = TEXT_IN

sText = Replace(sText, vbCr, “”)

sText = Replace(sText, vbLf, “”)

sText = Replace(sText, vbTab, “”)

sText = Replace(sText, ” “, “”)

sRemoveWhitespace = sText

End Function

Winsock

Vamos criar o código para tratar os eventos do winsockEmail, no evento DataArrival vamos inserir este código:

Private Sub winsockEmail_DataArrival(ByVal bytesTotal As Long)

Dim strDadosRecebidos As String

Dim strStatusCodigo As String

Dim strEmailHTML As String

Dim strEmailMensagem As String

‘* Verifica se o winsock foi conectado
If Trim(winsockEmail.Tag) <> “” Then _

winsockEmail.GetData strDadosRecebidos

‘* Define o codigo do status
strStatusCodigo = Left(strDadosRecebidos, 3)

Select Case strStatusCodigo

‘* Caso tenha retornado um status valido
Case “250″, “220″, “354″, “221″, “334″, “235″:

‘* Caso nao tenha retornado um resultado valido
Case Else:

MsgBox “Erro: ” & strDadosRecebidos, vbCritical

‘* Define o status do winsock
winsockEmail.Tag = cntDesconectar

‘* Define o codigo do status
strStatusCodigo = Mid(strDadosRecebidos, 4)

End Select

Select Case winsockEmail.Tag

‘* Caso esteja conectando
Case cntConectando:

‘* Verifica se deve autenticar o smtp
If blnAutenicarSMTP = True Then

‘* Define o status para autenticar
winsockEmail.Tag = cntAutenticar

Else

‘* Define o status para conectado
winsockEmail.Tag = cntConectado

End If

‘* Envia o IP da maquina
winsockEmail.SendData “ehlo ” & winsockEmail.LocalIP & vbCrLf

‘* Caso esteja autenticando
Case cntAutenticar:

‘* Envia pedido de autenticacao
winsockEmail.SendData “auth login” & vbCrLf

‘* Define o status para autenticar o usuario
winsockEmail.Tag = cntAutenticarUsuario

‘* Caso esteja autenticando o usuario
Case cntAutenticarUsuario:

‘* Codifica o usuario do smtp e envia para o servidor SMTP
winsockEmail.SendData sBase64Encode(Trim(strUsuarioSMTP)) & vbCrLf

‘* Define o status para autenticar senha
winsockEmail.Tag = cntAutenticarSenha

‘* Caso esteja autenticando a senha
Case cntAutenticarSenha:

‘* Codifica a senha e envia o servidor SMTP
winsockEmail.SendData sBase64Encode(Trim(strSenhaSMTP)) & vbCrLf

‘* Define o status como conectado
winsockEmail.Tag = cntConectado

‘* Caso esteja conectado
Case cntConectado:

‘* Envia para o servidor SMTP o email do remetente
winsockEmail.SendData “mail from:<” & Trim(txtRemetente.Text) & “>” & vbCrLf

‘* Define o status como remetente
winsockEmail.Tag = cntRemetente

‘* Case esteja com o status remetente
Case cntRemetente:

‘* Envia para o servidor SMTP quem ira receber a mensagem
winsockEmail.SendData “rcpt to:<” & Trim(txtDestinatario.Text) & “>” & vbCrLf

‘* Define o status para quem ira receber a mensagem
winsockEmail.Tag = cntPara

‘* Caso esteja enviado quem ira receber a mensagem
Case cntPara:

‘* Enviar para o servidor SMTP o comando data
winsockEmail.SendData “data” & vbCrLf

‘* Define o status para enviar a mensagem
winsockEmail.Tag = cntMensagem

‘* Caso tenha que enviar a mensagem
Case cntMensagem:

‘* Monta o cabecalho do email
strEmailHTML = “subject:” & txtAssunto.Text & vbCrLf & _
“from:” & txtRemetente.Text & vbCrLf & _
“to:” & txtDestinatario.Text & vbCrLf & _
“MIME-Version: 1.0″ & vbCrLf & _
“Content-type: text/html; charset=iso-8859-1″ & vbCrLf

‘* Monta a mensagem
strEmailMensagem = “<body>” & vbCrLf & vbCrLf & Trim(txtMensagem.Text) & vbCrLf & vbCrLf & “</body>”

‘* Troca . entre quebra de linhas por ..
While InStr(strEmailMensagem, vbCrLf & “.” & vbCrLf) <> 0

strEmailMensagem = Replace(strEmailMensagem, vbCrLf & “.” & vbCrLf, vbCrLf & “..” & vbCrLf)

Wend

‘* Envia para o servidor SMTP o texto do email
winsockEmail.SendData strEmailHTML & strEmailMensagem & vbCrLf & “.” & vbCrLf

‘* Define o status para finalizar a conexao
winsockEmail.Tag = cntFinalizar

‘* Caso tenha que finalizar a conexao
Case cntFinalizar:

MsgBox “Mensagem enviada!”

‘* Envia para o servidor SMTP a saida
winsockEmail.SendData “quit” & vbCrLf

‘* Define o status para desconectar o winsock
winsockEmail.Tag = cntDesconectar

‘* Caso queira desconectar o winsock
Case cntDesconectar:

‘* Fecha o winsock
winsockEmail.Close

‘* Limpa o status do winsock
winsockEmail.Tag = “”

End Select

End Sub

No evento Connect, vamos inserir o seguinte código:

Private Sub winsockEmail_Connect()

‘* Define o status do winsock
winsockEmail.Tag = cntConectando

End Sub

Conectar e Enviar

Agora vamos criar o evento click do botão para enviar o email, insira o seguinte código:

Private Sub cmdEnviarEmail_Click()

‘* Pergunta ao usuario se quer autenticar no servidor smtp
If MsgBox(”Autenticar no servidor SMTP?”, vbYesNo, “Autenticação”) = vbYes Then

blnAutenicarSMTP = True

‘* Abre a caixa para o usuario digitar o usuario do smtp
strUsuarioSMTP = InputBox(”Digite o usuario do servidor smtp”)

‘* Abre a caixa para o usuario digitar a senha do smtp
strSenhaSMTP = InputBox(”Digite a senha do servidor smtp”)

Else

‘* Definir e limpar variaveis para nao autenticar
blnAutenicarSMTP = False

strUsuarioSMTP = “”

strSenhaSMTP = “”

End If

‘* Conectar ao servidor SMTP via winsock, no ip apontado por txtSMTP e a porta 25
winsockEmail.Connect txtSmtp.Text, 25

End Sub

Testando o exemplo

Apos preencher os dados, clique no botão de enviar mensagem. Uma MsgBox vai aparecer perguntado se quer você quer autenticar no servidor SMTP. Caso queira, digite o usuario e a senha do seu servidor SMPT.

O winsockEmail conecta-se ao servidor SMTP apontado por txtSmtp.Text, na porta 25:

‘* Conectar ao servidor SMTP via Winsock, no ip apontado por txtSMTP e a porta 25
winsockEmail.Connect txtSmtp.Text, 25

As respostas do servidor SMTP são recebidas no evento DataArrival. Onde definimos na string strStatusCodigo o código de identificação da mensagem, e verificamos se o codigo retornado é valido:

‘* Define o codigo do status
strStatusCodigo = Left(strDadosRecebidos, 3)

Select Case strStatusCodigo

‘* Caso tenha retornado um status valido
Case “250″, “220″, “354″, “221″, “334″, “235″:

‘* Caso nao tenha retornado um resultado valido
Case Else:

MsgBox “Erro: ” & strDadosRecebidos, vbCritical

‘* Define o status do winsock
winsockEmail.Tag = cntDesconectar

‘* Define o codigo do status
strStatusCodigo = Mid(strDadosRecebidos, 4)

End Select

Agora verificamos o status do winsock, caso ele esteja conectando verificamos se devemos executar a autenticação no servidor SMTP, ou conectar sem autenticar:

Select Case winsockEmail.Tag

‘* Caso esteja conectando
Case cntConectando:

‘* Verifica se deve autenticar o smtp
If blnAutenicarSMTP = True Then

‘* Define o status para autenticar
winsockEmail.Tag = cntAutenticar

Else

‘* Define o status para conectado
winsockEmail.Tag = cntConectado

End If

‘* Envia o IP da maquina
winsockEmail.SendData “ehlo ” & winsockEmail.LocalIP & vbCrLf

Codificamos e enviamos o usuario e a senha apontados por “strUsuarioSMTP” e “strSenhaSMTP”, respectivamente:

‘* Caso esteja autenticando
Case cntAutenticar:

‘* Envia pedido de autenticacao
winsockEmail.SendData “auth login” & vbCrLf

‘* Define o status para autenticar o usuario
winsockEmail.Tag = cntAutenticarUsuario

‘* Caso esteja autenticando o usuario
Case cntAutenticarUsuario:

‘* Codifica o usuario do smtp e envia para o servidor SMTP
winsockEmail.SendData sBase64Encode(Trim(strUsuarioSMTP)) & vbCrLf

‘* Define o status para autenticar senha
winsockEmail.Tag = cntAutenticarSenha

‘* Caso esteja autenticando a senha
Case cntAutenticarSenha:

‘* Codifica a senha e envia o servidor SMTP
winsockEmail.SendData sBase64Encode(Trim(strSenhaSMTP)) & vbCrLf

‘* Define o status como conectado
winsockEmail.Tag = cntConectado

Após confirmar a conexão envia os dados do remetente e destinatários. Após envia o comando data, para começar a enviar a mensagem:

‘* Caso esteja conectado
Case cntConectado:

‘* Envia para o servidor SMTP o email do remetente
winsockEmail.SendData “mail from:<” & Trim(txtRemetente.Text) & “>” & vbCrLf

‘* Define o status como remetente
winsockEmail.Tag = cntRemetente

‘* Case esteja com o status remetente
Case cntRemetente:

‘* Envia para o servidor SMTP quem ira receber a mensagem
winsockEmail.SendData “rcpt to:<” & Trim(txtDestinatario.Text) & “>” & vbCrLf

‘* Define o status para quem ira receber a mensagem
winsockEmail.Tag = cntPara

‘* Caso esteja enviado quem ira receber a mensagem
Case cntPara:

‘* Enviar para o servidor SMTP o comando data
winsockEmail.SendData “data” & vbCrLf

‘* Define o status para enviar a mensagem
winsockEmail.Tag = cntMensagem

Monta a estrutura do html que será enviado. Contendo um cabeçalho com alguns dados do email como assunto, remetente, destinatário. E a mensagem em html. Após, envia a mensagem pelo winsockEmail:

‘* Caso tenha que enviar a mensagem
Case cntMensagem:

‘* Monta o cabecalho do email
strEmailHTML = “subject:” & txtAssunto.Text & vbCrLf & _
“from:” & txtRemetente.Text & vbCrLf & _
“to:” & txtDestinatario.Text & vbCrLf & _
“MIME-Version: 1.0″ & vbCrLf & _
“Content-type: text/html; charset=iso-8859-1″ & vbCrLf

‘* Monta a mensagem
strEmailMensagem = “<body>” & vbCrLf & vbCrLf & Trim(txtMensagem.Text) & vbCrLf & vbCrLf & “</body>”

‘* Troca . entre quebra de linhas por ..
While InStr(strEmailMensagem, vbCrLf & “.” & vbCrLf) <> 0

strEmailMensagem = Replace(strEmailMensagem, vbCrLf & “.” & vbCrLf, vbCrLf & “..” & vbCrLf)

Wend

‘* Envia para o servidor SMTP o texto do email
winsockEmail.SendData strEmailHTML & strEmailMensagem & vbCrLf & “.” & vbCrLf

‘* Define o status para finalizar a conexao
winsockEmail.Tag = cntFinalizar

Caso tenha finalizado, mostra uma mensagem de concluído e fecha winsockEmail:

‘* Caso tenha que finalizar a conexao
Case cntFinalizar:

MsgBox “Mensagem enviada!”

‘* Envia para o servidor SMTP a saida
winsockEmail.SendData “quit” & vbCrLf

‘* Define o status para desconectar o winsock
winsockEmail.Tag = cntDesconectar

‘* Caso queira desconectar o winsock
Case cntDesconectar:

‘* Fecha o winsock
winsockEmail.Close

‘* Limpa o status do winsock
winsockEmail.Tag = “”

Download do exemplo

O link para download do exemplo:

http://www.fdweb.com.br/downloads/enviaremailvisualbasic.zip

Confira ofertas de: DVD, filmes, celular, notebook, livros, jogos, Wii, PS3, MP4

a

Enviar email no Visual Basic por Winsock

Para quem não sabe, string de conexão (ou connection string) é um código utilizado pelo sistema para se conectar ao banco de dados. Claro que pra facilitar as coisas, cada banco de dados tem a sua própria string. Então, para quem trabalha com SQL Server, Access, mySQL, PostgreSQL, é difícil lembrar de cabeça todas as conexões, até porque geralmente se usa apenas uma vez dentro do sistema.

Então, por esse motivo, resolvi colocar aqui as principais strings que eu tenho utilizado:

SQL Server: “Provider=sqloledb;Data Source=190.190.200.100,1433;Network Library=DBMSSOCN;Initial Catalog=pubs;User ID=sa;Password=asdasd;
Access: “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb”;
Access (com senha): “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;Jet OLEDB:Database Password=MyDbPassword;”
mySQL: “DRIVER={MySQL ODBC 3.51 Driver}; SERVER=myServer; PORT=3306; DATABASE=myDatabase; USER=myUsername; PASSWORD=myPassword; OPTION=3;”

Existe um site contendo praticamente todas as strings de conexão existentes. Já fiz muitas consultas à ele e já me salvou de poucas e boas. O site é www.connectionstrings.com .

Agora não tem mais desculpa para não conseguir conectar ao banco de dados!

Confira ofertas de: DVD, filmes, celular, notebook, livros, jogos, Wii, PS3, MP4

a

String de conexão para banco de dados

Neste artigo, vamos mostrar casos simples de uso de multithread na sua aplicação. Como execução de uma simples thread, interaçao entre threads e sincronização de threads.

O que é multithread?

Multithread é a mesma coisa que comparar o DOS com o Windows, no DOS só era possível executar uma tarefa de cada vez e não abrir várias tarefas ao mesmo tempo, como o Windows nos permite. Com multithread é criada uma ilusão de que todas as tarefas estão sendo executadas ao mesmo tempo, mas na verdade estão sendo executadas em partes, aos poucos cada processo executa um trecho do código. Assim não sobrecarrega o sistema, podendo manter várias tarefas em execução ao mesmo tempo.

Criar e executar uma Thread

1. Crie um novo projeto C# Windows Application, e o renomeie-o para MultiThreadExemplo.
2. Crie um formulário e o nomeie para clsfrmPrincipal.
3. No formulário crie um TextBox chamado textBoxEvento, altere a propriedade Multiline para True e a propriedade ScrollsBar para Vertical.
4. Insira dois ButtonBox no formulário, o primeiro com o nome butExecutarSemThread e defina a propriedade Text para “Executar sem Thread”, e o segundo para butExecutarThread e defina a propriedade Text para “Executar Thread”.

Criado a interface do exemplo, vamos para a parte de códigos. Crie o evento FormClosing no formulário principal:

private void clsfrmPrincipal_FormClosing(object sender, FormClosingEventArgs e)
{

//* Fecha a aplicação
System.Environment.Exit(System.Environment.ExitCode);

}

Crie o método fncMostraMensagem para mostrar uma MenssageBox para o usuário:

private void fncMostraMensagem(string strMensagem)
{

//* Mostra um mensagem box
MessageBox.Show(strMensagem);

return;

}

Crie o evento Click do botão butExecutarSemThread, e insira o código abaixo:

private void butExecutarSemThread_Click(object sender, EventArgs e)
{

//* Limpa a textbox
textBoxEvento.Text = “”;

for (long lngQuantiadeMensagens = 0; lngQuantiadeMensagens < 5; lngQuantiadeMensagens++)
{

//* Executa o metodo
fncMostraMensagem(lngQuantiadeMensagens.ToString());

//* Insere o indice no textbox
textBoxEvento.Text += lngQuantiadeMensagens.ToString() + Environment.NewLine;

}

return;

}

Crie o evento Click do botão butExecutarThread, e insira o código abaixo:

private void butExecutarThread_Click(object sender, EventArgs e)
{

System.Threading.Thread[] threadMensagem;

//* Limpa a textbox
textBoxEvento.Text = “”;

for (long lngQuantiadeMensagens = 0; lngQuantiadeMensagens < 5; lngQuantiadeMensagens++)
{

//* Incrementa a quantidade de itens do array
threadMensagem = new System.Threading.Thread[lngQuantiadeMensagens + 1];

//* Cria uma nova ThreadStart com o metodo fncMensagem
System.Threading.ThreadStart threadstartMensagem = delegate { fncMostraMensagem(lngQuantiadeMensagens.ToString()); };

//* Instancia a Thread
threadMensagem[lngQuantiadeMensagens] = new System.Threading.Thread(threadstartMensagem);

//* Inicia a Thread
threadMensagem[lngQuantiadeMensagens].Start();

//* Insere o indice no textbox
textBoxEvento.Text += lngQuantiadeMensagens.ToString() + Environment.NewLine;

}

return;

}

Neste simples exemplo vamos executar o método fncMostraMensagem que mostra uma MessageBox com o texto passado por parâmetro. E insere o índice atual no textBoxEvento.

Ao clicar no botão butExecutarSemThread, o programa passa por um laço mostrando para o usuário uma mensagem com o índice do laço em uma MessageBox e insere o índice atual no textBoxEvento. Mas enquanto o usuário não clicar no botão OK da mensagem, a próxima não aparecera.

Ao clicar no botão butExecutarThread, executamos praticamente a mesma função, mas ao invés de chamar o método fncMostraMensagem no mesmo processo que nossa aplicação, executamos ele em separado, sendo assim, ele continua o laço, mesmo com a mensagem na tela, porque cada mensagem está num processo independente uma da outra.

Interação entre Threads

Continuando o nosso exemplo, no mesmo projeto crie mais dois ButtonBox, o primeiro com o nome butNaoInteragirThreads e defina a propriedade Text para “Não Interagir Threads”, e o segundo para butInteragirThreads e defina a propriedade Text para “Interagir Threads”.

Crie um delegate para a classe clsfrmPrincipal:

private delegate void delegateInsereTexto(string Texto);

Crie o método fncInsereTextoThread que executa um laço, e insere o índice no textBoxEvento:

private void fncInsereTextoThread(bool blnInsereDelegate)
{

for (long lngCountMensagem = 0; lngCountMensagem < 10; lngCountMensagem++)
{
//* Verifica se deve inserir o delegate
if (blnInsereDelegate == true)
{

//* Insere o texto na textbox
this.Invoke(new delegateInsereTexto(fncInsereTextoEvento), lngCountMensagem.ToString() + Environment.NewLine);

}
else
{

textBoxEvento.Text += lngCountMensagem.ToString() + Environment.NewLine;

}

}

return;

}

Insira o método fncInsereTextoEvento que insere o texto passado como parâmetro no textBoxEvento, que será usado pelo delegate que criamos anteriormente:

private void fncInsereTextoEvento(string strTexto)
{

//* Insere o texto na textbox
textBoxEvento.Text += strTexto;

}

Crie o envento Click do botão butNaoInteragirThreads, e insira o código abaixo:

private void butNaoInteragirThreads_Click(object sender, EventArgs e)
{

System.Threading.Thread threadMensagem;

System.Threading.ThreadStart threadstartMensagem;

//* Limpa a textbox
textBoxEvento.Text = “”;

//* Cria uma nova ThreadStart com o metodo fncInsereMensagemTexto não sincronizado
threadstartMensagem = delegate { fncInsereTextoThread(false); };

//* Instancia a Thread
threadMensagem = new System.Threading.Thread(threadstartMensagem);

//* Inicia a Thread
threadMensagem.Start();

}

Crie o evento Click do botão butInteragirThreads, e insira o código abaixo:

private void butInteragirThreads_Click(object sender, EventArgs e)
{

System.Threading.Thread threadMensagem;

System.Threading.ThreadStart threadstartMensagem;

//* Limpa a textbox
textBoxEvento.Text = “”;

//* Cria uma nova ThreadStart com o metodo fncInsereMensagemTexto não sincronizado
threadstartMensagem = delegate { fncInsereTextoThread(true); };

//* Instancia a Thread
threadMensagem = new System.Threading.Thread(threadstartMensagem);

//* Inicia a Thread
threadMensagem.Start();

}

Nesta segunda parte do exemplo, vamos ver como interagir threads. Criamos uma thread para chamar o método fncInsereTextoThread que executa um laço, que insere o índice no textBoxEvento. Vamos executar este método de duas maneiras, uma sem delegate e a outra com delegate.

Ao clicar no botão butNaoInteragirThreads, criamos uma thread que chama o método fncInsereTextoThread definido pelo parâmetro, para não usar delegate. Sendo assim ocorrerá um erro, como o textBoxEvento foi instanciado em outra thread ao tentar inserir o texto no textBoxEvento, a thread não consegue modifica-lo.

Para isto precisamos de um delegate, que execute este trabalho, como mostra o butInteragirThreads. Ao clicar no butInteragirThreads, é passado como parâmetro para o método fncInsereTextoThread para usar o delegate, sendo assim, quando ele alterar o textBoxEvento, o delegate executa o método fncInsereTextoEvento no processo onde se encontra o objeto.

Sincronização entre Threads

Finalizando este artigo, vou mostrar como sincronizar duas threads.

No mesmo projeto crie mais dois ButtonBox, o primeiro com o nome butNaoSincronizarThread e defina a propriedade Text para “Não Sincronizar Thread”, e o segundo para butSincronizarThread e defina a propriedade Text para “Sincronizar Thread”.

Crie uma variável boolean na classe clsfrmPrincipal:

private bool blnAguardaThread = false;

Crie o método fncInsereMensagemTextoSincronizado que executa um laço, nele é chamado o delegate para inserir no textBoxEvento (como mostrado no exemplo anterior) o índice no textBoxEvento:

private void fncInsereMensagemTextoSincronizado(long lngIndex, bool blnSincronizar)
{

for (long lngCountMensagem = 0; lngCountMensagem < 10; lngCountMensagem++)
{
//* Bloqueia o bloco atual pela thread
lock (this)
{

//* Verifica se deve executar a sincronizaçao entre thread
if (blnSincronizar == true)
{

System.Threading.Monitor.Pulse(this);

blnAguardaThread = true;

}

//* Insere o texto na textbox
this.Invoke(new delegateInsereTexto(fncInsereTextoEvento), “Thread ” + lngIndex.ToString() + “: ” + lngCountMensagem.ToString() + Environment.NewLine);

//* Verifica se deve executar a sincronizaçao entre thread
//* Verifica se deve aguardar outra thread ser executada
if (blnSincronizar == true && blnAguardaThread == true)
{

blnAguardaThread = false;

//* Aguarda a outra thread terminar
System.Threading.Monitor.Wait(this);

}

}

}

return;

}

Crie o evento Click do botão butNaoSincronizarThread, e insira o código abaixo:

private void butNaoSincronizarThread_Click(object sender, EventArgs e)
{

System.Threading.Thread[] arrthreadMensagem;

System.Threading.ThreadStart[] arrthreadstartMensagem;

//* Limpa a textbox
textBoxEvento.Text = “”;

//* Redimensiona o array
arrthreadMensagem = new System.Threading.Thread[2];
arrthreadstartMensagem = new System.Threading.ThreadStart[2];

//* Cria uma nova ThreadStart com o metodo fncInsereMensagemTexto não sincronizado
arrthreadstartMensagem[0] = delegate { fncInsereMensagemTextoSincronizado(0,false); };

//* Instancia a Thread
arrthreadMensagem[0] = new System.Threading.Thread(arrthreadstartMensagem[0]);

//* Inicia a Thread
arrthreadMensagem[0].Start();

//* Cria uma nova ThreadStart com o metodo fncInsereMensagemTexto não sincronizado
arrthreadstartMensagem[1] = delegate { fncInsereMensagemTextoSincronizado(1, false); };

//* Instancia a Thread
arrthreadMensagem[1] = new System.Threading.Thread(arrthreadstartMensagem[1]);

//* Inicia a Thread
arrthreadMensagem[1].Start();

return;

}

Crie o evento Click do botão butSincronizarThread, e insira o código abaixo:

private void butSincronizarThread_Click(object sender, EventArgs e)
{

System.Threading.Thread[] arrthreadMensagem;

System.Threading.ThreadStart[] arrthreadstartMensagem;

//* Limpa a textbox
textBoxEvento.Text = “”;

//* Redimensiona o array
arrthreadMensagem = new System.Threading.Thread[2];
arrthreadstartMensagem = new System.Threading.ThreadStart[2];

//* Cria uma nova ThreadStart com o metodo fncInsereMensagemTexto sicronizado
arrthreadstartMensagem[0] = delegate { fncInsereMensagemTextoSincronizado(0, true); };

//* Instancia a Thread
arrthreadMensagem[0] = new System.Threading.Thread(arrthreadstartMensagem[0]);

//* Cria uma nova ThreadStart com o metodo fncInsereMensagemTexto sincronizado
arrthreadstartMensagem[1] = delegate { fncInsereMensagemTextoSincronizado(1, true); };

//* Instancia a Thread
arrthreadMensagem[1] = new System.Threading.Thread(arrthreadstartMensagem[1]);

//* Inicia a Thread
arrthreadMensagem[0].Start();

//* Inicia a Thread
arrthreadMensagem[1].Start();

return;

}

E finalizando o artigo, vamos ver como criamos uma sincronização entre threads.

Ao clicar no botão butNaoSincronizarThread, criamos um array de threads, e redimensionamos ele para 2 itens. Cada item executa o método fncInsereMensagemTextoSincronizado, passando como parâmetro a index do item, e um valor boolean para não sincronizar as threads. Ao executar o método fncInsereMensagemTextoSincronizado executamos um laço onde inserimos no textBoxEvento a index da thread e o índice do laço apontado por lngCountMensagem. Como não sincronizamos as threads, os itens no textBoxEvento aparassem embaralhados não respeitando uma seqüência, de qual thread vai inserir.

Ao clicar no botão butSincronizarThread, executamos quase a mesma função do botão butNaoSincronizarThread com a diferença que, enquanto uma thread está sendo executada, esperamos ela terminar, e então executamos a outra, sendo assim, mantendo uma sincronização entre elas. Para isto usamos o método System.Threading.Monitor.Wait para entrar na fila das thread a serem executadas, e System.Threading.Monitor.Pulse para informar a fila que o objeto esta desbloqueado, e assim poder executar a próxima thread que está aguardando.

Download do Exemplo

E por ultimo, mas não menos importante, o link para download do exemplo: http://www.fdweb.com.br/downloads/csharpmultithreadexemplo.zip

Confira ofertas de: DVD, filmes, celular, notebook, livros, jogos, Wii, PS3, MP4

a

Trabalhando com multithread no C#

De cara admito que não é o melhor curso já feito, mas pela simplicidade e principalmente pelo fato de ser totalmente em português e gratuito, o curso de PHP já vale o download.

Falando em download, faça o download do curso de PHP em português no link abaixo:
http://rapidshare.com/files/34095879/curso_php.rar

Confira ofertas de: DVD, filmes, celular, notebook, livros, jogos, Wii, PS3, MP4

a

Curso gratuito de PHP em Português