Consegui resolver o problema trocando a classe TMemoryStream por uma TStringStream.
Mas, e quando não for possível fazer um processo como esse? E todo o projeto DataSnap já pronto parado por conta de um único tipo?

Tentei realizar o teste que vc indicou, usando TStream para enviar a imagem para o cliente… Na aplicação servidor, a imagem é lida do Stream com sucesso mas, quando é enviado para o cliente, dá erro!

O post foi detalhado para a nova situação… grato pela sua ajuda!

Antes da conversão para JSON, um TImage consegue exibir a foto tranquilamente.
Na volta de JSON para o objeto TCustomer, ao que parece, o conteúdo de Photo fica comprometido.

Estava estudando esse seu exemplo de transferência de objetos do servidor para o cliente e surgiu uma dúvida: Utilizando esse seu exemplo da classe TCustomer, poderíamos ter uma propriedade public do tipo TJPEGImage ou TBitmap, algo como TCustomer.Photo?

Meu servidor iria definir o conteúdo dessa propriedade e passar o objeto via JSON para o cliente e o mesmo conseguir exibir em um TImage padrão, a imagem que está na propriedade Photo?

Eu gostaria de criar metodo remoto onde eu possa passar um array de Delta do ClientDataSet + seu ProviderName

Para isso criei um class TDeltaApply Tentei TDeltaApplyArray : array of TDeltaApply e ele não aceita como metodo remoto esse tipo.

Então como posso para meu servidor uma array de delta e seu providername????

TCliente = Class (TObject)
private
FID: Integer;
FNome: String;
FDataCadastro: String;
FValor: String;
function GetDataCadastro: TDateTime;
procedure SetDataCadastro(value: TDateTime);
function GetValor: Double;
procedure SetValor(value: Double);
….

public
property DataCadastro: TDateTime read GetDataCadastro write SetDataCadastro;
property Valor: Double read GetValor write SetValor;
….
end;

O truque é na implementação dos métodos privados:

function TCliente.GetDataCadastro: TDateTime;
begin
Result := StrToDateTime(FDataCadastro); // Vai bem alguma checagem extra aqui antes da conversão
end;

function TCliente.SetDataCadastro(value: TDateTime);
begin
FDataCadastro:= FormatDateTime(‘DD/MM/YYYY HH:NN:SS’, Value);
end;

function TCliente.GetValor: Double;
begin
Result := StrToFloatDef(FValor,0);
end;

function TCliente.SetValor(value: Double);
begin
FValor := FloatToStr(value);
end;

Dessa forma quando você atribuir ou obter um valor das propriedades DataCadastro e Valor, automaticamente eles serão convertidos de TDateTime e Double para String, e virce-versa. Como o JSON só armazena as informações dos campos privados das propriedades, as informações são armazenas como String e não há nenhum problema na conversão de volta na aplicação cliente.

Espero ter ajudado.

Att,

Criei um servidor datasnap que retorna uma lista de TCustomer agrupada com JsonArray e JsonValue, estou tentando consumir o resultado numa aplicação asp.net com delphi prism, ao gerar o proxy ele retorna a classe como object, alguma forma de realizar a transformação direto com .net ?

Obrigado!

Estou com a necessidade de transpostar o ClientDataSet como objeto para trabalhar no meu servidor de aplicação.
É possível através de JSON? A princípio tenho erro de RTTI.

Obrigado!

Obrigado pela resposta utilizo o Delphi 2010 apesar de não ser indicado a mudança nos fontes da vcl resolvi o problema seguindo o exemplo desse poste http://www.expressolivre.net/openmail/index.php?msg_id=%22123336%22 e funcionol perfeitamente.

Agora estou com problema ao rodar a aplicação servidora em uma máquina com windows server 2003 sem farewall, testei em outras máquinas e funciona, na verdade não sei se a falta do firewall é o problema, mas, é o que difere das outras máquinas que testei.

Isso acontece porque esse tipo de objeto não é convertido automático, neste mesmo post eu menciono o post do Andrei que explica como fazer isso http://blogs.embarcadero.com/adrian/2009/08/19/json-types-for-server-methods-in-datasnap-2010/, de uma lida nele, neste caso a propriedade que é TList precisa de um conversor que você deve implementar.

Você está usando Delphi 2010? Eu testei aqui e não tive nenhum problema. Qual a mensagem de erro?