GPF en RichEdit HTMLToRTF
Publicado: Sab Feb 17, 2018 10:45 am
Estoy tratando de tener un editor para procesar mails y el texto sea en format HTML.
Bien, los mails los envio perfectamente en ese formato con la clase TCDOMail... el problema lo tengo en que no puedo "escribir" modificar ese texto con un control TRichEdit. El Sample de Xailer no funciona para ese tipo de texto/archivos (aunque adentrado en el código lo pareciera, parece no estar terminado el ejemplo)... y siguiendo los pasos de la ayuda de la clase:
TRichEdit:HTMLToRTF
Convierte el archivo HTML a RTF y lo inserta en el control.
Sólo después de Create()
Parámetros
<cFile>:
Nombre del fichero
<lInsert>:
Insertar el archivo
Valor Retorno
<lOk>:
Verdadero si éxito
Lo intento así,
pero lanza un enorme GPF !!!
Hago algo mal???
Gracias.
Bien, los mails los envio perfectamente en ese formato con la clase TCDOMail... el problema lo tengo en que no puedo "escribir" modificar ese texto con un control TRichEdit. El Sample de Xailer no funciona para ese tipo de texto/archivos (aunque adentrado en el código lo pareciera, parece no estar terminado el ejemplo)... y siguiendo los pasos de la ayuda de la clase:
TRichEdit:HTMLToRTF
Convierte el archivo HTML a RTF y lo inserta en el control.
Sólo después de Create()
Parámetros
<cFile>:
Nombre del fichero
<lInsert>:
Insertar el archivo
Valor Retorno
<lOk>:
Verdadero si éxito
Lo intento así,
Código: Seleccionar todo
METHOD FormInitialize( oSender ) CLASS TFrmFraMail
Local cHtml, n
cHtml := "<HTML>"
cHtml += "<HEAD>"
cHtml += "<BODY>"
cHtml += "<b> This is the test HTML message body.</b></br>"
cHtml += "</BODY>"
cHtml += "</HTML>"
n := FCreate( "D:\Prueba.htm" )
FWrite( n, cHtml )
FClose( n )
RETURN Nil
//------------------------------------------------------------------------------
METHOD Button1Click( oSender ) CLASS TFrmFraMail
Local oRich1
WITH OBJECT oRich1 := TRichEdit():New( Self )
:SetBounds( 0, 100, 619, 238 )
:lParentFont := .F.
:oFont := TFont():Create( "Arial", 10, 0, 400 )
:Create()
END
LogDebug( oRich1:lHTML ) //Devuelve .T.
oRich1:HTMLToRTF( "D:\Prueba.htm", .T. )
RETURN Nil
- Captura.PNG (82.1 KiB) Visto 3243 veces
Gracias.