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]
