Já tentei quase tudo.
Tenho um sistema em DelphiXe6 com PostgreSQL, nele tenho alguns campos tipo Text que preciso gravar textos formatados (negrito, itálico, cor de fundo, etc) tipo word, funciona blz, a não ser o seguinte, quando gravo o texto pela primeira vez ele grava corretamente, mas se eu edito o texto ele grava um monte de ??????????????? interrogações bagunçando tudo. A forma como carrego o texto no editor está abaixo:
if (zqrOrcItens.RecordCount = 0) then
begin
TFuncoes.pMensagem('Não existem itens na lista para editar');
Exit;
end;
fdm.Salvar := False;
fdm.RichStream := TStringStream.Create('');
zqrOrcItensTexto.SaveToStream(fdm.RichStream);
f_richedit := Tf_richedit.Create(nil);
fdm.RichStream.Position := 0;
f_richedit.RichEdit.Lines.LoadFromStream(fdm.RichStream);
TFuncoes.pJustRichEdit(f_richedit.RichEdit, False);
f_richedit.ShowModal;
if (fdm.Salvar) then
begin
zqrOrcItens.Edit;
fdm.RichStream.Position := 0;
zqrOrcItensTexto.LoadFromStream(fdm.RichStream); // AsString := fdm.RichStream.DataString;
zqrOrcItenstexto_puro.AsAnsiString := fdm.TextoPuro;
zqrOrcItens.Post;
fdm.zConecta.Commit;
end;
FreeAndNil(fdm.RichStream);
Eu guardo o texto formatado e o texto puro pra não perder o que foi digitado, o texto puro grava numa boa, ma o formatado bagunça com ?????????????
Maldita hora que fui escolher o RichEdit pra guardar textos, mas esse sistema tem muitos anos e na época era o que tinha de opção, a base já esta carregada com esses textos e não dá pra editar tudo e transformar em html
Preciso de uma dica de como trabalhar com RichEdit e nao ter esse problema
Já testei muitos tipos de Charsets hoje uso UTF8, o que deveria resolver o problema, mas não resolveu.