Streaming TClientDataSet с использованием Datasnap в Delphi XE6

Question

Я пытаюсь передать TClientDataSet, используя Datasnap в Delphi XE6. Тем не менее, я продолжаю получать ошибку «Пропущенный поставщик данных или пакет данных» в кодах на стороне клиента.

// Клиент

procedure TForm2.Button1Click(Sender: TObject); 
var 
CDS: TClientDataSet; 
S: TStream; 
begin 
    CDS := TClientDataSet.Create(nil); 
    try 
    S:= ClientModule1.ServerMethods1Client.getCDSData; 
    S.Seek(0,soFromBeginning); 
    S.Position:= 0; 
    CDS.LoadFromStream(S); 
    CDS.Open; // Missing Data Provider or Data Packet 
    finally 
    CDS.Free; 
    end; 
end; 

// Сервер

function TServerMethods1.getCDSData: TStream; 
var 
    Writer: TBinaryWriter; 
    CDS: TClientDataSet; 
    I: Integer; 
begin 
    result := TMemoryStream.Create; 
    CDS := TClientDataSet.Create(nil); 
    with CDS.FieldDefs do 
    begin 
    Clear; 
    Add('First', ftString, 20); 
    Add('Last', ftString, 25); 
    end; 
    CDS.CreateDataSet; 
    CDS.Open; 
    CDS.AppendRecord(['John', 'Smith']); 
    CDS.AppendRecord(['Jane', 'Doe']); 
    try 
    CDS.SaveToStream(result); 
    finally 
    CDS.Free; 
    end; 
end; 

Я также попытался Streaming как XML вместо Binary

CDS.SaveToStream(result, dfXML); 

получить ту же ошибку

" Отсутствующий поставщик данных или пакетных данных»

ОТВЕТ:

CDS.SaveToStream(result); 
Result.Position := 0; //need this in server method "getCDSData" 

Answer 1

CDS.SaveToStream(result); 
Result.Position := 0;