Ao trabalhar com o Delphi, o TWebBrowser componente permite que você crie um Aplicativo de navegação na Web ou para adicionar recursos de navegação na Internet, arquivos e rede, exibição de documentos e download de dados aos seus aplicativos.
Como salvar uma página da Web do TWebBrowser
Ao usar o Internet Explorer, você pode exibir o código HTML de origem de uma página e salvá-la como um arquivo na unidade local. Se estiver visualizando uma página que deseja manter, vá para o arquivo / Salvar como... item do menu. Na caixa de diálogo exibida, você tem vários tipos de arquivos oferecidos. Salvar a página como um tipo de arquivo diferente afetará como a página é salva.
O componente TWebBrowser (localizado na página "Internet" da Paleta de componentes) fornece acesso à funcionalidade do navegador da Web a partir do seu Aplicações Delphi. Em geral, convém ativar o salvamento de uma página da Web exibida dentro de um WebBrowser como um arquivo HTML em um disco.
Salvando uma página da Web como um HTML bruto
Se você deseja salvar apenas uma página da Web como HTML bruto, selecione "Página da Web, apenas HTML (* .htm, * .html)". Ele simplesmente salvará o HTML de origem da página atual em sua unidade intacta. Essa ação NÃO salvará os gráficos da página ou quaisquer outros arquivos usados dentro da página, o que significa que se você carregasse o arquivo novamente do disco local, veria links de imagem quebrados.
Veja como salvar uma página da Web como HTML bruto usando o código Delphi:
Amostra de uso:
Notas
- As interfaces IPersistStreamInit e IStream são declaradas dentro da unidade ActiveX.
- A página da web é salva como HTML bruto no arquivo WebBrowser1.html na pasta raiz da unidade C.
MHT: arquivo da web, arquivo único
Quando você salva uma página da Web como "Arquivo da Web, arquivo único (* .mht)", o documento da Web é salvo no formato MHTML (Multipurpose Internet Mail Extension HTML) com uma extensão de arquivo .mht. Todos os links relativos na página da Web são remapeados e o conteúdo incorporado é incluído no arquivo .mht, em vez de ser salvo em uma pasta separada (como é o caso da "Página da Web, complete (* .htm, * .html) ").
O MHTML permite enviar e receber páginas da Web e outros documentos HTML usando programas de email como o Microsoft Outlook e o Microsoft Outlook Express; ou mesmo suas soluções personalizadas de envio de e-mail Delphi. O MHTML permite incorporar imagens diretamente no corpo de suas mensagens de email, em vez de anexá-las à mensagem.
Veja como salvar uma página da Web como um único arquivo (formato MHT) usando o código Delphi:
Uso da amostra:
Nota
- A classe _Stream é definida na unidade ADODB_TLB que você provavelmente já criou. O IMessage e o IConfiguration interfaces codificam da biblioteca cdosys.dll. CDO significa Collaboration Data Objects - bibliotecas de objetos projetadas para habilitar o SMTP Messaging.
O CDO_TLB é uma unidade gerada automaticamente pelo Delphi. Para criá-lo, no menu principal, selecione "Import Type Library", selecione "C: \ WINDOWS \ system32 \ cdosys.dll" e clique no botão "Criar unidade".
No TWebBrowser
Você pode reescrever o procedimento WB_SaveAs_MHT para aceitar uma string de URL (não TWebBrowser) para poder salvar uma página da Web diretamente - não é necessário usar o componente WebBrowser. A URL do WebBrowser é recuperada usando a propriedade WB.LocationURL.