ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Converter HTML para RTF (RichEdit) [Resolvido]

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
faccruz
Colaborador
Colaborador


Registrado: Terça-Feira, 20 de Julho de 2010
Mensagens: 1561

MensagemEnviada: Qui Nov 16, 2017 10:55 am    Assunto: Converter HTML para RTF (RichEdit) [Resolvido] Responder com Citação

Bom dia,

Tenho um código html, e precisaria converter para rtf (richedit) formatado, é possível?

Cód. HTML:

_________________
Facc System - Sistemas para Computador


Editado pela última vez por faccruz em Ter Nov 28, 2017 10:47 am, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário
faccruz
Colaborador
Colaborador


Registrado: Terça-Feira, 20 de Julho de 2010
Mensagens: 1561

MensagemEnviada: Ter Nov 21, 2017 2:43 pm    Assunto: Responder com Citação

Alguém?
_________________
Facc System - Sistemas para Computador
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10209
Localização: Contagem/MG - BRAZIL

MensagemEnviada: Ter Nov 21, 2017 7:32 pm    Assunto: Responder com Citação

Veja se isto te ajuda:


http://www.swissdelphicenter.ch/en/showcode.php?id=1823

Outro meio é utilizar o word:

Código:
uses comobj
procedure TForm1.Button1Click(Sender: TObject);
var
  Wordapp : oleVariant;
  Doc : olevariant;
begin
  Wordapp := CreateOleObject('Word.Application') ;
  Doc := Wordapp.documents.Open('C:\SomeFile.htm');
  Doc.saveas('C:\SomeFile.rtf');
  wordapp.quit;
end;
end.


O jedi tem este componente o TJvRTFtoHTML, veja se ele faz o processo inverso.



bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB