Aba IPro - Lazarus

Voltar

Aba IPro — HTML Nativo no Desktop

A aba IPro abriga os componentes do TurboPower Internet Professional. Em sistemas comerciais, às vezes precisamos mostrar texto muito bem formatado (tabelas, cores, negrito, imagens inline), e tentar fazer isso com um TRichMemo ou juntando vários TLabel é uma dor de cabeça. A solução é usar HTML nativo sem depender de navegadores externos como o Chromium (que traz dezenas de DLLs pesadas).

TIpHtmlPanel — Renderizador HTML Principal

Você joga ele no seu formulário e passa uma string ou arquivo de texto contendo código HTML para ele. Ele vai ler as tags (<b>, <table>, <h1>) e desenhar tudo na tela.

Limitação importante: ele é um renderizador de HTML 3.2/4.0 com CSS simples. Não roda JavaScript, não suporta CSS Grid/Flexbox moderno. Ele foi feito para exibir conteúdo estático gerado pelo seu próprio sistema — não para navegar na internet.
// Exibir relatório financeiro em HTML com dados do Firebird: var HTML: TStringList; HTML := TStringList.Create; try HTML.Add('<html><body style="font-family:Arial;font-size:12px">'); HTML.Add('<h2 style="color:#764ba2;border-bottom:2px solid #764ba2">'); HTML.Add('Resumo de Vendas — ' + FormatDateTime('dd/mm/yyyy', Date) + '</h2>'); HTML.Add('<table border="1" cellpadding="4" cellspacing="0" width="100%">'); HTML.Add('<tr bgcolor="#764ba2"><th style="color:white">Cliente</th>' + '<th style="color:white">Notas</th>' + '<th style="color:white">Total</th></tr>'); qryVendas.First; var Cor: String := '#f0e6ff'; while not qryVendas.Eof do begin HTML.Add('<tr bgcolor="' + Cor + '">'); HTML.Add('<td>' + qryVendas.FieldByName('FANTASIA').AsString + '</td>'); HTML.Add('<td align="center">' + qryVendas.FieldByName('QTD_NOTAS').AsString + '</td>'); HTML.Add('<td align="right">R$ ' + FormatFloat('##.##0,00', qryVendas.FieldByName('TOTAL').AsCurrency) + '</td>'); HTML.Add('</tr>'); if Cor = '#f0e6ff' then Cor := '#ffffff' else Cor := '#f0e6ff'; // Zebra qryVendas.Next; end; HTML.Add('</table></body></html>'); IpHtmlPanel1.SetHtmlFromStr(HTML.Text); finally HTML.Free; end;

TIpFileDataProvider — Imagens do Disco

Quando o HTML contém <img src="logo.png">, o TIpHtmlPanel não sabe como buscar esse arquivo sozinho. O TIpFileDataProvider vai ao disco rígido e traz a imagem para exibir.
// Ligar o provedor ao painel (Object Inspector ou código): // IpHtmlPanel1.DataProvider := IpFileDataProvider1 // No HTML: <img src="C:\Sistema\logo_empresa.png" width="100" height="50"> // O TIpFileDataProvider busca automaticamente o arquivo no disco. // Para usar caminhos relativos à pasta do sistema: IpFileDataProvider1.DefaultProtocol := 'file://';

TIpHttpDataProvider — Recursos da Web

Faz a mesma coisa que o FileDataProvider, mas busca os recursos na internet. Se o HTML tiver <img src="https://ribasoft.com.br/logo.png">, este provedor baixa a imagem via HTTP em tempo real para exibir na tela.

Útil para dashboards que exibem ícones ou recursos hospedados no servidor central da empresa.

Cenários Práticos em ERP

Preview de E-mails HTML (Casamento com ACBr)

Hoje em dia, enviar e-mails de cobrança ou notas fiscais apenas com texto puro é feio. O ideal é montar um HTML bonito com o logo da empresa e uma tabela com os dados da NFe. Antes de dar o comando de enviar pelo ACBrMail, você pode jogar o código HTML gerado dentro de um TIpHtmlPanel em uma tela de "Preview". O usuário vê exatamente como o e-mail vai aparecer na caixa de entrada do cliente.
Dashboards Gerenciais

Em vez de usar um TDBGrid duro para mostrar um resumo financeiro, você monta uma <table> em HTML com cores, totais em negrito e ícones. Fica com cara de sistema web moderno rodando nativamente no Desktop.
Tela "O que há de Novo?"

Quando atualizar o sistema no cliente, exiba uma tela com as novidades da versão. Em vez de um arquivo .txt sem formatação, carregue um HTML bonitinho listando as correções e novas funcionalidades.
// Ao iniciar o sistema após uma atualização: var ArquivoNovidades: String; ArquivoNovidades := ExtractFilePath(Application.ExeName) + 'novidades_v' + Versao + '.html'; if FileExists(ArquivoNovidades) then begin IpHtmlPanel1.LoadFromFile(ArquivoNovidades); FormNovidades.ShowModal; // Mostra a tela de novidades end;

RibaSoft

Desenvolvimento de Sistemas para Automação Comercial

Aba IPro — HTML Nativo no Desktop

TIpHtmlPanel — Renderizador HTML Principal

TIpFileDataProvider — Imagens do Disco

TIpHttpDataProvider — Recursos da Web

Cenários Práticos em ERP

Preview de E-mails HTML (Casamento com ACBr)

Dashboards Gerenciais

Tela "O que há de Novo?"