tag:blogger.com,1999:blog-47429835846657581052024-03-13T12:56:52.813-07:00Delphi com Torrada - Tutoriais e afins dedicados à tecnologia DelphiBlog com tutoriais diversos, porém com enfoque na tecnologia Delphi.Renato F. O. Silvahttp://www.blogger.com/profile/09231773046250346507noreply@blogger.comBlogger10125tag:blogger.com,1999:blog-4742983584665758105.post-13847490568219991432019-02-05T15:28:00.001-08:002019-02-05T15:28:57.501-08:00Alterar nome de Tabela no Firebird<span style="background-color: white; color: #355880; font-family: "georgia" , serif; font-size: 13px; text-align: justify;">Um simples comando "alter table" não é capaz de alterar o nome de uma tabela no banco de dados Firebird, porém com essas duas queries abaixo é possível realizar essa alteração. No exemplo estaremos trocando o nome da tabela "PRODUTOS1" para apenas "PRODUTOS":</span><br />
<span style="background-color: white; color: #355880; font-family: "georgia" , serif; font-size: 13px; line-height: 20px; text-align: justify;"><br /></span><span style="background-color: white; color: #355880; font-family: "georgia" , serif; font-size: 13px; line-height: 20px; text-align: justify;">1ª query:</span><span style="background-color: white; color: #355880; font-family: "georgia" , serif; font-size: 13px; line-height: 20px; text-align: justify;"><br /></span><br />
<span style="background-color: white; color: #355880; font-family: "georgia" , serif; font-size: 13px; line-height: 20px; text-align: justify;"><br /></span>
<br />
<pre style="background: rgb(240, 240, 240); border: 1px dashed rgb(204, 204, 204); height: auto; line-height: 20px; overflow: auto; padding: 0px; width: 405.891px;"><code style="font-size: 12px; overflow-wrap: normal;">UPDATE RDB$RELATIONS
SET RDB$RELATION_NAME='PRODUTOS1' where
RDB$RELATION_NAME='PRODUTOS';</code></pre>
<span style="color: #333333; font-family: "georgia" , serif;"><span style="font-size: 13px;"><br /></span></span>
<div style="background-color: white; display: inline !important;">
<span style="color: #355880; font-family: "georgia" , serif; font-size: 13px; line-height: 20px; text-align: justify;">2ª query:</span></div>
<div>
<span style="font-family: "arial";"><span style="font-size: 12px;"><br /></span></span>
<pre style="background: rgb(240, 240, 240); border: 1px dashed rgb(204, 204, 204); height: auto; line-height: 20px; overflow: auto; padding: 0px; width: 405.891px;"><pre style="background-attachment: initial; background-clip: initial; background-image: initial; background-origin: initial; background-position: initial; background-repeat: initial; background-size: initial; border: 1px dashed rgb(204, 204, 204); height: auto; line-height: 20px; overflow: auto; padding: 0px; width: 405.891px;"><code style="font-size: 12px; overflow-wrap: normal;">UPDATE RDB$RELATION_FIELDS
SET RDB$RELATION_NAME='PRODUTOS1' where
RDB$RELATION_NAME='PRODUTOS' and
RDB$SYSTEM_FLAG=0;</code></pre>
</pre>
<div style="background-color: white;">
<br style="color: #333333; font-family: Georgia, serif; font-size: 13px;" /></div>
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; color: #384042; font-family: verdana; font-size: 13px; margin: 0px; padding: 0px; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span en-us="" lang="EN-US" mso-ansi-language:="" style="border-width: 0px; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #38761d; font-family: "courier new";"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; color: #333333; font-family: Georgia, serif; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><span style="color: #38761d;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: "Courier New"; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , serif; line-height: 20px; white-space: pre;"><b>Conclusões</b></span></span></span></span></span></span></span></b></span></b></span></span></span></span></b></div>
<div style="background-color: white; color: #333333; font-family: Georgia, serif; font-size: 13px; line-height: 20px;">
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: "Courier New"; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"></b></b></b></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; color: #384042; font-family: verdana; font-size: 13px; line-height: 20px;">
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; color: #333333; font-family: Georgia, serif; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: "Courier New"; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , serif; line-height: 20px; white-space: pre;"><b><br /></b></span></span></span></span></span></span></b></b></b></div>
<div style="background-color: white; color: #333333; font-family: Georgia, serif; font-size: 13px; line-height: 20px;">
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: "Courier New"; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"></b></b></b></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; color: #384042; font-family: verdana; font-size: 13px; line-height: 20px;">
<span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; color: #333333; font-family: "georgia" , serif; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: "courier new"; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , serif; line-height: 20px; white-space: pre;">Notamos neste artigo a facilidade em se alterar o nome de uma tabela no banco de dados Firebird</span></span></span></span></span></span></span></span></span><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; color: #333333; font-family: "georgia" , serif; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: "courier new"; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , serif; line-height: 20px; white-space: pre;">.</span></span></span></span></span></span></span></span></span><br />
<span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; color: #333333; font-family: "georgia" , serif; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: "courier new"; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , serif; line-height: 20px; white-space: pre;">Forte abraço e até o próximo tutorial.</span></span></span></span></span></span></span></span></span></div>
<div style="background-color: white; color: #333333; font-family: Georgia, serif; font-size: 13px; line-height: 20px;">
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: "Courier New"; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"></b></b></b></div>
Renato F. O. Silvahttp://www.blogger.com/profile/09231773046250346507noreply@blogger.com0tag:blogger.com,1999:blog-4742983584665758105.post-16482794507782881092016-03-23T11:50:00.001-07:002016-05-09T15:56:59.394-07:00Gerar Planilha Excel a partir um Relatório do Delphi 7<span style="background-color: white; color: #355880; font-family: "georgia" , serif; font-size: 13px; line-height: 20px; text-align: justify;">Essa semana na empresa me foi solicitado que gerasse algumas Planilhas Excel a partir de certos relatórios para alguns clientes. Portanto disponibilizo aqui a solução mais simples que eu implementei para essa questão.</span><br />
<span style="background-color: white; color: #355880; font-family: "georgia" , serif; font-size: 13px; line-height: 20px; text-align: justify;"><br /></span>
<span style="background-color: white; color: #355880; font-family: "georgia" , serif; font-size: 13px; line-height: 20px; text-align: justify;">Para o exemplo, iremos gerar uma planilha Excel a partir de uma tabela de Produtos fictícia. Primeiramente criei uma conexão para a tabela via <b>dbExpress </b>(1 <b>TSQLQuery </b>da paleta "dbExpress", 1 <b>TDataSetProvider </b>da paleta "Data Access" e 1 <b>TClientDataSet </b>da paleta "Data Access"). Não esqueça de fazer a ligação entre os 3 componentes através das propriedades <b>DataSet </b>e <b>ProviderName</b>. Além disso criei um botão para Gerar a planilha Excel:</span><br />
<br />
<div style="text-align: center;">
<img src="http://i.imgur.com/SwblzTL.jpg" /></div>
<br />
<span style="background-color: white; color: #355880; font-family: "georgia" , serif; font-size: 13px; line-height: 20px; text-align: justify;">Após adicionar os objetos à tela, criaremos uma <b>procedure</b> responsável por gerar de fato o Excel. Na seção <b>public </b>do <b>form</b>, declare o cabeçalho da <b>procedure </b>(que no caso chamei de <b>ExportaExcel</b>):</span><br />
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; color: #333333; font-family: Georgia, serif; font-size: 13px; line-height: 20.8px; text-align: justify;">
<br />
<pre style="background: rgb(240, 240, 240); border: 1px dashed rgb(204, 204, 204); font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 646.469px;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><code style="color: black; word-wrap: normal;">public
{ Public declarations }
procedure ExportaExcel(DataSet: TDataSet; Arq: string);</code></span></span></span></pre>
</div>
<span style="background-color: white; color: #355880; font-family: "georgia" , serif; font-size: 13px; line-height: 20px; text-align: justify;"><br /></span>
<span style="background-color: white; color: #355880; font-family: "georgia" , serif; font-size: 13px; line-height: 20px; text-align: justify;">Após criar o cabeçalho, digite simultaneamente SHIFT + CTRL + C para criar automaticamente a <b>procedure </b>no fim do <b>form</b>. Após isso, digite o conteúdo da mesma:</span><br />
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; color: #333333; font-size: 13px; line-height: 20.8px; text-align: justify;">
<br />
<pre style="background-attachment: initial; background-clip: initial; background-color: #f0f0f0; background-image: initial; background-origin: initial; background-position: initial; background-repeat: initial; background-size: initial; border-image-outset: initial; border-image-repeat: initial; border-image-slice: initial; border-image-source: initial; border-image-width: initial; border: 1px dashed rgb(204, 204, 204); font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 646.469px;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><code style="color: black; word-wrap: normal;">procedure TFRelatorioProdutos.ExportaExcel(DataSet: TDataSet;
Arq: string);
var
ExcApp: OleVariant;
i,l: integer;
begin
ExcApp := CreateOleObject('Excel.Application');
ExcApp.Visible := True;
ExcApp.WorkBooks.Add; QryProd.First;
l := 1; //Adicionar titulos
for i := 0 to QryProd.Fields.Count - 1 do
begin
ExcApp.WorkBooks[1].Sheets[1].Cells[l,i + 1] :=
QryProd.Fields[i].DisplayName;
end;
l := 2;
QryProd.First;
while not QryProd.EOF do
begin
for i := 0 to QryProd.Fields.Count - 1 do
ExcApp.WorkBooks[1].Sheets[1].Cells[l,i + 1] :=
QryProd.Fields[i].DisplayText;
QryProd.Next; l := l + 1; end;
ExcApp.WorkBooks[1].SaveAs(Arq);
end;</code></span></span></span></pre>
</div>
<span style="background-color: white; color: #355880; font-family: "georgia" , serif; font-size: 13px; line-height: 20px; text-align: justify;"><br /></span>
<span style="background-color: white; color: #355880; font-family: "georgia" , serif; font-size: 13px; line-height: 20px; text-align: justify;">Após criarmos nossa <b>procedure </b>responsável por gerar de fato o Excel, dê um duplo clique no botão "Gerar Excel" e digite os seguintes comandos para abrir a query e logo em seguida chamar nossa <b>procedure </b>:</span><br />
<span style="background-color: white; color: #355880; font-family: "georgia" , serif; font-size: 13px; line-height: 20px; text-align: justify;"><br /></span>
<br />
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="text-align: justify;">
<pre style="background: rgb(240, 240, 240); border: 1px dashed rgb(204, 204, 204); font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 646.469px;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><code style="color: black; word-wrap: normal;"> QryProd.Close;
ExQryProd.SQL.Clear;
ExQryProd.SQL.Add(' select CODIGO, DESCRICAO, UNIDADE, ' +
' QUANTIDADE, PRECO_VAREJO ' +
' from PRODUTOS ');
<span style="font-family: "courier new";">ExQryProd</span><span style="font-family: "courier new";">.Prepared := True;</span>
QryProd.Open;
try
ExportaExcel(QryProd, '');
Except;
//
end;</code></span></span></span></pre>
<br /></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="font-size: x-small;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">Agora basta rodar sua aplicação e fazer o teste prático para criar sua planilha Excel</span></span></span></span></span><br />
<span style="font-size: x-small;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">a partir dos dados contidos na tabela fictícia <b>Produtos</b></span></span></span></span><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">.</span></span><br />
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; font-family: Georgia, serif; font-size: 13px;">
<span style="border: 0px; font-size: xx-small; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><br /></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; color: #333333; font-family: Georgia, serif; font-size: 13px; line-height: 20.8px; text-align: left;">
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "georgia" , "times new roman" , serif; margin: 0px; padding: 0px; vertical-align: top;"></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; font-family: Georgia, serif;">
<span style="border-image-outset: initial; border-image-repeat: initial; border-image-slice: initial; border-image-source: initial; border-image-width: initial; border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-image-outset: initial; border-image-repeat: initial; border-image-slice: initial; border-image-source: initial; border-image-width: initial; border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-image-outset: initial; border-image-repeat: initial; border-image-slice: initial; border-image-source: initial; border-image-width: initial; border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-image-outset: initial; border-image-repeat: initial; border-image-slice: initial; border-image-source: initial; border-image-width: initial; border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><b><span style="font-size: x-small;">Conclusões</span></b></span></span></span></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; font-family: Georgia, serif; font-size: 13px;">
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><b><br /></b></span></span></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; font-family: Georgia, serif; font-size: 13px;">
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">Notamos neste artigo a facilidade de se gerar planilhas Excel a</span></span></span></span></span></span><br />
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">partir de querys no Delphi 7. Forte abraço e até o próximo tutorial.</span></span></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; font-family: Georgia, serif; font-size: 13px;">
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><br /></span></span></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; font-family: Georgia, serif; font-size: 13px;">
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">--</span></span></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; font-family: Georgia, serif; font-size: 13px;">
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><img src="https://blu170.mail.live.com/Handlers/ImageProxy.mvc?bicild=&canary=QWsAO3oa4Qw49bfGdcbNb0BmEWJ5qKt5DO1jzhyyqDo%3d0&url=http%3a%2f%2fs27.postimg.org%2fnq3yyctoz%2fAssinatura_Renato.png" /></span></span></span></span></span></div>
</div>
Renato F. O. Silvahttp://www.blogger.com/profile/09231773046250346507noreply@blogger.com0tag:blogger.com,1999:blog-4742983584665758105.post-20838089105672206682014-09-01T14:44:00.001-07:002016-03-23T11:50:43.886-07:00(PARTE 2) Gerar PDF e enviá-lo por E-mail no Delphi 7: Enviar automaticamente por E-mail um PDF gerado pelo Delphi 7<br />
<div style="background-color: white; text-align: justify;">
<span style="font-family: "georgia" , "times new roman" , serif;"><span class="Apple-style-span" style="color: #355880; line-height: 20px;">Na parte 1 deste tutorial (<a href="http://delphicomtorrada.blogspot.com.br/2012/04/gerar-pdf-no-delphi-7-partir-do-quick.html" target="_blank">(PARTE 1) Gerar PDF e enviá-lo por E-mail no Delphi 7: Gerar PDF a partir do Quick Report utilizando ExportQR</a>), mostrei como gerar um documento PDF no Delphi 7 a partir de um </span><span class="Apple-style-span" style="color: #355880; line-height: 20px;">relatório Quick Report, utilizando o componente </span><span style="background-color: transparent; line-height: 20px;"><span style="color: #355880;">ExportQR</span></span><span style="color: #355880; line-height: 20px;">.</span></span><br />
<span style="font-family: "georgia" , "times new roman" , serif;"><span style="color: #355880; line-height: 20px;"><br /></span></span>
<span style="font-family: "georgia" , "times new roman" , serif;"><span style="color: #355880; line-height: 20px;">Nesta parte 2, mostro como enviar automaticamente por e-mail um PDF gerado pelo Delphi.</span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border: 0px; font-size: xx-small; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><br /></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; font-size: xx-small; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><b>Enviando por e-mail automaticamente um PDF gerado a partir do Quick Report</b></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><b><br /></b></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="text-align: justify;">
<span style="border: 0px; color: #384042; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">Antes de iniciarmos o tutorial, é necessário que você baixe as DLLs</span></span></span></span><br />
<span style="border: 0px; color: #384042; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">abaixo e as coloque na pasta "</span></span></span></span><span style="color: #355880; font-family: "georgia" , "times new roman" , serif;"><span style="line-height: 20px; white-space: pre;">C:\Windows\System32"</span></span><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">:</span><br />
<span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><br /></span>
<a href="https://mega.nz/#!OYlESIpI!733-_HRlPPS0qsYWI1o_BGNaG1N9x2jBPGLKW7a3Nr4" target="_blank">Download Dlls E-mail Delphi</a><br />
<div style="color: #384042; line-height: 21px;">
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><br /></span></span></span></span></div>
<div style="color: #384042; line-height: 21px;">
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">O tutorial se baseia numa continuação da 1ª parte, a qual termina</span></span></span></span><br />
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">com um botão no qual o PDF é gerado em um local pré-determinado</span></span></span></span><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">.</span><br />
<span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">Antes de qualquer coisa, é necessário incluir na cláusula "Uses" a</span><br />
<span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">palavra <b>IdMessage</b>. Após esses comandos da 1ª parte, é necessário</span><br />
<span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">criar no cabeçalho do evento Click do botão as seguintes variáveis:</span></div>
</div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="text-align: justify;">
<span style="color: #355880;"><span style="font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><b><br /></b></span></span>
<br />
<pre style="background: rgb(240, 240, 240); border: 1px dashed rgb(204, 204, 204); font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 646.46875px;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><code style="color: black; word-wrap: normal;">var
cc, assunto, sDiretorioArquivo : String;
IdMessage1 : TIdMessage;
IdSMTP1 : TIdSMTP;
mmMensagem : TMemo;</code></span></span></span></pre>
<br /></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">Agora volte ao fim do clique do <b>BitBtn </b>novamente e digite o seguinte:</span></span></span></span><br />
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><br /></span></span></span></span>
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">Note que neste momento a variável <b>sDiretorioArquivo </b>recebe como texto</span></span></span></span><br />
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">o diretório que foi digitado na última linha da 1ª parte do Tutorial. Uma</span></span></span></span><br />
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">dica seria configurar esse diretório automaticamente, sendo assim o</span></span></span></span><br />
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">usuário criaria o PDF e enviaria ao destinatário automaticamente:</span></span></span></span><br />
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><br /></span></span></span></span>
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"></span></span></span><br />
<pre style="background: rgb(240, 240, 240); border: 1px dashed rgb(204, 204, 204); color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 646.46875px;"><span style="font-family: "courier new";"> sDiretorioArquivo</span> := <span style="font-family: "courier new";">Edit1.Text;</span></pre>
</div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><br /></span></span></span></span>
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">Em seguida, preencha as configurações do cabeçalho, corpo e anexos</span></span></span></span><br />
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">do e-mail:</span></span></span></span><br />
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><br /></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<pre style="background: rgb(240, 240, 240); border: 1px dashed rgb(204, 204, 204); color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 646.46875px;"></pre>
<pre style="background: rgb(240, 240, 240); border: 1px dashed rgb(204, 204, 204); color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 646.46875px;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><code style="color: black; word-wrap: normal;"><span style="font-family: "courier new";"> IdMessage1 := TIdMessage.Create(nil);</span>
IdSMTP1 := <span style="font-family: "courier new";">TIdSMTP.Create(nil);</span>
<b>//e-mail do Remetente</b>
IdMessage1.From.Address := 'teste@mail.com';
<b>//e-mail do Destinatário</b>
IdMessage1.Recipients.EMailAddresses := 'abc@mail.com';
IdMessage1.Body.Clear;
IdMessage1.Body.Add('Sr(a) Fulano(a).');
IdMessage1.Body.Add('PDF anexado referente à (...)');
IdMessage1.Body.Add('');
IdMessage1.Body.Add('Pela atenção, obrigado.');
IdMessage1.Subject := 'Empresa - Doc: (...) '; <b>//Assunto</b>
IdMessage1.Body.Add('Corpo da mensagem');
<b> //Anexando o PDF criado na parte 1 deste tutorial</b>
TIdAttachment.Create(<span style="font-family: "courier new";">IdMessage1</span><span style="font-family: "courier new";">.MessageParts,</span></code></span></span></span><span style="font-family: "courier new";">
</span><span style="font-family: "courier new";">TFileName</span><span style="font-family: "courier new";">(</span><span style="font-family: "courier new";">sDiretorioArquivo </span><span style="font-family: "courier new";">+ '.pdf'));</span></pre>
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"></span></span></span></span><br />
<div 0cm="" 0pt="" class="Cdigo" margin:="">
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , "times new roman" , serif;">E por fim configure o servidor de e-mails, que no caso utilizamos como</span></span></span></span></span></span></span></span><br />
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , "times new roman" , serif;">exemplo o Yahoo:</span></span></span></span></span></span></span></span><br />
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , "times new roman" , serif;"><br /></span></span></span></span></span></span></span></span>
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"></span></span></span><br />
<pre style="background: rgb(240, 240, 240); border: 1px dashed rgb(204, 204, 204); color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 646.46875px;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><code style="color: black; word-wrap: normal;"><b> //Configuração do </b><b style="font-family: 'Courier New';">IdSMTP</b><b>
</b><b> //Configurações remente</b>
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Host := 'smtp.mail.yahoo.com.br'; <b>//Host</b>
IdSMTP1.Username := 'remetente@mail.com'; <b>//Remetente</b>
IdSMTP1.Password := '123'; <b>//Senha do Remetente</b>
IdSMTP1.Port := '25'; <b>//Porta padrão do Yahoo</b>
IdSMTP1.Connect; <b>//Estabelece a conexão</b>
IdSMTP1.Authenticate; <b>//Realiza a autenticação</b>
try
IdSMTP1.Send(IdMessage1); <b>//Envia a mensagem</b>
<span style="font-family: "courier new";">Form1</span><span style="font-family: "courier new";">.Refresh;</span>
<span style="font-family: "courier new";">Form1</span><span style="font-family: "courier new";">.Refresh;</span>
ShowMessage('Envio realizado com sucesso');
except
on e:exception do
begin
Application.MessageBox(Pchar(e.Message),</code></span></span></span><span style="font-family: "courier new";">
</span><span style="font-family: "courier new";">Pchar('Erro.'), mb_ok+mb_iconerror);</span><span style="font-family: "courier new";">
</span><span style="font-family: "courier new";">
end;
end;
IdSMTP1.Disconnect;</span></pre>
</div>
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">
Agora basta rodar a aplicação, informar dados válidos do servidor de</span></span></span></span><br />
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">e-mail do Remetente e usar a criatividade para solucionar o problema</span></span></span></span><br />
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">de sua empresa.</span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border: 0px; font-size: xx-small; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><br /></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="">
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "georgia" , "times new roman" , serif; margin: 0px; padding: 0px; vertical-align: top;"></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; font-size: x-small; line-height: 20px; white-space: pre;"><b>Conclusões</b></span></span></span></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><b><br /></b></span></span></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">Notamos neste artigo a facilidade de envio de e-mails com anexos em</span></span></span></span></span></span><br />
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">PDF gerados pelo Delphi 7. Forte abraço e até o próximo tutorial.</span></span></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><br /></span></span></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; font-family: Georgia, serif; font-size: 13px;">
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: 'courier new'; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: georgia, 'times new roman', serif; line-height: 20px; white-space: pre;">--</span></span></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; font-family: Georgia, serif; font-size: 13px;">
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: 'courier new'; margin: 0px; padding: 0px; vertical-align: top;"><img src="https://blu170.mail.live.com/Handlers/ImageProxy.mvc?bicild=&canary=QWsAO3oa4Qw49bfGdcbNb0BmEWJ5qKt5DO1jzhyyqDo%3d0&url=http%3a%2f%2fs27.postimg.org%2fnq3yyctoz%2fAssinatura_Renato.png" /></span></span></span></span></span></div>
</div>
Renato F. O. Silvahttp://www.blogger.com/profile/09231773046250346507noreply@blogger.com7tag:blogger.com,1999:blog-4742983584665758105.post-11078849023548939852013-11-14T06:57:00.002-08:002016-03-23T11:51:21.531-07:00Exibir Quantidade de Dias em uma Subtração de Datas em Delphi 7<span style="background-color: white; color: #355880; font-family: "georgia" , serif; font-size: 13px; line-height: 20px; text-align: justify;">Uma dica para os desenvolvedores, que assim como eu, também já tiveram essa dificuldade pela frente. Num módulo do sistema da minha empresa, necessitava exibir para um dono de concessionária quantos dias determinada Ordem de Serviço de um cliente estava aberta no sistema.</span><br />
<span style="background-color: white; color: #355880; font-family: "georgia" , serif; font-size: 13px; line-height: 20px; text-align: justify;"><br /></span>
<span style="background-color: white; color: #355880; font-family: "georgia" , serif; font-size: 13px; line-height: 20px; text-align: justify;">A solução para isto é a seguinte:</span><br />
<span style="background-color: white; color: #355880; font-family: "georgia" , serif; font-size: 13px; line-height: 20px; text-align: justify;"><br /></span>
<br />
<ul>
<li><span style="color: #355880; font-family: "georgia" , serif; font-size: x-small;"><span style="line-height: 20px;">criar uma variável do tipo Extended:</span></span></li>
</ul>
<pre style="background-image: URL(http://2.bp.blogspot.com/_z5ltvMQPaa8/SjJXr_U2YBI/AAAAAAAAAAM/46OqEP32CJ8/s320/codebg.gif); background: #f0f0f0; border: 1px dashed #CCCCCC; color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;"> var
diasAtraso : Extended;
</code></pre>
<br />
<ul>
<li><span style="color: #355880; font-family: "georgia" , serif; font-size: x-small;"><span style="line-height: 20px;">alimentar esta variável com a subtração de datas que interessa ao negócio:</span></span></li>
</ul>
<pre style="background-image: URL(http://2.bp.blogspot.com/_z5ltvMQPaa8/SjJXr_U2YBI/AAAAAAAAAAM/46OqEP32CJ8/s320/codebg.gif); background: #f0f0f0; border: 1px dashed #CCCCCC; color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;"> diasAtraso := Date - QryPadraoDATA.AsDateTIME; </code></pre>
<br />
<ul>
<li><span style="color: #355880; font-family: "georgia" , serif; font-size: x-small;"><span style="line-height: 20px;">finalmente exibe-se a quantidade de dias entre as 2 datas:</span></span></li>
</ul>
<pre style="background-image: URL(http://2.bp.blogspot.com/_z5ltvMQPaa8/SjJXr_U2YBI/AAAAAAAAAAM/46OqEP32CJ8/s320/codebg.gif); background: #f0f0f0; border: 1px dashed #CCCCCC; color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;"> ShowMessage(FloatToStr(Abs(diasAtraso)) + ' dias');
</code></pre>
<span style="color: #355880; font-family: "georgia" , serif; font-size: x-small;"><span style="line-height: 20px;"><br /></span></span>
<br />
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; font-family: verdana; font-size: 13px; line-height: 20px;">
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span en-us="" lang="EN-US" mso-ansi-language:="" style="border-width: 0px; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #38761d; font-family: "courier new";"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; color: #333333; font-family: Georgia, serif; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><span style="color: #38761d;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: 'Courier New'; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , serif; line-height: 20px; white-space: pre;"><b>Conclusões</b></span></span></span></span></span></span></span></b></span></b></span></span></span></span></b></div>
<div style="color: #333333; font-family: Georgia, serif; font-size: 13px; line-height: 20px;">
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: 'Courier New'; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"></b></b></b></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; font-family: verdana; font-size: 13px; line-height: 20px;">
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; color: #333333; font-family: Georgia, serif; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: 'Courier New'; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , serif; line-height: 20px; white-space: pre;"><b><br /></b></span></span></span></span></span></span></b></b></b></div>
<div style="color: #333333; font-family: Georgia, serif; font-size: 13px; line-height: 20px;">
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: 'Courier New'; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"></b></b></b></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; font-family: verdana; font-size: 13px; line-height: 20px;">
<span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; color: #333333; font-family: "georgia" , serif; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: "courier new"; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , serif; line-height: 20px; white-space: pre;">Notamos neste artigo a facilidade em calcular a quantidade de dias</span></span></span></span></span></span></span></span></span><br />
<span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; color: #333333; font-family: "georgia" , serif; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: "courier new"; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , serif; line-height: 20px; white-space: pre;">entre 2 datas e exibir o resultado, utilizando a ferramente Delphi 7.</span></span></span></span></span></span></span></span></span><br />
<span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; color: #333333; font-family: "georgia" , serif; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: "courier new"; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , serif; line-height: 20px; white-space: pre;">Forte abraço e até o próximo tutorial.</span></span></span></span></span></span></span></span></span></div>
<div style="color: #333333; font-family: Georgia, serif; font-size: 13px; line-height: 20px;">
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: 'Courier New'; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"></b></b></b></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; font-family: Georgia, serif; font-size: 13px; line-height: 20px;">
<br />
<div class="separator" style="clear: both; line-height: 21px; text-align: center;">
</div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; font-family: Georgia, serif; line-height: 21px; text-align: justify;">
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">--</span></span></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; font-family: Georgia, serif; line-height: 21px; text-align: justify;">
<span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><img src="https://blu170.mail.live.com/Handlers/ImageProxy.mvc?bicild=&canary=QWsAO3oa4Qw49bfGdcbNb0BmEWJ5qKt5DO1jzhyyqDo%3d0&url=http%3a%2f%2fs27.postimg.org%2fnq3yyctoz%2fAssinatura_Renato.png" /></span></span></span></span></span></div>
</div>
<ul>
</ul>
Renato F. O. Silvahttp://www.blogger.com/profile/09231773046250346507noreply@blogger.com0tag:blogger.com,1999:blog-4742983584665758105.post-28259009877198928802013-02-01T07:05:00.002-08:002016-03-23T11:53:49.534-07:00Firebird: Comparando campos DateTime sem ignorar as Horas através de SQLTimeStamp no Delphi 7<span style="background-color: white; color: #355880; font-family: "georgia" , serif; line-height: 20px; text-align: justify;"><br /></span>
<span style="background-color: white; color: #355880; font-family: "georgia" , serif; line-height: 20px; text-align: justify;">Uma dica para os desenvolvedores, que assim como eu, também já tiveram essa grande dificuldade pela frente.</span><br />
<span style="background-color: white; color: #355880; font-family: "georgia" , serif; line-height: 20px; text-align: justify;"><br /></span>
<span style="background-color: white; color: #355880; font-family: "georgia" , serif; line-height: 20px; text-align: justify;">Eu possuo uma coluna do tipo Date no banco de dados e a aplicação alimenta-a com Data e Hora. O problema surge quando preciso num relatório filtrar os lançamentos num determinado período, e ao gerar no relatório vários lançamentos são ignorados, visto que a data deles tem horas diversas.</span><br />
<span style="background-color: white; color: #355880; font-family: "georgia" , serif; line-height: 20px; text-align: justify;"><br /></span>
<br />
<div style="text-align: justify;">
<span style="color: #355880; font-family: "georgia" , serif;"><span style="line-height: 20px;">A solução para isso, utilizando componentes DBExpress, para comparar um intervalo entre duas datas foi a seguinte:</span></span></div>
<div style="text-align: justify;">
<span style="color: #355880; font-family: "georgia" , serif;"><span style="line-height: 20px;"><br /></span></span></div>
<div style="text-align: justify;">
</div>
<ul>
<li><span style="color: #355880; font-family: "georgia" , serif;"><span style="line-height: 20px;">2 componentes TDateTimePicker da paleta Win32 (DTPckInicial e DTPckFinal);</span></span></li>
<li><span style="color: #355880; font-family: "georgia" , serif;"><span style="line-height: 20px;">adicionar na propriedade <b>Time </b>do </span></span><span style="color: #355880; font-family: "georgia" , serif; line-height: 20px;"><b>DTPckInicial</b>: </span><span style="color: #355880; font-family: "georgia" , serif;"><span style="line-height: 20px;">00:00:01</span></span></li>
<li><span style="color: #355880; font-family: "georgia" , serif;"><span style="line-height: 20px;">adicionar na propriedade <b>Time </b>do </span></span><span style="color: #355880; font-family: "georgia" , serif; line-height: 20px;"><b>DTPckFinal</b>: </span><span style="color: #355880; font-family: "georgia" , serif;"><span style="line-height: 20px;">23:59:59</span></span></li>
<li><span style="color: #355880; font-family: "georgia" , serif;"><span style="line-height: 20px;">na bloco <b>USES </b>adicione <b>SqltimSt;</b></span></span></li>
<li><span style="color: #355880; font-family: "georgia" , serif;"><span style="line-height: 20px;">utilizar as 3 linhas do código abaixo ao filtrar os lançamentos compreendidos nas datas selecionadas nos dois componentes </span></span><span style="color: #355880; font-family: "georgia" , serif; line-height: 20px;">TDateTimePicker:</span><div style="color: #333333; line-height: 20px;">
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: Georgia, serif; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: 'Courier New'; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"></b></b></b></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; font-family: verdana; line-height: 20px;">
<br /></div>
</li>
</ul>
<div>
<div 0cm="" 0pt="" align="left" class="Cdigo" margin:="">
<div 0cm="" 0pt="" align="left" class="Cdigo" margin:="">
<pre style="background-image: URL(http://2.bp.blogspot.com/_z5ltvMQPaa8/SjJXr_U2YBI/AAAAAAAAAAM/46OqEP32CJ8/s320/codebg.gif); background: #f0f0f0; border: 1px dashed #CCCCCC; color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Query.SQL.Add(' AND ( CAMPO_TIPO_DATA BETWEEN :DATA_INI AND :DATA_FIM )');
Query.ParamByName('DATA_INI').AsSQLTimeStamp := DateTimeToSQLTimeStamp(DTPckInicial.DateTime);
Query.ParamByName('DATA_FIM').AsSQLTimeStamp := DateTimeToSQLTimeStamp(DTPckFinal.DateTime);
</code></pre>
<br /></div>
<div 0cm="" 0pt="" align="left" class="Cdigo" margin:="">
<div style="background-color: white; color: #333333; line-height: 20px;">
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; font-family: verdana; font-weight: normal;">
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"></span><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span en-us="" lang="EN-US" mso-ansi-language:="" style="border-width: 0px; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #38761d; font-family: "courier new";"></span><span style="color: #38761d; font-family: "courier new";"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; color: #333333; font-family: Georgia, serif; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><span style="color: #38761d;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: 'Courier New'; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , serif; line-height: 20px; white-space: pre;"><b>Conclusões</b></span></span></span></span></span></span></span></b></span></b></span></span></span></span></b></div>
<div style="font-weight: normal;">
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; color: #333333; font-family: Georgia, serif; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: 'Courier New'; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;">
</b></b>
</b></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; font-family: verdana; font-weight: normal;">
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; color: #333333; font-family: Georgia, serif; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: 'Courier New'; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , serif; line-height: 20px; white-space: pre;"><b><br /></b></span></span></span></span></span></span></b></b></b></div>
<div style="font-weight: normal;">
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; color: #333333; font-family: Georgia, serif; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: 'Courier New'; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;">
</b></b>
</b></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; font-family: verdana;">
<span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; color: #333333; font-family: "georgia" , serif; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: "courier new"; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , serif; line-height: 20px; white-space: pre;">Notamos neste artigo a facilidade em se manipular campos DateTime,</span></span></span></span></span></span></span></span></span><br />
<span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; color: #333333; font-family: "georgia" , serif; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: "courier new"; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , serif; line-height: 20px; white-space: pre;">inclusive os utilizando como parâmetros sem ignorar as horas,</span></span></span></span></span></span></span></span></span><br />
<span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; color: #333333; font-family: "georgia" , serif; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: "courier new"; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , serif; line-height: 20px; white-space: pre;">utilizando a ferramente Delphi 7. Forte abraço e até o próximo tutorial.</span></span></span></span></span></span></span></span></span></div>
<div style="font-weight: normal;">
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; color: #333333; font-family: Georgia, serif; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: 'Courier New'; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;">
</b></b>
</b></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; font-weight: normal;">
<span style="font-family: "georgia" , "times new roman" , serif;"><br /></span>
<br />
<div style="line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">--</span></span></span></span></span></span></div>
<div class="separator" style="clear: both; line-height: 21px; text-align: center;">
</div>
<div class="separator" style="clear: both; line-height: 21px;">
<img src="https://blu170.mail.live.com/Handlers/ImageProxy.mvc?bicild=&canary=QWsAO3oa4Qw49bfGdcbNb0BmEWJ5qKt5DO1jzhyyqDo%3d0&url=http%3a%2f%2fs27.postimg.org%2fnq3yyctoz%2fAssinatura_Renato.png" style="color: navy; font-family: 'courier new'; font-size: 13px; text-align: justify;" /></div>
</div>
<div style="font-weight: normal;">
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; color: #333333; font-family: Georgia, serif; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: 'Courier New'; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;">
</b></b></b></div>
</div>
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; color: #333333; font-family: Georgia, serif; font-size: 13px; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;">
</b></b></div>
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;">
</b></div>
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;">
</b></div>
Renato F. O. Silvahttp://www.blogger.com/profile/09231773046250346507noreply@blogger.com0tag:blogger.com,1999:blog-4742983584665758105.post-84697944792556936322012-05-31T05:59:00.003-07:002016-03-23T11:53:59.463-07:00Alterando uma linha específica no componente Memo do Delphi 7<span class="Apple-style-span" style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; text-align: justify;"><span style="font-size: small;"><br /></span></span>
<span class="Apple-style-span" style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; text-align: justify;"><span style="font-size: small;">Veja neste tutorial como alterar uma linha específica do Memo no Delphi 7, facilitando para que não se adicione linhas extras no componente</span></span><span style="background-color: white; color: #333333; font-family: "georgia" , "times new roman" , serif; font-size: small; line-height: 20px; text-align: justify;"><span style="color: #355880;">.</span></span><br />
<br />
<span style="background-color: white; color: #333333; font-family: "georgia" , "times new roman" , serif; line-height: 20px; text-align: left;"></span>
<span style="background-color: white; color: #333333; font-family: "georgia" , "times new roman" , serif; line-height: 20px; text-align: left;">
<span class="Apple-style-span" style="color: #355880;"></span></span>
<br />
<div style="text-align: justify;">
<span style="background-color: white; color: #333333; font-family: "georgia" , "times new roman" , serif; line-height: 20px; text-align: left;"><span class="Apple-style-span" style="color: #355880;"><span class="Apple-style-span" style="white-space: pre;">A simples solução está descrita abaixo</span>:</span></span></div>
<span style="background-color: white; color: #333333; font-family: "georgia" , "times new roman" , serif; line-height: 20px; text-align: left;"><span class="Apple-style-span" style="color: #355880;">
</span></span>
<br />
<div style="background-color: white; color: #333333; line-height: 20px; text-align: justify;">
<br /></div>
<div style="background-color: white; text-align: justify;">
<pre style="background-image: URL(http://2.bp.blogspot.com/_z5ltvMQPaa8/SjJXr_U2YBI/AAAAAAAAAAM/46OqEP32CJ8/s320/codebg.gif); background: #f0f0f0; border: 1px dashed #CCCCCC; color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;"> Memo1.Lines.Strings[INDEX] := Memo1.Lines.Strings[INDEX] + 'TEXTO ADICIONAL';
</code></pre>
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="font-family: "georgia" , "times new roman" , serif; line-height: 21px;">
</span></b>
<br />
<div 0cm="" 0pt="" align="left" class="Cdigo" margin:="" style="color: #38761d; font-family: verdana; font-size: 14px; font-weight: normal; text-align: -webkit-left;">
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><br /></b></div>
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;">
</b>
<br />
<div 0cm="" 0pt="" align="left" class="Cdigo" margin:="" style="font-family: verdana; font-size: 14px; font-weight: normal; text-align: -webkit-left;">
<div style="line-height: 21px;">
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span en-us="" lang="EN-US" mso-ansi-language:="" style="border-width: 0px; font-family: "georgia" , "times new roman" , serif; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"></b></span></b></span></span></span></b></div>
<div style="background-color: white;">
<div style="font-weight: normal; line-height: 20px;">
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span en-us="" lang="EN-US" mso-ansi-language:="" style="border-width: 0px; font-family: "georgia" , "times new roman" , serif; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"></b></b></span></b></span></span></span></b></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; color: #384042; font-weight: normal; line-height: 20px;">
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span en-us="" lang="EN-US" mso-ansi-language:="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><b>Conclusões</b></span></span></span></span></span></span></span></b></b></span></b></span></span></span></b></div>
<div style="font-weight: normal;">
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; font-family: "georgia" , "times new roman" , serif; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;">
</b></b></b></span><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"></b></b></b></span>
</b></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; color: #384042; font-weight: normal; line-height: 21px;">
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; font-family: "georgia" , "times new roman" , serif; margin: 0px; padding: 0px; vertical-align: top;"></span><span style="border-width: 0px; font-family: "georgia" , "times new roman" , serif; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;"><b><br /></b></span></span></span></span></span></span></span></b></b></b></span></b></div>
<div style="font-weight: normal;">
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;">
</b></b></b></b>
</div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; color: #384042; line-height: 21px;">
<span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;">Notamos neste tutorial a facilidade em se alterar uma</span></span></span></span></span></span></span></span></span></span><br />
<span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;">linha específica do componente Memo utilizando a</span></span></span></span></span></span></span></span></span></span><br />
<span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;">ferramente Delphi 7. Forte abraço e até o próximo</span></span></span></span></span></span></span></span></span></span><br />
<span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; color: navy; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;">tutorial.</span></span></span></span></span></span></span></span></span></span></div>
<span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><span mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;">
</span></span></span></span>
<br />
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white;">
<div style="color: #384042; line-height: 21px;">
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><br /></b></b></b></b></div>
<div style="font-weight: normal;">
<div style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">--</span></span></span></span></span></span></div>
<div class="separator" style="clear: both; color: #384042; line-height: 21px; text-align: center;">
</div>
<div class="separator" style="clear: both; color: #384042; line-height: 21px;">
<img src="https://blu170.mail.live.com/Handlers/ImageProxy.mvc?bicild=&canary=QWsAO3oa4Qw49bfGdcbNb0BmEWJ5qKt5DO1jzhyyqDo%3d0&url=http%3a%2f%2fs27.postimg.org%2fnq3yyctoz%2fAssinatura_Renato.png" style="color: navy; font-family: 'courier new'; font-size: 13px; text-align: justify;" /></div>
</div>
</div>
</div>
<div 0cm="" 0pt="" align="left" class="Cdigo" margin:="" style="display: inline !important; font-family: verdana; font-size: 14px; font-weight: normal; text-align: -webkit-left;">
<div style="background-color: white; color: #333333; display: inline !important; font-weight: normal; line-height: 20px;">
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; color: #333333; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><span style="border-width: 0px; font-family: "courier new"; font-size: xx-small; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span en-us="" lang="EN-US" mso-ansi-language:="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; color: #333333; font-family: Georgia, serif; font-size: 13px; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><span style="color: #38761d;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; font-family: 'Courier New'; line-height: 21px; margin: 0px; padding: 0px; vertical-align: top;">
</b></span></b></span></b></span></span></span></b></b></b></div>
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; color: #333333; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><span style="border-width: 0px; font-family: "courier new"; font-size: xx-small; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span style="border-width: 0px; font-family: "courier new"; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><span en-us="" lang="EN-US" mso-ansi-language:="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; color: #333333; font-family: Georgia, serif; font-size: 13px; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;"><span style="color: #38761d;">
</span></b></span></b></span></span></span></b></b>
</b><br />
<div style="font-family: 'Courier New'; font-size: 13px;">
</div>
</div>
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-width: 0px; color: #333333; margin: 0px; padding: 0px; text-align: justify; vertical-align: top;">
</b></b></b>
<br />
<div style="font-family: 'Courier New'; font-size: 13px; line-height: 21px;">
</div>
</div>
<b mso-bidi-font-weight:="" normal="" style="border-width: 0px; margin: 0px; padding: 0px; vertical-align: top;">
</b>
<br />
<div style="font-family: Georgia, serif; font-size: 13px; line-height: 20px;">
</div>
</div>
Renato F. O. Silvahttp://www.blogger.com/profile/09231773046250346507noreply@blogger.com1tag:blogger.com,1999:blog-4742983584665758105.post-14415345759449587012012-04-14T13:54:00.001-07:002016-03-23T12:10:05.842-07:00InputBox com Password (Janela de mensagem) no Delphi 7<div style="text-align: justify;">
<span style="font-family: "georgia" , "times new roman" , serif;"><span class="Apple-style-span" style="background-color: white; color: #355880; line-height: 20px;">Veja neste tutorial como criar um InputBox com Password, com um Edit e máscara para senha</span><span style="background-color: white; color: #355880; line-height: 20px;">.</span></span></div>
<span style="background-color: white; color: #333333; font-family: "georgia" , "times new roman" , serif; line-height: 20px; text-align: left;">
</span>
<br />
<div style="text-align: justify;">
<span style="background-color: white; color: #333333; font-family: "georgia" , "times new roman" , serif; line-height: 20px; text-align: left;"><span class="Apple-style-span" style="color: #355880; white-space: pre;"><br /></span>
<span class="Apple-style-span" style="color: #355880; white-space: pre;">Este tutorial visa auxiliar quem precisa criar um janela de mensagem</span></span><br />
<span style="background-color: white; color: #333333; font-family: "georgia" , "times new roman" , serif; line-height: 20px; text-align: left;"><span class="Apple-style-span" style="color: #355880; white-space: pre;">que esconda o que está sendo digitado (senha). </span><span style="color: #355880;">Primeiramente crie</span></span><br />
<span style="background-color: white; color: #333333; font-family: "georgia" , "times new roman" , serif; line-height: 20px; text-align: left;"><span style="color: #355880;">as seguintes funções na sua </span><b style="color: #355880;">Unit</b><span style="color: #355880;">:</span></span></div>
<span style="background-color: white; color: #333333; font-family: "georgia" , "times new roman" , serif; line-height: 20px; text-align: left;">
</span>
<br />
<div style="background-color: white; line-height: 20px; text-align: justify;">
<br /></div>
<div style="background-color: white; text-align: justify;">
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; color: #384042; line-height: 21px;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;">
</span></span></span><br />
<pre style="background-image: URL(http://2.bp.blogspot.com/_z5ltvMQPaa8/SjJXr_U2YBI/AAAAAAAAAAM/46OqEP32CJ8/s320/codebg.gif); background: #f0f0f0; border: 1px dashed #CCCCCC; color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><code style="color: black; word-wrap: normal;"> function InputBoxPass(const ACaption, APrompt, ADefault: string): string;
function InputSenha(const ACaption, APrompt: string; var Value: string): Boolean;
function GetAveCharSize(Canvas: TCanvas): TPoint;
</code></span></span></span></pre>
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;">
<span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"></span></span></span></span><br />
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; color: #384042; line-height: 21px;">
<br /></div>
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">E as implemente com os seguintes códigos:</span></span></span></span></div>
<div style="background-color: white; line-height: 20px;">
<br />
<pre style="background-image: URL(http://2.bp.blogspot.com/_z5ltvMQPaa8/SjJXr_U2YBI/AAAAAAAAAAM/46OqEP32CJ8/s320/codebg.gif); background: #f0f0f0; border: 1px dashed #CCCCCC; color: black; font-family: arial; font-size: 12px; height: 100%; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;"> function TForm1.GetAveCharSize(Canvas: TCanvas): TPoint;
var
I: Integer;
Buffer: array[0..51] of Char;
begin
for I := 0 to 25 do Buffer[I] := Chr(I + Ord('A'));
for I := 0 to 25 do Buffer[I + 26] := Chr(I + Ord('a'));
GetTextExtentPoint(Canvas.Handle, Buffer, 52, TSize(Result));
Result.X := Result.X div 52;
end;</code></pre>
</div>
<div style="background-color: white;">
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; text-align: justify;">
<div style="color: #384042;">
<b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="color: #38761d; font-family: "georgia" , "times new roman" , serif;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;">
</span></span></span></span></span></b>
</div>
<span style="color: #355880; font-family: "georgia" , "times new roman" , serif;"><span style="line-height: 20px; white-space: pre;">Em seguida:</span></span><br />
<span style="color: #355880; font-family: "georgia" , "times new roman" , serif;"><span style="line-height: 20px; white-space: pre;">
</span></span>
<br />
<pre style="background-image: URL(http://2.bp.blogspot.com/_z5ltvMQPaa8/SjJXr_U2YBI/AAAAAAAAAAM/46OqEP32CJ8/s320/codebg.gif); background: #f0f0f0; border: 1px dashed #CCCCCC; color: black; font-family: arial; font-size: 12px; height: 100%; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><span style="color: #355880; font-family: "georgia" , "times new roman" , serif;"><span style="line-height: 20px; white-space: pre;"><code style="color: black; word-wrap: normal;"> function TForm1.InputBoxPass(const ACaption, APrompt,
ADefault: string): string;
begin
Result := ADefault;
InputSenha(ACaption, APrompt, Result);
end;
</code></span></span></pre>
<div style="color: #384042;">
<b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="color: #38761d; font-family: "georgia" , "times new roman" , serif;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;">
</span></span></span></span></span></b></div>
<div style="color: #384042;">
<span mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="color: #38761d; font-family: "georgia" , "times new roman" , serif;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;">E por fim:</span></span></span></span></span></span></div>
<pre style="background-color: #f0f0f0; background-position: initial initial; background-repeat: initial initial; border: 1px dashed rgb(204, 204, 204); color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><span mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="color: #38761d; font-family: "georgia" , "times new roman" , serif;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;">
<pre style="background: #f0f0f0; border: 1px dashed #CCCCCC; color: black; font-family: arial; font-size: 12px; height: 100%; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;"> function TForm1.InputSenha(const ACaption, APrompt: string;
var Value: string): Boolean;
var
Form: TForm;
Prompt: TLabel;
Edit: TEdit;
DialogUnits: TPoint;
ButtonTop, ButtonWidth, ButtonHeight: Integer;
begin
Result := False;
Form := TForm.Create(Application);
with Form do
try
Canvas.Font := Font;
DialogUnits := GetAveCharSize(Canvas);
BorderStyle := bsDialog;
Caption := ACaption;
ClientWidth := MulDiv(180, DialogUnits.X, 4);
ClientHeight := MulDiv(63, DialogUnits.Y, 8);
Position := poMainformcenter;
Prompt := TLabel.Create(Form);
with Prompt do
begin
Parent := Form;
AutoSize := True;
Left := MulDiv(8, DialogUnits.X, 4);
Top := MulDiv(8, DialogUnits.Y, 8);
Caption := APrompt;
end;
Edit := TEdit.Create(Form);
with Edit do
begin
Parent := Form;
Left := Prompt.Left;
Top := MulDiv(19, DialogUnits.Y, 8);
Width := MulDiv(164, DialogUnits.X, 4);
{} MaxLength := 20;
{} Passwordchar := '*';
{} Font.Color := clBlue;
Text := Value;
SelectAll;
end;
ButtonTop := MulDiv(41, DialogUnits.Y, 8);
ButtonWidth := MulDiv(50, DialogUnits.X, 4);
ButtonHeight := MulDiv(14, DialogUnits.Y, 8);
with TButton.Create(Form) do
begin
Parent := Form;
Caption := 'Ok';
ModalResult := mrOk;
Default := True;
SetBounds(MulDiv(38, DialogUnits.X, 4), ButtonTop, ButtonWidth, ButtonHeight);
end;
with TButton.Create(Form) do
begin
Parent := Form;
Caption := 'Cancelar';
ModalResult := mrCancel;
Cancel := True;
SetBounds(MulDiv(92, DialogUnits.X, 4), ButtonTop, ButtonWidth,ButtonHeight);
end;
if ShowModal = mrOk then
begin
Value := Edit.Text;
Result := True;
end;
finally
Form.Free;
end;
end;
</code></pre>
</span></span></span></span></span></span></pre>
<b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="color: #38761d; font-family: "georgia" , "times new roman" , serif;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;">
<span style="font-weight: normal;">Finalmente, adicione um </span>Button <span style="font-weight: normal;">e um </span>Label <span style="font-weight: normal;">no</span></span></span></span></span></span></b><br />
<b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="color: #38761d; font-family: "georgia" , "times new roman" , serif;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;"><span style="font-weight: normal;">formulário, e no evento </span>onClick <span style="font-weight: normal;">do botão,</span></span></span></span></span></span></b><br />
<b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="color: #38761d; font-family: "georgia" , "times new roman" , serif;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;"><span style="font-weight: normal;">digite:</span></span></span></span></span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><br /></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;">
</b></div>
<pre style="background-image: URL(http://2.bp.blogspot.com/_z5ltvMQPaa8/SjJXr_U2YBI/AAAAAAAAAAM/46OqEP32CJ8/s320/codebg.gif); background: #f0f0f0; border: 1px dashed #CCCCCC; color: black; font-family: arial; font-size: 12px; height: 100%; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><code style="color: black; word-wrap: normal;"> Label1.Caption := InputBoxPass('Login','Senha:','');
</code></b></pre>
<b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;">
</b><br />
<div class="separator" style="clear: both; text-align: center;">
<b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><br /></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="color: #38761d; font-family: "georgia" , "times new roman" , serif;"><a href="http://2.bp.blogspot.com/-NPI_f6ZJ49U/T4njd60au_I/AAAAAAAAAJ8/BfGFR38EWt4/s1600/Capturar.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://2.bp.blogspot.com/-NPI_f6ZJ49U/T4njd60au_I/AAAAAAAAAJ8/BfGFR38EWt4/s1600/Capturar.JPG" /></a></span></b></div>
<span mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="color: #38761d; font-family: "georgia" , "times new roman" , serif; font-weight: bold;">
</span></span>
<br />
<div class="separator" style="clear: both; text-align: justify;">
<br /></div>
<div style="background-color: white; line-height: 20px; text-align: justify;">
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; color: #384042; font-weight: normal;">
<div style="text-align: left;">
<span style="font-family: "georgia" , "times new roman" , serif;"><span mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"></span><span mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="color: #38761d;"></span><span style="color: #38761d;"><b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; font-family: 'Courier New'; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; font-size: xx-small; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;"><b>Conclusões</b></span></span></span></span></span></span></span></b></span></span></span></div>
</div>
<div style="font-weight: normal;">
<span style="font-family: "georgia" , "times new roman" , serif;"><b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; font-family: 'Courier New'; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;">
</b>
</span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; color: #384042; font-weight: normal;">
<div style="text-align: left;">
<b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; font-family: 'Courier New'; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><b><br /></b></span></span></span></span></span></span></b></div>
</div>
<div style="font-weight: normal;">
<span style="font-family: "georgia" , "times new roman" , serif;"><b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; font-family: 'Courier New'; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;">
</b>
</span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; color: #384042;">
<span mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">Notamos neste artigo a facilidade em se criar um InputBox com</span></span></span></span></span></span></span><br />
<span mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">Password em detrimento de um ShowMessage comum</span></span></span></span></span></span></span><br />
<span mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">utilizando a ferramente Delphi 7. Forte abraço e até o próximo</span></span></span></span></span></span></span><br />
<span mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">tutorial.</span></span></span></span></span></span></span></div>
<span style="font-family: "georgia" , "times new roman" , serif;"><span mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;">
</span>
</span><br />
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white;">
<div style="color: #384042;">
<span mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="font-family: "georgia" , "times new roman" , serif;"><br /></span></span></div>
<div style="color: #384042; line-height: 21px;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">--</span></span></span></span></span></span></div>
<div class="separator" style="clear: both; color: #384042; line-height: 21px; text-align: center;">
</div>
<div class="separator" style="clear: both; color: #384042; line-height: 21px; text-align: left;">
<img src="https://blu170.mail.live.com/Handlers/ImageProxy.mvc?bicild=&canary=QWsAO3oa4Qw49bfGdcbNb0BmEWJ5qKt5DO1jzhyyqDo%3d0&url=http%3a%2f%2fs27.postimg.org%2fnq3yyctoz%2fAssinatura_Renato.png" style="color: navy; font-family: 'courier new'; font-size: 13px; text-align: justify;" /></div>
</div>
<span mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;">
</span>
<br />
<div style="font-weight: normal;">
</div>
<div style="color: #333333; font-family: Georgia, serif; font-size: 13px; font-weight: normal;">
</div>
</div>
</div>
</div>
Renato F. O. Silvahttp://www.blogger.com/profile/09231773046250346507noreply@blogger.com5tag:blogger.com,1999:blog-4742983584665758105.post-78700120170118358992012-04-14T13:37:00.001-07:002016-03-23T12:10:18.161-07:00Verificar se há conexão com a Internet no Delphi 7<div style="text-align: justify;">
<span class="Apple-style-span" style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px;">Veja neste artigo como verificar se o computador no qual sua aplicação está rodando está conectado à Internet</span><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px;">.</span></div>
<div style="text-align: justify;">
<div style="text-align: justify;">
<br /></div>
</div>
<span style="background-color: white; color: #333333; font-family: "georgia" , "times new roman" , serif; line-height: 20px; text-align: left;">
<span class="Apple-style-span" style="color: #355880;"></span></span>
<br />
<div style="text-align: justify;">
<span style="background-color: white; color: #333333; font-family: "georgia" , "times new roman" , serif; line-height: 20px; text-align: left;"><span class="Apple-style-span" style="color: #355880;">Primeiramente declare na <b>Uses </b>do seu <b>Form </b>a seguinte unit<span style="white-space: pre;">:</span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><br /></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; color: #384042; line-height: 21px; text-align: justify;">
<span style="font-family: "georgia" , "times new roman" , serif;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;">
</span></span></span></span><br />
<pre style="background-image: URL(http://2.bp.blogspot.com/_z5ltvMQPaa8/SjJXr_U2YBI/AAAAAAAAAAM/46OqEP32CJ8/s320/codebg.gif); background: #f0f0f0; border: 1px dashed #CCCCCC; color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><span style="font-family: "georgia" , "times new roman" , serif;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><code style="color: black; word-wrap: normal;"> uses
WinInet;
</code></span></span></span></span></pre>
<span style="font-family: "georgia" , "times new roman" , serif;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;">
<span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;"></span></span></span></span></span><br />
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; color: #384042; line-height: 21px; text-align: justify;">
<span style="font-family: "georgia" , "times new roman" , serif;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;"><span style="font-family: "georgia" , "times new roman" , serif;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;"><br /></span></span></span></span></span></span></span></span></span></span></div>
<span style="font-family: "georgia" , "times new roman" , serif;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;">
Após isso, digite o que está abaixo na <b>procedure</b></span></span></span></span></span><br />
<span style="font-family: "georgia" , "times new roman" , serif;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;"><b>onClick </b>do botão</span></span></span></span><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;">:</span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; text-align: justify;">
<span style="color: #355880;"><span style="font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><br /></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; color: #333333; line-height: 20px; text-align: left;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "georgia" , "times new roman" , serif; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; font-size: xx-small; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;">
</span></span></span></span></span></span><br />
<pre style="background-image: URL(http://2.bp.blogspot.com/_z5ltvMQPaa8/SjJXr_U2YBI/AAAAAAAAAAM/46OqEP32CJ8/s320/codebg.gif); background: #f0f0f0; border: 1px dashed #CCCCCC; color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; font-size: xx-small; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><code style="color: black; word-wrap: normal;"> procedure TForm1.Button1Click(Sender: TObject);
var
Flags : Cardinal;
begin
if not InternetGetConnectedState(@Flags, 0) then
ShowMessage('Não há conexão com a Internet')
else
if (Flags and INTERNET_CONNECTION_LAN) <> 0 then
ShowMessage('Há conexão com a Internet através de um roteador')
else
if (Flags and INTERNET_CONNECTION_PROXY) <> 0 then
ShowMessage('Há conexão com a Internet através de um proxy')
else
ShowMessage('Há conexão com a Internet');
end;
</code></span></span></span></span></span></pre>
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; font-size: xx-small; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;">
<span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><b></b></span></span></span></span></span></span><br />
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; font-size: xx-small; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><b><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; font-size: xx-small; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><b><br /></b></span></span></span></span></span></span></b></span></span></span></span></span></span></div>
<span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><b><span style="font-size: xx-small;">
</span><span style="font-size: x-small;">Conclusões</span></b></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><b><br /></b></span></span></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">Notamos neste artigo a facilidade em verificar se há conexão com a</span></span></span></span></span></span><br />
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">Internet utilizando a ferramente Delphi 7. Forte abraço e até o</span></span></span></span></span></span><br />
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">próximo tutorial.</span></span></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><br /></span></span></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="background-color: white; color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">--</span></span></span></span></span></span><br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: left;">
<img src="https://blu170.mail.live.com/Handlers/ImageProxy.mvc?bicild=&canary=QWsAO3oa4Qw49bfGdcbNb0BmEWJ5qKt5DO1jzhyyqDo%3d0&url=http%3a%2f%2fs27.postimg.org%2fnq3yyctoz%2fAssinatura_Renato.png" style="color: navy; font-family: 'courier new'; font-size: 13px; text-align: justify;" /></div>
</div>
Renato F. O. Silvahttp://www.blogger.com/profile/09231773046250346507noreply@blogger.com16tag:blogger.com,1999:blog-4742983584665758105.post-85588208727750232292012-04-03T07:27:00.001-07:002016-03-23T12:10:41.040-07:00Validar E-mail no Delphi 7<div style="text-align: justify;">
<span style="font-family: "georgia" , "times new roman" , serif;"><br /></span></div>
<div style="background-color: white; line-height: 20px; text-align: justify;">
<span style="font-family: "georgia" , "times new roman" , serif;"><span style="color: #355880;">Veja neste artigo como criar uma função no Delphi para validar um e-mail digitado, sempre lembrando que tal e-mail deve conter </span><b><span style="color: #660000;">@</span></b><span style="color: #355880;"> (arroba) e </span><b><span style="color: #660000;">.</span></b><span style="color: #355880;"> (ponto)</span><span style="color: #333333;"><span style="color: #355880;">.</span></span></span></div>
<div style="line-height: 20px; text-align: justify;">
<span style="background-color: white; text-align: left;"><span style="background-color: white; color: #333333; font-family: "georgia" , "times new roman" , serif; text-align: left;">
</span></span>
<br />
<div style="text-align: justify;">
<div style="text-align: justify;">
<span style="background-color: white; text-align: left;"><span style="background-color: white; color: #333333; font-family: "georgia" , "times new roman" , serif; text-align: left;"><br /></span></span></div>
</div>
<span style="background-color: white; text-align: left;"><span style="background-color: white; color: #333333; font-family: "georgia" , "times new roman" , serif; text-align: left;">
<span class="Apple-style-span" style="color: #355880;"></span></span></span>
<br />
<div style="text-align: justify;">
<span style="background-color: white; text-align: left;"><span style="background-color: white; color: #333333; font-family: "georgia" , "times new roman" , serif; text-align: left;"><span class="Apple-style-span" style="color: #355880;">Abaixo está a função para validar o campo:</span></span></span><br />
<span style="background-color: white; text-align: left;"><span style="background-color: white; color: #333333; font-family: "georgia" , "times new roman" , serif; text-align: left;"><span class="Apple-style-span" style="color: #355880;"><br /></span></span></span></div>
<span style="background-color: white; text-align: left;"><span style="background-color: white; color: #333333; font-family: "georgia" , "times new roman" , serif; text-align: left;"><span class="Apple-style-span" style="color: #355880;">
</span></span></span></div>
<pre style="background-image: URL(http://2.bp.blogspot.com/_z5ltvMQPaa8/SjJXr_U2YBI/AAAAAAAAAAM/46OqEP32CJ8/s320/codebg.gif); background: #f0f0f0; border: 1px dashed #CCCCCC; color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;"> function ValidaEmail(aStr : String) : Boolean;
begin
aStr := Trim(UpperCase(aStr));
if Pos('@', aStr) &gt; 1 then
begin
Delete(aStr, 1, pos('@', aStr));
Result := (Length(aStr) &gt; 0) and (Pos('.', aStr) &gt; 2);
end
else
Result := False;
end;
</code></pre>
<span style="background-color: white; font-family: "georgia" , "times new roman" , serif; text-align: left;">
</span>
<br />
<div style="color: #333333; line-height: 20px; text-align: justify;">
<div style="text-align: justify;">
<br /></div>
</div>
<div style="text-align: justify;">
<span style="background-color: white; font-family: "georgia" , "times new roman" , serif; text-align: left;"></span><br />
<span style="background-color: white; font-family: "georgia" , "times new roman" , serif; text-align: left;">
</span>
<br />
<div style="color: #333333; line-height: 20px;">
<div style="text-align: justify;">
<span style="background-color: white; font-family: "georgia" , "times new roman" , serif; text-align: left;"><b mso-bidi-font-weight:="" normal="" style="background-color: white; border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; color: navy; font-family: 'Courier New'; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span class="Apple-style-span" style="color: #355880; font-weight: normal; line-height: 20px; white-space: pre;"> Para finalizar basta colocar seu componente</span></b></b></b></b></span><br />
<span style="background-color: white; font-family: "georgia" , "times new roman" , serif; text-align: left;"><b mso-bidi-font-weight:="" normal="" style="background-color: white; border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; color: navy; font-family: 'Courier New'; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span class="Apple-style-span" style="color: #355880; font-weight: normal; line-height: 20px; white-space: pre;">onde o e-mail foi digitado como parâmetro</span><span style="color: #355880; font-weight: normal; line-height: 20px;">:</span></b></b></b></b></span></div>
</div>
<br />
<div style="color: #333333; line-height: 20px;">
<span style="background-color: white; font-family: "georgia" , "times new roman" , serif; text-align: left;"><b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; color: navy; font-family: 'Courier New'; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"></b></span><br />
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; font-weight: normal;">
<div style="text-align: justify;">
<span style="font-family: "georgia" , "times new roman" , serif;"><span style="background-color: white; text-align: left;"></span><span style="background-color: white; text-align: left;"><b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; color: navy; font-family: 'Courier New'; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; font-size: xx-small; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;">
</span></span></span></span></span></span></b></span></span><br />
<pre style="background-image: URL(http://2.bp.blogspot.com/_z5ltvMQPaa8/SjJXr_U2YBI/AAAAAAAAAAM/46OqEP32CJ8/s320/codebg.gif); background: #f0f0f0; border: 1px dashed #CCCCCC; color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><span style="font-family: "georgia" , "times new roman" , serif;"><span style="background-color: white; text-align: left;"><b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; color: navy; font-family: 'Courier New'; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; font-size: xx-small; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><code style="color: black; word-wrap: normal;"> if ValidaEmail(Edit1.Text) then
</code></span></span></span></span></span></b></span></span></pre>
<span style="font-family: "georgia" , "times new roman" , serif;"><span style="background-color: white; text-align: left;"><b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; color: navy; font-family: 'Courier New'; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; font-size: xx-small; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;">
<span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;"><b></b></span></span></span></span></span></span></b></span></span><br />
<div style="text-align: justify;">
<span style="font-family: "georgia" , "times new roman" , serif;"><span style="background-color: white; text-align: left;"><b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; color: navy; font-family: 'Courier New'; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; font-size: xx-small; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;"><b><span style="font-family: "georgia" , "times new roman" , serif;"><span style="background-color: white; text-align: left;"><b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; color: navy; font-family: 'Courier New'; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; font-size: xx-small; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;"><b><br /></b></span></span></span></span></span></span></b></span></span></b></span></span></span></span></span></span></b></span></span></div>
<span style="font-family: "georgia" , "times new roman" , serif;"><span style="background-color: white; text-align: left;"><b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; color: navy; font-family: 'Courier New'; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;"><b><span style="font-size: xx-small;">
</span><span style="font-size: x-small;">Conclusões</span></b></span></span></span></b></span></span></div>
</div>
<b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; color: navy; font-family: 'Courier New'; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="font-family: "georgia" , "times new roman" , serif;">
</span></b>
<br />
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; font-weight: normal;">
<b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; color: navy; font-family: 'Courier New'; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><b><br /></b></span></span></span></span></span></span></b></div>
<b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; color: navy; font-family: 'Courier New'; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="font-family: "georgia" , "times new roman" , serif;">
</span></b>
<br />
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042;">
<span mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; font-family: "courier new"; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="font-family: "georgia" , "times new roman" , serif;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;">Notamos neste artigo a facilidade em se validar</span></span></span></span></span></span></span></span><br />
<span mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; font-family: "courier new"; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="font-family: "georgia" , "times new roman" , serif;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;">e-mail pelo Delphi e o quanto isso nos pode ser</span></span></span></span></span></span></span></span><br />
<span mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; font-family: "courier new"; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="font-family: "georgia" , "times new roman" , serif;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;">útil no dia-a-dia. Forte abraço e até o próximo</span></span></span></span></span></span></span></span><br />
<span mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; font-family: "courier new"; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="font-family: "georgia" , "times new roman" , serif;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;">tutorial.</span></span></span></span></span></span></span></span></div>
<span mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; font-family: "courier new"; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="font-family: "georgia" , "times new roman" , serif;">
</span></span></div>
<div style="color: #333333; line-height: 20px;">
<b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; color: navy; font-family: 'Courier New'; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="font-family: "georgia" , "times new roman" , serif;"><br /></span></b></div>
<div style="color: #333333; line-height: 20px;">
<div style="color: #384042; line-height: 21px;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">--</span></span></span></span></span></span></div>
<div class="separator" style="clear: both; color: #384042; line-height: 21px; text-align: center;">
</div>
<div class="separator" style="clear: both; color: #384042; line-height: 21px; text-align: left;">
<img src="https://blu170.mail.live.com/Handlers/ImageProxy.mvc?bicild=&canary=QWsAO3oa4Qw49bfGdcbNb0BmEWJ5qKt5DO1jzhyyqDo%3d0&url=http%3a%2f%2fs27.postimg.org%2fnq3yyctoz%2fAssinatura_Renato.png" style="background-color: white; color: navy; font-family: 'courier new'; font-size: 13px; text-align: justify;" /></div>
<b mso-bidi-font-weight:="" normal="" style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; color: navy; font-family: 'Courier New'; line-height: 21px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;">
</b>
<br />
<div style="font-family: Georgia, serif; font-size: 13px;">
</div>
</div>
</div>
Renato F. O. Silvahttp://www.blogger.com/profile/09231773046250346507noreply@blogger.com0tag:blogger.com,1999:blog-4742983584665758105.post-57466853483103857172012-04-02T11:55:00.000-07:002016-03-23T12:10:54.293-07:00(PARTE 1) Gerar PDF e enviá-lo por E-mail no Delphi 7: Gerar PDF a partir do Quick Report utilizando ExportQR<div style="text-align: justify;">
<span style="font-family: "georgia" , "times new roman" , serif;"><br /></span></div>
<div style="background-color: white; text-align: justify;">
<span style="font-family: "georgia" , "times new roman" , serif;"><span class="Apple-style-span" style="color: #355880; line-height: 20px;">Veja neste artigo como gerar um documento PDF no Delphi 7 a partir de um </span><span class="Apple-style-span" style="color: #355880; line-height: 20px;">relatório Quick Report, utilizando o componente </span><span style="background-color: transparent; line-height: 20px;"><span style="color: #355880;">ExportQR, e em seguida enviá-lo automaticamente por e-mail</span></span><span style="color: #355880; line-height: 20px;">.</span></span><br />
<span style="font-family: "georgia" , "times new roman" , serif;"><span style="color: #355880; line-height: 20px;"><br /></span></span>
<span style="color: #355880; font-family: "georgia" , "times new roman" , serif;"><span style="line-height: 20px;">Neste posto abordarei a 1ª parte do tutorial, explicando como se gera o PDF. Na parte 2 (<a href="http://delphicomtorrada.blogspot.com.br/2014/09/gerar-pdf-no-delphi-7-partir-do-quick.html" target="_blank">(PARTE 2) Gerar PDF e enviá-lo por E-mail no Delphi 7: Enviar automaticamente por E-mail um PDF gerado pelo Delphi 7</a>) explico como enviar automaticamente um PDF gerado pelo Delphi.</span></span></div>
<span style="font-family: "georgia" , "times new roman" , serif;"><span style="background-color: white; text-align: left;">
</span>
</span><br />
<div style="text-align: justify;">
<div style="text-align: justify;">
<span style="background-color: white; font-family: "georgia" , "times new roman" , serif; text-align: left;"><br /></span></div>
</div>
<span style="font-family: "georgia" , "times new roman" , serif;"><span style="background-color: white; text-align: left;">
<span class="Apple-style-span" style="color: #355880; line-height: 20px;"></span></span>
</span><br />
<div style="text-align: justify;">
<div style="text-align: justify;">
<span style="background-color: white; text-align: left;"><span class="Apple-style-span" style="color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px;">Venho por meio deste artigo solucionar um grande problema que enfrentei quando tentei gerar arquivos do tipo PDF a partir do Delphi 7, mais especificamente do Quick Report.</span></span></div>
</div>
<span style="background-color: white; text-align: left;"><span class="Apple-style-span" style="color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px;">
</span></span>
<br />
<div style="text-align: justify;">
<div style="text-align: justify;">
<span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; text-align: left;"><br /></span></div>
</div>
<div style="text-align: justify;">
<div style="text-align: justify;">
<span style="font-family: "georgia" , "times new roman" , serif;"><span style="background-color: white; color: #355880; line-height: 20px; text-align: left;">Primeiramente você deve fazer o download do componente ExportQR em um dos seguintes links:</span></span></div>
</div>
<div style="text-align: justify;">
<span style="font-family: "georgia" , "times new roman" , serif;"><br /></span>
<br />
<ul>
<li><span style="font-family: "georgia" , "times new roman" , serif;"><a href="https://mega.co.nz/#!KMsGnI7Z!CxVfyQ7iULQ-sKfA5ibqhVHidRIbOg74JlFDT5L8W6s" style="line-height: 20px;">Download ExportQR - MEGA</a></span></li>
<li><span style="font-family: "georgia" , "times new roman" , serif;"><a href="http://www.devmedia.com.br/download/down.asp?id=483&cb="><span style="color: #660000; font-family: "georgia" , "times new roman" , serif;">Download ExportQR - Devmedia</span></a></span></li>
</ul>
</div>
<div style="text-align: justify;">
<span style="font-family: "georgia" , "times new roman" , serif;">
</span></div>
<div style="text-align: justify;">
<div style="text-align: justify;">
<span style="background-color: white; line-height: 20px; text-align: left;"><span style="color: #355880; font-family: "georgia" , "times new roman" , serif;"><br /></span></span></div>
</div>
<div style="text-align: justify;">
<div style="text-align: justify;">
<span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; text-align: left; white-space: pre;">Após fazer o download, descompacte em algum diretório e abra o</span><br />
<span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; text-align: left; white-space: pre;">arquivo ExPackD7.dpk (note que o componente também possui</span><br />
<span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; text-align: left; white-space: pre;">versão para o Delphi 6).</span></div>
</div>
<div style="text-align: justify;">
<div style="text-align: justify;">
<span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; text-align: left; white-space: pre;"><br /></span></div>
</div>
<div style="text-align: justify;">
<span style="font-family: "georgia" , "times new roman" , serif;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;">Como este tutorial visa utilizar o </span><span style="color: #355880;"><span style="line-height: 20px; white-space: pre;">ExportQR em conjunto com o Quick</span></span></span><br />
<span style="font-family: "georgia" , "times new roman" , serif;"><span style="color: #355880;"><span style="line-height: 20px; white-space: pre;">Report, abra o arquivo ExportPack.pas e comente a linha onde está a</span></span></span><br />
<span style="font-family: "georgia" , "times new roman" , serif;"><span style="color: #355880;"><span style="line-height: 20px; white-space: pre;">diretiva para o FastReport:</span></span></span></div>
<div style="text-align: justify;">
<br />
<br />
<pre style="background-color: #f0f0f0; border: 1px dashed rgb(204, 204, 204); font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 646.46875px;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><code style="word-wrap: normal;"> unit ExportPack;
{$DEFINE QUICKREPORT}
{$DEFINE FASTREPORT} // comente essa linha
{$DEFINE SPANISH}
</code></span></span></span></pre>
<div>
<br /></div>
</div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">Após isso, clique no botão Install para instalar o componente e a paleta</span></span></span></span><br />
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">ZASOFT será criada no seu Delphi, com o bendito componente</span></span></span></span><br />
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">ExportQR. Não esqueça de adicionar o diretório no Library Path do</span></span></span></span><br />
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">Delphi, caso não tenha sido feito automaticamente na instalação do</span></span></span></span><br />
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">componente (Tools > Environment Options > Library > Library Path).</span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-size: xx-small; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><br /></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; font-size: xx-small; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><b>Gerando PDF a partir do Quick Report</b></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><b><br /></b></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">Agora que o componente está devidamente instalado, vamos a parte que</span></span></span></span><br />
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">mais interessa. O tutorial vai se basear em um novo projeto criado</span></span></span></span><br />
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">somente para demonstrar a geração do PDF.</span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><br /></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">Crie um novo projeto no Delphi e adicione no <b>Form1 </b>o componente</span></span></span></span><br />
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">ExportQR, um BitBtn e um Edit (esse Edit servirá para informar o</span></span></span></span><br />
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">diretório que você irá exportar o arquivo PDF).</span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><br /></span>
<span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">Após isso, adicione ao projeto um relatório que será nossa impressão</span><br />
<span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">(File > New > Other > Business > QuickReport Wizard). Deixe ambos</span><br />
<span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">os formulários sendo criados em tempo de execução no projeto (ou</span><br />
<span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">seja, eles tem que ficar em Auto-create forms na opção Project ></span><br />
<span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">Options > Forms. Não esqueça de deixar o </span><b style="color: #355880; font-family: Georgia, 'Times New Roman', serif; line-height: 20px; white-space: pre;">Form1 </b><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">acima na</span><br />
<span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">preferência do Auto-create forms.</span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
</div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><br /></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "georgia" , "times new roman" , serif; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;">Neste caso vou deixar o relatório (<b>Form2</b>) em branco, pois o objetivo</span></span></span></span><br />
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "georgia" , "times new roman" , serif; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;">é apenas demonstrar como transformá-lo em PDF e não propriamente</span></span></span></span><br />
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "georgia" , "times new roman" , serif; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; line-height: 20px; white-space: pre;">explorar as propriedades do Quick Report.</span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><br /></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">Volte ao formulário principal (<b>Form1</b>) e adicione a Unit do relatório,</span></span></span></span><br />
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">através do menu File > Use Unit...</span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><br /></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">Neste exemplo, pode- se colocar o seguinte texto na propriedade Text do</span></span></span></span><br />
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><b>Edit1 </b>para informar onde será salvo o arquivo PDF:</span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="text-align: justify;">
<span style="color: #355880;"><span style="font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><b><br /></b></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="text-align: justify;">
<pre style="background-image: URL(http://2.bp.blogspot.com/_z5ltvMQPaa8/SjJXr_U2YBI/AAAAAAAAAAM/46OqEP32CJ8/s320/codebg.gif); background: #f0f0f0; border: 1px dashed #CCCCCC; color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;"> Edit1.Text := 'C:\testePDF\testePDF'
</code></pre>
<br /></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">Dê dois cliques no BitBtn criado anteriormente e na ação do botão digite</span></span></span></span><br />
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">o seguinte:</span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><br /></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;">
</span></span></span><br />
<pre style="background-image: URL(http://2.bp.blogspot.com/_z5ltvMQPaa8/SjJXr_U2YBI/AAAAAAAAAAM/46OqEP32CJ8/s320/codebg.gif); background: #f0f0f0; border: 1px dashed #CCCCCC; color: black; font-family: arial; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><code style="color: black; word-wrap: normal;"> procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if (Edit1.Text = '') then
begin
MessageDlg('Especifique um local para a '+
'exportação !', mtError, [mbOK], 0);
Edit1.SetFocus;
Exit;
end
else
begin
Form2.QuickRep1.Prepare;
ExportQR1.Report := Form2.QuickRep1;
ExportQR1.ExportQRPDF(Edit1.Text, False);
end;
end;
</code></span></span></span></pre>
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;">
<span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"></span></span></span></span><br />
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><br /></span></span></span></span></span></span></span></span></div>
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">
Agora basta rodar a aplicação, informar um diretório válido no text do</span></span></span></span><br />
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">Edit e usar a criatividade para solucionar o problema de sua empresa.</span></span></span></span><br />
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><br /></span></span></span></span>
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">Após concluir esses passos, passe para a Parte 2 deste tutorial, que visa</span></span></span></span><br />
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">enviar o PDF gerado automaticamente por E-mail:</span></span></span></span><br />
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><a href="http://delphicomtorrada.blogspot.com.br/2014/09/gerar-pdf-no-delphi-7-partir-do-quick.html">(PARTE 2) Gerar PDF e enviá-lo por E-mail no Delphi 7: Enviar automaticamente por E-mail um PDF gerado pelo Delphi 7</a>.</span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-size: xx-small; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><br /></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "georgia" , "times new roman" , serif; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; font-size: xx-small; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><b>Conclusões</b></span></span></span></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><b><br /></b></span></span></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">Notamos neste artigo a facilidade de geração de arquivos PDF pelo</span></span></span></span></span></span><br />
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">Delphi 7 e o quanto isso nos pode ser útil no dia-a-dia. No</span></span></span></span></span></span><br />
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">próximo artigo mostrarei como encaixar automaticamente esse</span></span></span></span></span></span><br />
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">arquivo PDF gerado em uma rotina de envio de e-mail. Forte</span></span></span></span></span></span><br />
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">abraço e até o próximo tutorial.</span></span></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;"><br /></span></span></span></span></span></span></div>
<div 0cm="" 0pt="" class="Cdigo" margin:="" style="color: #384042; line-height: 21px; text-align: justify;">
<span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-color: initial; border-image: initial; border-left-width: 0px; border-right-width: 0px; border-style: initial; border-top-width: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; color: navy; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="border-bottom-width: 0px; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; font-family: "courier new"; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; vertical-align: top;"><span style="background-color: white; color: #355880; font-family: "georgia" , "times new roman" , serif; line-height: 20px; white-space: pre;">--</span></span></span></span></span></span><br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: left;">
<img src="https://blu170.mail.live.com/Handlers/ImageProxy.mvc?bicild=&canary=QWsAO3oa4Qw49bfGdcbNb0BmEWJ5qKt5DO1jzhyyqDo%3d0&url=http%3a%2f%2fs27.postimg.org%2fnq3yyctoz%2fAssinatura_Renato.png" style="background-color: white; color: navy; font-family: 'courier new'; font-size: 13px; text-align: justify;" /></div>
</div>
Renato F. O. Silvahttp://www.blogger.com/profile/09231773046250346507noreply@blogger.com31