TParam Blob/Memo in Stream ohne Unicodeumwandlung

[dataspider]

Hi

Da TParam.GetData veraltet ist, wollte ich es ersetzen.
Dazu habe ich eine helper class TparamHelper:

Delphi-Quellcode:

procedure TParamHelper.SaveToStream(AStream: TStream);
begin
  if not IsNull and (GetDataSize > 0) then
  begin
    AStream.Position := 0;
    AStream.WriteBuffer(AsBlob[0], Length(AsBlob));
    {
    case DataType of
      ftMemo: AStream.WriteData(AsString[1], Length(AsString));
      ftBlob: AStream.WriteBuffer(AsBlob[0], Length(AsBlob));

    end;
    }
    AStream.Position := 0;
  end;
end;

Wenn DataType des Parameters ftBlob ist, ist alles OK.
Wenn DataType des Parameters ftMemo ist, werden meine Strings zu Unicode mit jeweils 2 Zeichen, also ein a ist dann 61 00.

Was muss ich tun, dass im Memorystream die Strings wie in der DB gespeichert als ANSI ankommen.

Danke

Frank