Я пытаюсь передать 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;
Я также пробовал потоковую передачу в виде XML вместо двоичного.
CDS.SaveToStream(result, dfXML);
получить ту же ошибку
«Отсутствует поставщик данных или пакет данных»
ОТВЕЧАТЬ:
CDS.SaveToStream(result);
Result.Position := 0; //need this in server method "getCDSData"
CDS.First; while not CDS.Eof do CDS.Next
, который ничего не делает? - person Ken White   schedule 26.05.2016