🚀 go-pugleaf

try something like this

 TStream *Blob
=ADOQuery1->CreateBlobStream(ADOQuery1->FieldByName("nTextField"), bmWrite);
    try {
        RichEdit7->Lines->SaveToStream(Blob);
    }
    __finally {
        delete Blob;
    }

  This works for me reading from a RichEdit. Saves all formating of
charactors and everything.



"Michael Kuhl" <no_emails@gmx.de> wrote in message
news:40e427af$1@newsgroups.borland.com...
> Hello,
>
> I'm trying to save an unicode text (memo) to a ntext field. I tried
several
> ways to store the text (like you see below) but non of them worked (I'm
only
> getting questions marks when I read out the data). My nvarchar field is
> working fine.
>
> I'm using Delphi 5 and the Tnt Components.
>
> procedure TForm1.Button1Click(Sender: TObject);
> var  stream: TStringStream ;
>      file://bstream: TADOBlobStream;
> begin
>   stream := TStringStream.Create('');
>   try
>     ADOConnection1.BeginTrans;
>
>     ADOQuery1.Append;
>     ADOQuery1.FieldByName('id').AsInteger       := StrToInt(Edit1.Text);
>     ADOQuery1.FieldByName('Text').AsVariant     := TntEdit1.Text; //
> nvarchar
>     file://ADOQuery1.FieldByName('xml').AsVariant := '';  // ntext
>
>     stream.size := 0;  // Inhalt l�schen
>     TntMemo2.Lines.SaveToStream(stream, false);
>     stream.Position := 0;
>     // TBlobField(ADOQuery1.FieldByName('xml')).LoadFromStream(stream);
>
>     TWideStringField(ADOQuery1.FieldByName('xml')).AsVariant :=
> TntMemo2.Lines.Text;
>     file://TWideStringField(ADOQuery1.FieldByName('xml')).AsString :=
> TntMemo2.Lines.Text;
>
>     // bstream :=
> TADOBlobStream(ADOQuery1.CreateBlobStream(ADOQuery1.FieldByName('xml'),
> bmReadWrite));
>     file://bstream.CopyFrom(stream, 0);
>
>     ADOQuery1.Post;
>
>     // ADOQuery1.Edit;
>     // ADOQuery1.Recordset.Fields['xml'].Value := TntMemo2.Lines.Text;
>     // ADOQuery1.Post;
>
>     ADOConnection1.CommitTrans;
>     file://bstream.Destroy;
>   except
>     ADOConnection1.RollbackTrans;
>   end;
>   stream.free;
> end;
>
> Any suggestions?
>
> Best regards
>
> Michael
>
>