mORMot Open Source

itSDS

Member

From: Germany

Registered: 2014-04-24

Posts: 516

Cosmetic: Removing 3 warnings from SynDBDataset for XE7

Line 350ff

      SetLength(result, TField(ColumnAttr).DataSize);
// itSDS     TField(ColumnAttr).GetData(pointer(result));
      TField(ColumnAttr).GetData(TValueBuffer(result));

Replace Pointer with TValueBuffer

line 706ff

          if aArrayIndex>=0 then
{ itSDS
            P.SetBlobData(pointer(VArray[aArrayIndex]),Length(VArray[aArrayIndex])) else
            P.SetBlobData(pointer(VData),Length(VData));
}
            P.SetBlobData(TValueBuffer(VArray[aArrayIndex]),Length(VArray[aArrayIndex])) else
            P.SetBlobData(TValueBuffer(VData),Length(VData));
          {$else}

GetData and SetBlobData with Pointer as Param are deprecated

Last edited by itSDS (2014-10-01 08:59:20)

---

Rad Studio 12.1 Santorini

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,661

Website

Re: Cosmetic: Removing 3 warnings from SynDBDataset for XE7

Should be fixed by http://synopse.info/fossil/info/8fd71c3063

Thanks for the feedback!

miab3

Member

From: Poland

Registered: 2014-10-01

Posts: 188

Re: Cosmetic: Removing 3 warnings from SynDBDataset for XE7

@ab,

This applies perhaps only XE7.
XE2 throws an error.

Michal

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,661

Website

Re: Cosmetic: Removing 3 warnings from SynDBDataset for XE7

Should be fixed by http://synopse.info/fossil/info/4df0a3086

miab3

Member

From: Poland

Registered: 2014-10-01

Posts: 188

Re: Cosmetic: Removing 3 warnings from SynDBDataset for XE7

@ab,

So now is good(1.18.311).

Michal