Gravar Detalhamento de Proposta com Formatção

[marcioe]

Olá a Todos os amigos, 
Temos um Cliente que Faz Caldeiras, e na proposta comercial (orçamento) ele tem que fazer uma descrição do equipamento, ou seja um breve relato etc..

porem o cliente quer que seja armazenado esse texto, até TRANQUILO, porem preciso que seja armazenado com formatação Tipo Word
Negrito, etc..

Teria como fazer isso no Five 
Meu banco de dados é MYSQL

[Ariston Santos]

Já tentou com RICHEDIT. Acho que dá pra salvar em BLOB (Memo) ?

#include "Richedit.ch"
FUNCTION TESTRICH()
   local oDlg, oRich
   local hRichDLL
   local lSyntaxHL := .f.

   hOldRes := GetResources()
   hRichDLL := LoadLibrary( "riched20.dll" )

   DEFINE DIALOG oDlg NAME "Test"
   oRich = TRichEdit():Redefine( 100, { || "" }, oDlg )
   oRich:lHighLight = .f.
   oRich:lreadonly := .t.

   REDEFINE BUTTON ID 110 ;
      ACTION oRich:SetText( MemoRead( "TestRich.prg" ) )

   REDEFINE CHECKBOX lSyntaxHL ID 115 OF oDlg ;
      ON CHANGE ( oRich:lHighLight := lSyntaxHL,;
                  oRich:SetText( oRich:GetText() ) )

   REDEFINE BUTTON ID 120 ;
      ACTION oRich:LoadFromRTFFile( cGetFile( "RTF file (*.rtf) | *.rtf" ) )

   REDEFINE BUTTON ID 130 ;
      ACTION oRich:SaveToRTFFile( cGetFile( "RTF file (*.rtf) | *.rtf",;
                                  "Please write a filename", "test" ) )

   REDEFINE BUTTON ID 998 ACTION ( oRich:GoToLine( 10 ), oRich:SetFocus() )

   ACTIVATE DIALOG oDlg CENTERED ON INIT SetResources(hRichDLL)
   FreeLibrary( hRichDLL )
   SetResources(hOldRes)

RETURN NIL

 

[Jmsilva]

Olá com uso da classe trichedit vc formata dados padrão word, exemplo acima, como vai ter caracteres estranhos, vc comverte para hex e grava no mysql. Strtohex e para recuperar hextostr.

 

Jmsilva, Caraguá/SP