pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fix blob support in rxMemDataSet

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1156 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2010-02-08 20:19:26 +00:00
parent 4c0d2981e5
commit 1750ddb3a5
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/rx/rxmemds.pas
View File

@ -407,8 +407,8 @@ begin
if Value.BlobFieldCount > 0 then
begin
GetMem(FBlobs, Value.BlobFieldCount * SizeOf(TMemBlobData));
FillChar(FBlobs^, Value.BlobFieldCount * SizeOf(Pointer), 0);
FinalizeBlobFields(FBlobs, Value.BlobFieldCount);
// FillChar(FBlobs^, Value.BlobFieldCount * SizeOf(Pointer), 0);
// Initialize(PMemBlobArray(FBlobs)^[0]);//, Value.BlobFieldCount);
end;
DataSize := 0;
@ -604,14 +604,15 @@ end;
function TRxMemoryData.AllocRecordBuffer: PChar;
begin
Result := StrAlloc(FRecBufSize);
FillChar(Result^, FRecBufSize, 0);
InternalInitRecord(Result);
{ FillChar(Result^, FRecBufSize, 0);
if BlobFieldCount > 0 then
begin
// Initialize(PMemBlobArray(Result + FBlobOfs)^[0]);//, BlobFieldCount);
// FillChar(PMemBlobArray(Result + FBlobOfs)^, BlobFieldCount * SizeOf(Pointer),0);//, BlobFieldCount);
FinalizeBlobFields(PMemBlobArray(Result + FBlobOfs), BlobFieldCount);
end;
end;}
end;
procedure TRxMemoryData.FreeRecordBuffer(var Buffer: PChar);
@ -633,8 +634,11 @@ var
I: Integer;
begin
FillChar(Buffer^, FBlobOfs, 0);
FillChar(PByteArray(Buffer + FBlobOfs)^, BlobFieldCount * SizeOf(Pointer), 0);
for I := 0 to BlobFieldCount - 1 do
begin
PMemBlobArray(Buffer + FBlobOfs)^[I] := '';
end;
end;
procedure TRxMemoryData.InitRecord(Buffer: PChar);