Exportar GridView para Excel Delphi ASP.NET

Olá pessoal!

Após muita consulta no Google não encontrei nenhum exemplo que funcionasse perfeitamente no Delphi para exportar os dados de uma Grid para o Excel, então adaptei alguns em VB, outros em C# e hoje de manhã finalmente o negócio funcionou. Agora estou aqui para compartilhar com vocês, segue o código fonte da função para exportar:

procedure Texportarexcel.Button1_Click(sender: TObject; e: System.EventArgs);
var
  sw: System.IO.StringWriter;
  htw: HtmlTextWriter;
  sb: StringBuilder;
  form: HtmlForm;
  pagina: System.Web.UI.Page;
begin
  sb := stringbuilder.Create;
  sw := StringWriter.create(sb);
  htw := HtmlTextWriter.create(sw);
  pagina := System.Web.UI.Page.Create();
  form := HtmlForm.create();
  gvDados.EnableViewState := false;
  pagina.EnableEventValidation := False;
  pagina.DesignerInitialize();
  pagina.Controls.Add(form);
  form.Controls.Add(gvDados);
  pagina.RenderControl(htw);
  Response.Clear();
  Response.ClearContent();
  Response.Buffer := True;
  Response.ContentType := 'application/vnd.ms-excel';
  Response.AddHeader('Content-Disposition', 'attachment;filename=data.xls');
  Response.Charset := 'UTF-8';
  Response.ContentEncoding := Encoding.Default;
  Response.Write(sb.ToString());
  Response.&End;
end;

Nesta página que fiz para testar tenho um Button e uma GridView (gvDados), o código acima está no evento OnClick do Button1, antes de exportar a grid é óbvio que ela precisa ter dados, mas isto já não é o objetivo deste post, espero que o código seja útil para alguém, abraços!

Obs.: Não esqueçam de comentar e visitem o Blog do Bolívar!

Resultados no rodapé do GridView

Boenas pessoal, retornando depois de um baita tempo sem postar aki...

Esta semana precisei exibir resultados no rodapé do GridView, aki no blog tem um post sobre o DataGrid, porém é um pouco diferente.

Vamos calcular a média dos valores de uma coluna, sem precisar ir ao banco para tal. No evento DataBound do Grid View:

var
  soma:Integer
begin
  for I := 0 to GridView1.Rows.Count - 1 do
  begin
  Soma := Soma+Int32.Parse(GridView1.Rows[I].Cells[1].Text);
  end;
end;

Esse loop irá percorrer as linhas e somará os valores da coluna 1 do grid. Após isso basta calcular a média, para isso crie uma variável 'media' do tipo Double:

media := Soma/I;

Pronto, agora basta mostrar o resultado no rodapé:

GridView1.FooterRow.Cells[0].Text := 'Média dos Valores:';
GridView1.FooterRow.Cells[0].HorizontalAlign := HorizontalAlign.Right;
GridView1.FooterRow.Cells[1].Text := media.ToString('n');
GridView1.FooterRow.Cells[1].HorizontalAlign := HorizontalAlign.Center;

Na coluna 0 estamos mostrando o texto e na 1 a média dos valores já formatada.

Um abraço.

PS: Não esqueçam de visitar o Blog do Signori !

Enviando e-mail no DELPHI for ASP.NET utilizando GMail

Olá pessoal, neste pequeno tutorial pretendo mostrar um exemplo simples de envio de e-mail em ASP.NET utilizando os serviços do Gmail e DELPHI 2007 for .NET, dica do Edinei.

Primeiramente vamos criar uma nova aplicação, File -> New -> ASP.NET Web Application.



Feito isso, adicione três TextBox, um Button e uma Label, renomeie a propriedade ID das textboxes para: txbdestinatario, txbassunto e txbmensagem respectivamente, a Label para lblretorno e o Button para btnenviar, aumente o tamanho das textboxes de acordo com sua preferência e mude a propriedade textMode da txbmensagem para “Multiline”. Apague o que tiver na propriedade Text da lblretorno e mude a propriedade Text do btnenviar para “Enviar E-mail”. O formulário deve ficar parecido com o da imagem abaixo.



O txtdestinatario vai receber o endereço de e-mail que se deseja enviar uma mensagem, txbassunto o assunto e txbmensagem a mensagem, a lblretorno irá mostrar se o e-mail foi enviado com sucesso ou se ocorreu algum erro durante o envio e o btnenviar chamará a função de envio de e-mail.

Para usar as funções de envio de e-mail do .NET, é necessário adicionar as seguintes bibliotecas na uses.

Uses
  System.Net.Mail, System.Net.Configuration, System.Text, System.Net;

Feito isso, de um duplo clique no btnenviar e implemente a função que vai enviar o e-mail através do serviço de envio de e-mail da Google, o gmail, veja função abaixo.

procedure TDefault.btnEnviar_Click(sender: TObject; e: System.EventArgs);
var
  EmailRemetente: string;
  NomeRemetente: string;
  Mail: MailMessage;
  Client: SmtpClient;
begin
  Mail := MailMessage.create;
  Client := SmtpClient.create;
  EmailRemetente := 'seuEmail@gmail.com'; // O e-mail do remetente
  NomeRemetente := 'Seu Nome';  // O nome do remetente
  try
    Mail.&To.Add(txbDestinatario.text);  // Destinatário
    Mail.From := MailAddress.create(EmailRemetente, NomeRemetente, System.Text.Encoding.UTF8);
    Mail.Subject := txbassunto.text;  // Assunto do E-mail
    mail.SubjectEncoding := System.Text.Encoding.UTF8;
    mail.Body := txbmensagem.text; // Mensagem do e-mail
    mail.BodyEncoding := System.Text.Encoding.UTF8;
    mail.IsBodyHtml := true;
    mail.Priority := MailPriority.High; // Prioridade do E-Mail
    client.Credentials := NetworkCredential.create(EmailRemetente, 'AquiSuaSenha'); // usuário e senha do Gmail
    client.Port := 587; // Esta porta é a utilizada pelo Gmail para envio
    client.Host := 'smtp.gmail.com'; // Definindo o provedor que irá disparar o e-mail
    client.EnableSsl := true; // Gmail trabalha com Server Secured Layer
    try
      client.Send(mail);
      lblretorno.text := 'E-mail enviado com sucesso!';
    except on erro:exception do
      lblretorno.text := 'Erro ao tentar enviar e-mail. '+erro.message;
    end;
  finally
    client.free;
    mail.free;
  end;
end;

Depois de implementada a função é só compilar e executar (CTRL+SCHIFT+F9) para testar o envio de e-mails.

Até.

Referências: http://www.devmedia.com.br/articles/viewcomp.asp?comp=12520

Erros no DELPHI

Este errinho é chato, se alguém souber resolver me avisa.

Performance em ASP.NET: Desabilitar ViewState na Aplicação Inteira

Olá pessoal!

O ViewState é uma string armazenada em um campo oculto no HTML gerado para a sua página. Ele guarda os dados sobre a página e seus componentes, concatenado com um hash gerado no servidor para evitar ataques onde alguma pessoa maliciosa altere o conteúdo dessa string e faça um postback para o seu servidor. Essa string está em Base64, e é simples decodificar, como por exemplo usando o ViewState Decoder.

Cada componente colocado em uma página ASP.Net salva o seu estado no ViewState, para que cada vez que acontecer um postback esse componente possa voltar a ser exibido exatamente como estava antes, sem precisar fazer nova inicialização ou trazer os dados novamente do banco de dados, e assim por diante. Isso é prático, mas pode deixar o ViewState incrivelmente grande e aumentar bastante o tamanho da sua página e o tempo de carregamento por consequência.

Em páginas onde é desnecessário essa característica é recomendável desabilitar o ViewState ou então manter ele ativo apenas nos componentes em que é necessário, isso trará um aumento de performance na sua aplicação pois o navegador não precisará ficar enviando e recebendo essa string toda vez que é feita alguma requisição.

Por padrão o ViewState vem como True nos elementos, mas isso pode ser alterado facilmente mudando a propriedade EnableViewState para False. Agora se a sua aplicação já está pronta ou com a maior parte desenvolvida, você pode desativar o ViewState na aplicação inteira inserindo no arquivo web.config ou no machine.config o seguinte código:

Por enquanto é isso, para saber mais sobre o ViewState recomendo a leitura das referências, são dois excelentes artigos.

Referências
DotNetJohn || TechTips

Artigo Nº 20: Concatenando resultados diretamente na SQL

Hoje vai aí um post sobre SQL, simples mas muito útil: concatenação de resultados em um select.

Acredito que quase todos os programadores em algum momento, precisou concatenar várias colunas de uma função select, agrupando em uma única coluna. Para isso, quem não conhece ou conhecia esse tipo de concatenação, resolve agrupando no próprio código de programação. Um exemplo que posso escrever é: para programadores .net que trabalha com POO(Programação Orientadas a Objetos) ou em camadas, resolve esse problema criando uma function que vai retorna em um formato de DateTable, dentro dessa function monta a SQL, depois manda executa a função para retornar os dados. Daí depois de passar pelo banco, lê cada resultado e manualmente cria-se uma nova coluna onde o valor vai ser a concatenação entre os duas ou mais colunas do resultado: Ex: Coluna 03 = ColunaSQL1 +'/'+ ColunaSQL2;

Bom, aí vai os exemplos de como proceder em diversos bancos de dados:

FIREBIRD
SELECT (COLUNA1 ||' - '|| COLUNA2) as RESULTADO from TABELA

SQL SERVER
SELECT (CAST(COLUNA1 AS VARCHAR)+' - '+ CAST(COLUNA2 AS VARCHAR)) AS RESULTADO FROM TABEL

POSTGREE
SELECT (COLUNA1 ||' - '|| COLUNA2) AS RESULTADO FROM TABELA

MYSQL
SELECT CONCAT(COLUNA1,' - ',COLUNA2) AS RESULTADO FROM TABELA

Esses são os exemplos de concatenação. Pode-se concatena quantas colunas que necessita, sempre seguindo as sintaxe.

Caso sua aplicação está voltada para conexão independente de banco, tome cuidado ao utilizar essas funções, crie uma forma de parametrizações que quando trocar de banco chame a sintaxe de acordo com o banco.

Obrigado. Abraços.

Artigo Nº 19: Customizando ValidatorCalloutExtender do Ajax Control Toolkit

No artigo Nº 16, foi mostrado como aplicar o componente ValidatorCalloutExtender . Agora vamos mostrar como estilizar esse componente com estilos css. Crie uma nova pasta chamada "estilos", dentro da pasta do projeto da aplicação. Depois abra o bloco de notas ou notepad++ e salve esse arquivo dentro desta pasta com o nome de "estilos.css", daí copie o código abaixo e cole no arquivo. OBS: caso você já tem essa pasta e arquivo, que é usado no Artigo Nº 08, somente adicione o código abaixo.

.validar div, .validar td  /*Formatação do visual da popup(EX: borda e cor de fundo)*/
{border:solid 1px red; background-color:white;}
.validar .ajax__validatorcallout_callout_cell /*Manter padrão*/
{width:80px; height:100%; text-align:right; vertical-align:top; border:none; background-color:transparent; padding:0px;}
.validar .ajax__validatorcallout_callout_table /* Manter padrão */
{height:100%; border:none;background-color:transparent;padding:0px;}
.validar .ajax__validatorcallout_callout_arrow_cell/* Manter padrão */
{padding:8px 0px 0px 0px; text-align:right; vertical-align:top; font-size:1px; border:none; background-color:transparent;}
.validar .ajax__validatorcallout_callout_arrow_cell .ajax__validatorcallout_innerdiv /* Manter padrão */
{font-size:1px; position:relative; left:1px; border-bottom:none; border-right:none; border-left:none; width:15px; background-color:transparent; padding:0px;}
.validar .ajax__validatorcallout_callout_arrow_cell .ajax__validatorcallout_innerdiv div  /* Manter padrão */
{height:1px; overflow:hidden; border-top:none; border-bottom:none; border-right:none; padding:0px; margin-left:auto;}
.validar .ajax__validatorcallout_error_message_cell /*Formatação do texto dentro da popup */
{font-family:Verdana; font-size:10px; border-right:none; border-left:none; width:100%; color:red; font-weight:bold; text-align:left;}
.validar .ajax__validatorcallout_icon_cell /* Manter padrão */
{width:20px; padding:5px; border-right:none;}
.validar .ajax__validatorcallout_close_button_cell/* Manter padrão */
{vertical-align:top; padding:0px; text-align:right; border-left:none;}
.validar .ajax__validatorcallout_close_button_cell .ajax__validatorcallout_innerdiv /* Manter padrão */
{border:none; text-align:center; width:16px; height:16px; padding:2px; cursor:pointer;}

Depois de salvar esse estilo, vá para o .aspx da sua página e dentro da tag HEAD, coloque o código sequinte logo abaixo da tag TITLE. Esse é o código responsável por buscar os estilos e aplicar na sua página, caso já tenha, ignore-o.

< link rel="stylesheet" href="./estilos/estilos.css" type="text/css"/>

Feito isso, volte para a página, verifique se a propriedade TargetControlID do componente ValidatorCallout está relacionada com o componente de validação. Se está, selecione esse componente, RegularExpressionValidator, e na janela Object Inspector procure as propriedades Extenders, figura 01. Mas para essas propriedades aparecerem, os dois componentes devem estar interligados.
Agora altere as seguintes propriedades:

CloseImageURL: coloque o caminho de onde o componente buscará a imagem para fechar a popup(se não colocar nada, ficará a imagem padrão);
CssClass: digitar o nome do estilo criado para sua formatação(EX: validar);
WarningIconImageURL: caminho da imagem que é exibida na frente do texto da popup.
Width: Tamanho da popup(em caso da mensagem ser muito grande)


Figura 01:


Para resolver possíveis problemas futuros com esse componente, baixe um arquivo nesse endereço http://blogs.msdn.com/mattgi/archive/2007/01/23/asp-net-ajax-validators.aspx , baixe-o e descompacte-o. Nessa pasta descompactada possui uma dll chamada “Validattors.ddl”. Copie e cole dentro da pasta Bin do seu projeto. Depois no Delphi, adicione nas referências da aplicação, Add Reference, buscando da pasta Bin. Na Web.Config, adicione o código da listagem 2, dentro da tag "pages" que está dentro da tag "system.web" .
Listagem 2: TagMapping

Veja o resultado na figura 2.

Figura 02:



Abraço e até a próxima.

Artigo Nº 18: Usando WebParts em C#

Opa, estou de volta ae para um artigo usando Web Parts. Bom, para quem usa iGoogle é a tecnologia Drag and Drop (arrasta daqui e solta ali), bem útil para simplificar o visual, também é possivel minimizar e fechar uma caixinha. Neste artigo estarei mostrando simplesmente como começar uma aplicação com Web Parts, interação com o banco de dados somente em um artigo futuro. Primeiramente deve-se adicionar o componente WebPartManager que é o componente que gerencia o sistema.

Em seguida vamos adicionar uma tabela com duas linhas e duas colunas na qual irão ficar os componentes WebPartZone, é dentro destas zonas que ficará tudo que você quer "mover", aqui iremos simplesmente adicionar componentes aleatoriamente, mas o que se costuma fazer é se adicionar uma User Control onde fica todas as funções desejadas e componentes mais organizadamente. Após adicionar uma WebPartZone em cada célula da tabela vamos adicionar algo dentro de cada uma, simplesmente algo como TextBox, Button, Label, o que você desejar só para ver o componente em ação. No final das contas deverá ficar mais ou menos como na imagem abaixo.


Bom, eu fiz assim Botões, TextBox e Label. Se fosse compilar agora sem problemas mas não iria acontecer nada sobre arrastar e largar em outro lugar. Para isto basta adicionar uma única linha de código no evento Page_Load.
WebPartManager1.DisplayMode = WebPartManager.DesignDisplayMode;

Este código esta em C# o que não muda quase nada para pascal, só se adiciona 2 pontos antes do igual ':='. Agora se você compilar você verá que é possível arrastar e largar o conteúdo das WebPartZone, mas somente é possível largar dentro das outras WebPartZone. Então esta logo abaixo uma imagem dele em funcionamento.











No próximo artigo estarei mostrando como administrar cada uma das "caixinhas" para que se estas forem fechadas seja possível se abrir as mesmas novamente.

Abração e até.

Artigo Nº 17: Usando AutoCompleteExtender do Ajax Control Toolkit

Opa.... Hoje um post de como se utiliza o AutoComplete, este recurso é usado agora pelo google para mostrar perguntas freqüentes. É nada mais nada menos que mostrar os possíveis complementos para uma palavra que esteja sendo digitada em um textbox.

Para começo adicione os componentes ajax básicos (UpdatePanel e ScriptManager) e em seguida um textbox e o componente AutoCompleteExtender, feito isso vá para o aspx para adicionar uma coisa no componente AutoCompleteExtender, é:

• servicemethod="AutoCompleta"

Entre aspas duplas é a função que estará no .pas portanto vamos lá declara-la.

[WebMethod]
class function AutoCompleta(prefixText: string; count: Integer): TStringArray; static;

...isso mesmo tem sim um [WebMethod] ali junto na declaração dela, e se tentar compilar vai dar erro, então adicione System.Web.Services nas suas uses. Outra coisa necessária a se fazer é logo depois do Type fazer esta declaração:

TStringArray = array of string;

Pois o delphi não aceita funções que retornem array of string, então se da uma enrolada nele. Agora vamos para o código da nossa função.

PESSOA := TuClassPessoa.create; SetLength(Result, Count); for I := 1 to count do
begin
Result[I - 1] := PESSOA.AutoComplete(prefixText,I);
end;

Bom, aqui foi o básico, tenho uma classe que retorna uma string com uma sql que faz o filtro por like, isso vocês mesmos podem fazer fácil fácil, e no final retorno uma array of string com o result (lembra pra enganar ele criamos um tipo chamado TStringArray. A variavel prefixText vem do componente AutoComplete que é o texto digitado no textbox. Bom, esta feito e agora vamos ao teste.


Como podem ver comecei a digitar meu nome e já me trouxe vários Mauricio, e podem ver que cada uma dessas enormes linhas é uma string que ele retornou da minha função. Axo que era isso por hoje.

Abração e Até

Delphi.net Nova Versão

Pois é.... Depois de um looongo tempo sem postar nada - compromissos com o trabalho - volto para mostrar para quem ainda não sabe da nova versão do delphi.net, o Delphi Prism, agora este não rodara mais na IDE do RAD Studio, agora ele será um plug-in do Visual Studio.

Algumas das novidades em relação ao Delphi Prism...

• Não mais a VCL.NET
• .NET Framework 3.5
• Não necessita uma nova licença do Visual Studio
• Produz executáveis compatíveis com o framework .NET Mono, para Linux e Mac
• Ainda não se pode desenvolver aplicativos .NET Compact Framework uma vez que a Microsoft fez o CF só para suas linguagens.
• A linguagem traz recursos avançados como nullable types e “future” types, generics, sequences e query expressions (LINQ)
• Funcionará com as tecnologias WPF, Silverlight, ASP.NET and LINQ
• Não precisa instalar os outros pacotes do Visual Studio.
  

Para quem quiser ver já ele em uso ta ai uma PREVIEW em inglês por Jim McKeeth.


Abração e até.