O Erro que esta dando não é no Delphi eh de Banco de dados ...
Olhe o tipo do seu campo...
de uma pesquisada hein... www.firebase.com.br
abraço
2008/9/16 BandaLemuel <[EMAIL PROTECTED]>
> Marcos...
>
> Tentei do jeito que vc falou mas esta dando o mesmo erro....
>
> Sgue o codigo...
>
> Close;
> Sql.Clear;
> Sql.Text := 'INSERT INTO EMAIL VALUES ( :CDEML , :ASSUN , :ANEXO , :TEXTO
> )';
> ParamByName('CDEML').AsInteger := StrToInt( CDEML ) ;
> ParamByName('ASSUN').AsString := Trim( ASSUNTO );
> ParamByName('ANEXO').Value := ColocarValorNulo( ANEXO ) ;
> if TEXTO = nil then
> ParamByName('TEXTO').Value := null
> else
> ParamByName('TEXTO').Assign( RC );
> ExecSQL;
> Close;
>
> Tem alguma ideia.. ??? O banco é firebird...
>
> Vlw... Wesley ...
>
> From: Marcos Bernardo
> Sent: Tuesday, September 16, 2008 4:40 PM
> To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> Subject: Re: [delphi-br] Campo Blob
>
>
> Salve...
>
> Tente o Assing
>
> ParamByName('CAMPO').Assing(RichText);
>
> abraço
>
> Marcos Bernardo
>
> 2008/9/16 BandaLemuel <[EMAIL PROTECTED]<bandalemuel%40yahoo.com.br>
> >
>
> > Lista
> >
> > Ja procurei e não achei..´.. tenho um Richedit onde faço um texto
> > formatado.. preciso gravar ele em um campo blob... Alguem sabe como fazer
> > isso ?? Estou tentando assim...
> >
> > // Rodo este primeiro
> >
> > { Coloca Texto do RichedText para o TMemoryStream }
> > procedure TEmail.PegaTextoRichEdit(RC: TJvRichEdit);
> > const
> > OffSetMemoryStream : Int64 = 0 ;
> > begin
> > TEXTO := TMemoryStream.Create ;
> > RC.Lines.SaveToStream( TEXTO );
> > TEXTO.Position := OffSetMemoryStream ;
> > end;
> >
> > //Depois a SQL....
> >
> > Close;
> > Sql.Clear;
> > Sql.Text := 'INSERT INTO EMAIL VALUES ( :CDEML , :ASSUN , :ANEXO , :TEXTO
> > )';
> > ParamByName('CDEML').AsInteger := StrToInt( CDEML ) ;
> > ParamByName('ASSUN').AsString := Trim( ASSUNTO );
> > ParamByName('ANEXO').Value := ColocarValorNulo( ANEXO ) ;
> > if TEXTO = nil then
> > ParamByName('TEXTO').Value := null
> > else
> > ParamByName('TEXTO').LoadFromStream( TEXTO , ftFmtMemo );
> > ExecSQL;
> > Close;
> >
> > Ele esta dando um erro assim...
> > unknown ISC error 336397210
> > unknown ISC error 336397208
> > ñ sei o que pode ser.... Alguem já conseguiu isso... Wesley
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> __________ Information from ESET NOD32 Antivirus, version of virus
> signature database 3446 (20080916) __________
>
> The message was checked by ESET NOD32 Antivirus.
>
> http://www.eset.com
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
