🚀 go-pugleaf

Hello James,

I tried this but it didn't work. I just get rubbish when I try to store e.g.
japanese text.

Best regards

"James Peterson" <jpeterson@romanmealmilling.com> schrieb im Newsbeitrag
news:40e4291a$1@newsgroups.borland.com...
> 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
> >
> >
>
>