Fórum Gravar corpo de uma mensagem de e-mail em um campo tipo text do postgresql #458179
10/10/2013
0
o detalhe é assim: leio o corpo da mensagem com e jogo em um objeto richedit onde nele a propriedade plaintext está marcada e a wanttab e want return tb, depois passo o parâmetro :corpo_mensagem e na hora de mandar na Zeoslib query coloco zquery.parambyname(:corpo_mensagem).value := richedit.text, textos sem apostrofe ele grava que é um espetáculo, mas quando aparece essa porcaria ele dá pau.
se alguém puder me ajudar eu desde já agradeço.
att.
Julio
Fundação Aparecida
Curtir tópico
+ 0Posts
10/10/2013
Fundação Aparecida
Gostei + 0
11/10/2013
Marcos Oliveira
Fiz um teste aqui e funcionou com o código abaixo:
RichEdit1.Text := StringReplace(RichEdit1.Text,'''','',[rfReplaceAll]);
Att,
Marcos
Gostei + 0
11/10/2013
Fundação Aparecida
valeu
Gostei + 0
15/10/2013
Fundação Aparecida
Gostei + 0
15/10/2013
Marcos Oliveira
Caso não te atenda 100%, é só fazer as adequações necessárias.
function RemoveTags(const s: string): string;
var
i: Integer;
InTag: Boolean;
begin
Result := '';
InTag := False;
for i := 1 to Length(s) do
begin
if s[i] = '<' then
inTag := True
else if s[i] = '>' then
inTag := False
else if not InTag then
Result := Result + s[i];
end;
end;
Att,
Marcos
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)