Devart Forums

Code: Select all

procedure TOraXML.LoadFromStream(Stream: TStream);
var
  Remainder, Readed: integer;
  BufLen: integer;
  Buffer: TBytes;
  Ptr: IntPtr;
begin
  CheckType;
  FreeObject;

  Stream.Seek(0, soFromBeginning);
  Remainder := Stream.Size;
  Readed := 0;
  while Remainder > 0 do begin
    if Remainder > 10000 then
      BufLen := 10000
    else
      BufLen := Remainder;

    SetLength(Buffer, BufLen);

    Stream.ReadBuffer(Buffer{$IFNDEF CLR}[0]{$ENDIF}, BufLen);

    if Readed + BufLen  0 then begin
      Ptr := Marshal.AllocHGlobal(Readed + BufLen + 1);  // added +1 to allocate place for zero byte
      FillChar(Ptr, Readed + BufLen + 1, 0);                     // memory clear with zero for any case
      if Readed  0 then
        CopyBuffer(CacheValue, Ptr, Readed);
      Marshal.Copy(Buffer, 0, IntPtr(Integer(Ptr) + Readed), BufLen);
      if CacheValue  nil then
        Marshal.FreeHGlobal(CacheValue);
      CacheValue := Ptr;
    end;

    Dec(Remainder, BufLen);
    Inc(Readed, BufLen);
  end;
end;

procedure TOraXML.SaveToStream(Stream: TStream);
var
  Buffer: TBytes;
  Len: integer;
begin
//  if CacheIsNull then begin
//    if ObjectIsNull then
//      Exit;
//    ReadXML;
//  end;
  if CacheValue = nil then
    Len := 0
  else
    Len := StrLen(CacheValue);
  SetLength(Buffer, Len);            // removed +1 to exclude zero byte
  if CacheValue  nil then
    Marshal.Copy(CacheValue, Buffer, 0 , Len); // removed +1 to exclude zero byte
  Stream.WriteBuffer(Buffer{$IFNDEF CLR}[0]{$ENDIF}, Len); // removed +1 to exclude zero byte
end;

Code: Select all

procedure Test;
var
  lStream: TMemoryStream;
begin
  with TOraStoredProc.Create(Nil) do begin
    Session := TEST_DB_SESSION;
    lStream := TMemoryStream.Create();
    lStream.Write('Test', 4);
    lStream.Seek(0, soFromBeginning);
    try
      Params.CreateParam(TFieldType(ftXML), 'Result', ptInputOutput);
      ParamByName('Result').AsXML.OCISvcCtx := Session.OCISvcCtx;
      ParamByName('Result').AsXML.LoadFromStream(lStream);
      lStream.Seek(0, soFromBeginning);
      ParamByName('Result').AsXML.SaveToStream(lStream);
    finally
      lStream.Free();
      Free();
    end;
  end;
end;