paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: add support for ftFixedWideChar and ftWideMemo into xmldatapacketreader.

Browse Source 
git-svn-id: trunk@22997 -
This commit is contained in:
lacak 2012-11-16 12:59:57 +00:00
parent ccead0db7b
commit 544c7d8dbb
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/fcl-db/src/base/xmldatapacketreader.pp
View File

@ -65,7 +65,7 @@ implementation
uses xmlwrite, xmlread, base64;
const
XMLFieldtypenames : Array [TFieldType] of String[15] =
XMLFieldtypenames : Array [TFieldType] of String[16] =
(
'Unknown',
'string',
@ -90,8 +90,8 @@ const
'bin.hex:Ole',
'bin.hex:Graphics',
'',
'string',
'string',
'string', // ftFixedChar
'string', // ftWideString
'i8',
'',
'',
@ -105,8 +105,8 @@ const
'',
'',
'fixedFMT',
'',
''
'string', // ftFixedWideChar
'bin.hex:WideText' // ftWideMemo
);
resourcestring
@ -351,13 +351,13 @@ begin
AField := Fields.FieldByNumber(FieldDefs[FieldNr].FieldNo);
if (FieldDefs[FieldNr].DataType in [ftBlob, ftBytes, ftVarBytes]) and (s <> '') then
s := DecodeStringBase64(s);
if FieldDefs[FieldNr].DataType in [ftBlob, ftMemo] then
if FieldDefs[FieldNr].DataType in [ftBlob, ftMemo, ftWideMemo] then
begin
ABufBlobField.BlobBuffer:=ADataset.GetNewBlobBuffer;
AField.SetData(@ABufBlobField);
ABufBlobField.BlobBuffer^.Size:=length(s);
ReAllocMem(ABufBlobField.BlobBuffer^.Buffer,ABufBlobField.BlobBuffer^.Size);
move(s[1],ABufBlobField.BlobBuffer^.Buffer^,ABufBlobField.BlobBuffer^.Size);
AField.SetData(@ABufBlobField);
end
else
AField.AsString := s; // set it to the filterbuffer