[firebase-br] Campo Blob para String (Texto)

[Samir Oliveira Costa]

Pessoal, pode deixar, resolvi aqui, fazendo um ajuste técnico.

    MS := TMemoryStream.Create;
    (SQLQuery1.FieldByName('OBSERVACAO') as TBlobField).SaveToStream(MS);
    MS.Position := 0;
    RichEdit1.Lines.Clear;
    RichEdit1.Lines.LoadFromStream(MS);
    cb := Clipboard;
    cb.Clear;
    RichEdit1.SelectAll;
    RichEdit1.CopyToClipboard;
    Sheet.Cells[i,26]:= cb.AsText;
    cb.Free;
    ms.Free;

valeu.

Em 20 de agosto de 2015 21:34, Samir Oliveira Costa <sysleilao em gmail.com>
escreveu:

> Pessoal tenho um campo Blob onde gravo apenas texto, as vezes com
> formatação.
>
> fazendo uma simples consulta e jogando em um SQLQUERY o resultado dele é
> esse:
>
> "{\rtf1\ansi\ansicpg1252\deff0\deflang1046{\fonttbl{\f0\fnil\fcharset0
> Arial;}{\f1\fnil Arial;}}
> \viewkind4\uc1\pard\fs20 Seu pai \b URUTU "
>
> Não consigo usando um CAST para Varchar pois da um erro de
> imcompatibilidade.
>
> O resultado esperado seria apenas "Seu pai URUTU ....", sem esses
> caracteres de formatação.
>
> Alguém pode me ajudar?
>
> Estou usando Delphi7 e o Firebird 2.5.3
>
> Obrigado.
>
>
> --
> Qualquer dúvida entrar em contato.
>
> Samir Costa
> Programador Pleno
> Técnico em Informática
> Bacharel em Sistemas de Informação
> (34) 3322-7995 - (34) 9148-5670 - TIM - WhatsApp
> Uberaba - MG
> msn: sysleilao em gmail.com
> site: www.sysleilao.com.br
>



-- 
Qualquer dúvida entrar em contato.

Samir Costa
Programador Pleno
Técnico em Informática
Bacharel em Sistemas de Informação
(34) 3322-7995 - (34) 9148-5670 - TIM - WhatsApp
Uberaba - MG
msn: sysleilao em gmail.com
site: www.sysleilao.com.br