Salve...
Tente o Assing
ParamByName('CAMPO').Assing(RichText);
abraço
Marcos Bernardo
2008/9/16 BandaLemuel <[EMAIL PROTECTED]>
> 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]
