BorlandTalk.com

Mathias Burbach · Guest

Hello Folks!

I have built my own TClientDataSet descendant and changed the
implementation of DoGetRecords as follows:

type
TMyClientDataSet = class(TCustomClientDataSet)
...

function TMyClientDataSet.DoGetRecords(Count: Integer;
out RecsOut: Integer; Options: Integer; const CommandText: WideString;
Params: OleVariant): OleVariant;
var
OwnerData: OleVariant;
cdsBuildUp: TClientDataSet;
begin
DoBeforeGetRecords(OwnerData);
cdsBuildUp := TClientDataSet.Create(Self);
try
PopulateCDS(cdsBuildUp, OwnerData);
RecsOut := cdsBuildUp.RecordCount;
Result := cdsBuildUp.Data;
finally
cdsBuildUp.Free;
end;
DoAfterGetRecords(OwnerData);
end;

TMyClientDataSet seems to bee happy with the cdsBuildUp.Data, I can see
the fields, I can scroll through the resultset (the RecordCount of
TMyClientDataSet is correct) but there is _no_ data visible.

I am afraid there is a subtle difference between the result of
AppServer.AS_GetRecords and my cdsBuildUp.Data. What would be the
correct way to pass on the data from cdsBuildUp to my class?

Thanks for a short answer in advance.

Salut,
Mathias