🚀 go-pugleaf

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 ;
     //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
    //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;
    //TWideStringField(ADOQuery1.FieldByName('xml')).AsString :=
TntMemo2.Lines.Text;

    // bstream :=
TADOBlobStream(ADOQuery1.CreateBlobStream(ADOQuery1.FieldByName('xml'),
bmReadWrite));
    //bstream.CopyFrom(stream, 0);

    ADOQuery1.Post;

    // ADOQuery1.Edit;
    // ADOQuery1.Recordset.Fields['xml'].Value := TntMemo2.Lines.Text;
    // ADOQuery1.Post;

    ADOConnection1.CommitTrans;
    //bstream.Destroy;
  except
    ADOConnection1.RollbackTrans;
  end;
  stream.free;
end;

Any suggestions?

Best regards

Michael