Salvar o texto e a formata��o no banco... como fa�o isso??

Question

Ol� e obrigado por ter dado uma olhada aqui  :wink: Estou querendo deixar salva a formata��o de um texto(Negrito, It�lico, Justificar... etc.) no banco de dados (estou usando Mysql/Windows) O texto � ...

Moonlight · Answer

Olha, se tem um jeito mais f�cil eu n�o sei... mas j� fiz isso assim:
O texto gravei normal, s� o que estava escrito mesmo... e criei esses campos na minha tabela: FontColor, FontName, FontSize, FontStyle.
Com exce��o do FontSize que era num�rico, os outros todos eram varchar.

O FontName e o FontSize vc n�o tem problemas para gravar : simplesmente pegue o valor e jogue no banco. Pro FontColor vc vai ter que usar uma funcao de convers�o nativa do Delphi... ele tem l� a StringToColor e ColorToString. De boa tb.
Meu problema maior foi o FontStyle - visto que ele � um vetor do tipo TFontStyles. A� fiz uma funcaozinha simples que - por comparacao - descobre quais estilos est�o no vetor, e transforma pra string. E o inverso tamb�m.
Tenta a�, se vc n�o conseguir fala que te ajudo mais. Se houver uma solu��o melhor eu tb gostaria de saber.

Btovix · Answer

Ol� Valeu mesmo pela for�a mas tenho umas d�vidas pra tirar com voc�.
Muito boa solu��o, mas pelo que eu entendi se eu marcar como it�lico o texto todo vir� em it�lico certo??? Preciso de que somente a parte que ficou marcada em It�lico continue It�lico e o resto do texto prossiga com sua formata��o... estou pensando nisso mas ainda n�o tive uma luz... se vc souber como fazer gostaria que me mostrasse como

[]�s e muito obrigado novamente... :wink:

Moonlight · Answer

Deixa eu entender melhor.. vc quer tipo, deixar [b:25e442f7ef]assim[/b:25e442f7ef] n�o �?
Como vc vai fazer pra pessoa colocar isso? Vai colocar uns tags ou coisa do tipo? S� tou tentando entender... valeu

Btovix · Answer

O C�digo para fazer [b:aa900ffcc9]Isso[/b:aa900ffcc9] � esse aqui:

[b:aa900ffcc9]procedure[/b:aa900ffcc9] Form1.bt_negritoClick(Sender: TObject);
[b:aa900ffcc9]begin[/b:aa900ffcc9]
if fsbold in Texto.SelAttributes.Style then
Texto.SelAttributes.Style := Texto.SelAttributes.Style - [fsbold]
else
Texto.SelAttributes.Style := Texto.SelAttributes.Style + [fsbold];
[b:aa900ffcc9]end;[/b:aa900ffcc9]

N�o fa�o uso tags, simplismente faco uso dessa procedure e esse campo Texto � um RichEdit...

Espero que vc tenha entendido :) Vai desculpando qualquer coisa...

[]�s e aguardo sua resposta
At� mais...

Moonlight · Answer

Eu que pe�o desculpas : realmente da primeira vez eu tinha entendido diferente.
Agora eu que tou querendo saber como faz, hehe. O que eu posso pensar (e n�o sei se vai ser a melhor resposta) � vc adicionar uns tags. Tipo <b> e </b>, sei l�. A� vc tem uma tabela de simbolos que te diz que <b> � pra colocar negrito at� onde vc achar o </b>.
E voc� armazena o texto, no banco, com as tags... antes de exibi-lo novamente, vai ter q interpretar tudo.
Foi meio duh? Nem sei. De qq forma, gostaria de saber qdo vc resolvesse esse prob

Btovix · Answer

Muito obrigado pela dica, mas a gente optou por esta outra solu��o aqui:

Usamos um Campo do tipo RichEdit Marcamos a op��o [b:4a50f39aed]Plain Text[/b:4a50f39aed] no object inspector para false (ela j� vem marcada dessa op��o) isso vai fazer com que seja poss�vel inserir �peda�os� de texto com formata��es diferentes

Criamos uma v�ri�vel do tipo MemoryStream e na hora de inserir no banco passamos para ela o texto formatado e inserimos essa vari�vel no banco e quando formos puxar de volta o vem formatado

Segue o c�digo para inserir no banco:

[b:4a50f39aed]// declarei a vari�vel MS l� em cima mas dou create s� aqui...[/b:4a50f39aed]
MS := TMemoryStream.Create;
[b:4a50f39aed]// O texto do rich edit(re_aconpanhamento) est� sendo inserido na vari�vel �MS�[/b:4a50f39aed]
re_acompanhamento.Lines.SaveToStream(MS);
[b:4a50f39aed]// Coloco a vari�vel MS na posi��o inicial [/b:4a50f39aed]
MS.Position := 0;
[b:4a50f39aed]// e insiro no banco por par�metro[/b:4a50f39aed]
fr_dados.qr_ins_prontuario.ParamByName(�DS_ACOMPANHAMENTO�).LoadFromStream(MS,ftBlob);

Espero que tenha te ajudado, qualquer d�vida continua postando aqui! :)
E novamente valeu por ter dado a dica... achei muito interessante! []�s

Btovix · Answer

N�o tinha colocado aqui como que se faz para retirar de dentro da query o texto formatado.. e�s� fazer o processo inverso, vou escrever aqui o c�digo:

Para pegar os dados e jogar num rich edit
dentro de um evento do tipo [b:ef6e8d2435]onclick[/b:ef6e8d2435]
[b:ef6e8d2435]// fazer o processo inverso...[/b:ef6e8d2435]

[b:ef6e8d2435]// Create no MS, novamente...[/b:ef6e8d2435]
MS := TMemoryStream.Create;
[b:ef6e8d2435]// pega a query e converte o campo pra stream[/b:ef6e8d2435]
fr_dados.qr_prontXpacDS_ACOMPANHAMENTO.SaveToStream(MS);
[b:ef6e8d2435]// joga na posi��o inicial[/b:ef6e8d2435]
MS.Position := 0;
[b:ef6e8d2435]// insere no campo rich edit [/b:ef6e8d2435]
re_acompanhamento.Lines.LoadFromStream(MS);
[b:ef6e8d2435]// libera a vari�vel da mem�ria[/b:ef6e8d2435]
MS.Free;

Lembrem-se de acrescentar essa �ltima linha ([b:ef6e8d2435]MS.Free;[/b:ef6e8d2435]) no C�digo anterior para liberar da mem�ria o Ms se n�o d� problema na hora de usar este outro e tb a n�o ser que vc d� o create em outro lugar;
prefiro colocar o create aqui por causa do controle...

[]�s qualquer d�vida podem entrar em contato....

Smaug_84 · Answer

tem um jeito mais facil,so que agora estouy no trabalho, amanha de manha passo para vcs, da pra pegar como o testo � feito tipo assim:ola//////bomdia/////////nossa quanta barra///e dai vc salva isso no db e quando for carregar denovo no rich edit ja fica tudo formatadoamanha de manha eu passo...

F�rum Salvar o texto e a formata��o no banco... como fa�o isso?? #181595