TParam Blob/Memo in Stream ohne Unicodeumwandlung

[dataspider]

Ja - richtig.

Bisher habe ich diesen Code verwendet.

Delphi-Quellcode:

AStream.SetSize(AParam.GetDataSize);
AParam.GetData(AStream.Memory);

Kannst du mir evtl. noch sagen, wie ich die 2. Zeile ändern muss?

Danke, Frank

[EDIT]

ich habe es jetzt so:

Delphi-Quellcode:

procedure TParamHelper.SaveToStream(AStream: TMemoryStream);
Var
  Buffer: PByte;
begin
  if not IsNull and (GetDataSize > 0) then
  begin
    AStream.Position := 0;
    GetMem(Buffer, GetDataSize);
    try
      GetData(Buffer);
      AStream.WriteBuffer(Pointer(Buffer)^, GetDataSize);
    finally
      FreeMem(buffer);
    end;
    AStream.Position := 0;
  end;
end;

Das scheint erst mal zu funktionieren.