[firebase-br] Campo Blob para String (Texto)
Samir Oliveira Costa
sysleilao em gmail.com
Qui Ago 20 21:54:02 -03 2015
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
Mais detalhes sobre a lista de discussão lista