Estou tentando adaptar o sistema da empresa para a tecnologia DataSnap, que é extremamente incrível.

Em nosso caso, nossas queries no lado do servidor, são realizadas através dos componentes ADODB.

Minha pergunta: É possível realizar um TDBXDataSetReader.Create a partir de um TADOQuery e disponibilizar o TDBXReader criado para as aplicações clientes?

Preciso copiar um DBXreader para um objeto. Tenho uma classe que converte um clientDataSet para um objeto, segue o código abaixo:

class procedure TMsysClassUtils.CarregarDoClientDataSet(const _AFields: TFields; _AObj: TObject);
var
PropList: PPropList;
PropListCount: byte;
I: integer;
begin
PropListCount := GetPropList(_AObj, PropList);
for I := 0 to pred(PropListCount) do
begin
if not _AFields.FieldByName(string(PropList[I].Name)).IsNull then
SetPropValue(_AObj, string(PropList[I].Name), _AFields.FieldByName(string(PropList[I].Name)).AsVariant);
end;
end;

Então pensei em converter o DBXREader para um ClienteDataSet e depois para o objeto. mas ae tive um problema, no Reader vem um campo Observações(Tipo Blob).E a função CopyReaderToClientDataSet dispara um exceção NotImplemeted.
Tem aguma forma de adaptar essa minha função para manipular um DBXREaders e suportar Blob, ou alguma outra solução para meu problema

Estou utilizando TDBXReader para navegadar dados do servidor para o cliente.
O problemas é o seguinte:

Tenho um metodo no Servidor chamdo GetListaDeClientes e no cliente executo o seguinte comando
vReader := proxyCliente.GetListaDeClientes;

Quando executo esse comando FreeAndNil(vReader) e FreeAndNil(proxyCliente) o sistema da um erro ‘Invalid Pointer’, mas segui exatamento o exemplo que foi postado.
O que pode ser?
Estou utilizando Delphi2010.

pCDS.Append;

//Preenchendo a tabela
for I := 0 to Reader.ColumnCount – 1 do
begin
//Pega o nome do campo
VCampo := Copy( Reader. Query.Fields[I].FieldName,1,32);

for y := 0 to pCds.FieldCount – 1 do
begin
VNome_Campo := Copy(pCds.Fields[y].FieldName,1,32);

if VNome_Campo = VCampo then
pCds.Fields[y].Value := Query.Fields[I].Value;
end;
end;

pCds.FieldByName(‘SEL_GRID’).Value := ‘N’;

pCDS.Post;

Query.Next;
end;
End;
end;

Com a opção CopytoCds qdo tem coluna Blob da erro de “!FEATURE NOT IMPLEMENTED”..Estou tentando copiar coluna por coluna..mas ainda nao deu certo..existe outra forma de fazer isso?

f.Name :=’NOME’;
f.DataType :=ftString ;
f.Size :=50 ;

f.Name :=’EMAIL’;
f.DataType :=ftString ;
f.Size :=80 ;

cdsBusca.CreateDataSet ;
end;

Problema resolvido:

Apenas para complementar e ajudar pessoas que venham a ter a mesma duvida.

Tem que compilar o .pas e jogar a dcu gerada pelo mesmo na pasta lib\debug e lib\release dentro das pasta do delphi, apos isso a correção irá funcionar.

Mais uma vez obrigado pela dica Andreano.
Sucesso!

Fiz o ajuste no arquivo DBXDBReaders.pas, incluindo o conteudo postado por você ao Marcos, porem continuo com o problema.

1º Pergunta: Existe alguma forma de depurar esta Unit? Gostaria de entender o que está acontecendo.

2º Pergunta: Há necessidade de alguma compilação apos alterar o DBXDBReaders.pas ou só salvar e compilar o projeto?

Embarcadero® Delphi® XE Version 15.0.3953.35171

Agradecido desde já pela sua ajuda,
Atenciosamente,
Rodrigo Martim.

Carlos,

Se você está usando a versão comprada do Delphi, você tem os fontes da VCL. O trial não traz os fontes da VCL.

tenho a consulta “SELECT * FROM TABELA WHERE ID=:pID”

como passar pelo dbexpress vários valores para a coluna ID?

visto que se eu utilizar, ClientDataSet1.Params[0].AsInteger := 1 só poderei trazer o registro cujo valor da coluna ID é 1,

Gostaria de trazer vários registros cujo valor da coluna ID seria 1,2,3,4,60,90,80,56

Vai na unit DBXDBReaders na procedure CopyValueTypeProperties, localize a linha onde está
if ValueType.DataType = TDBXDataTypes.WideStringType then

e mude para

if ValueType.DataType in [TDBXDataTypes.WideStringType, TDBXDataTypes.AnsiStringType] then

Isso irá resolver o problema de truncar.

Oi Rodrigo,

obrigado por visitar o blog e bom saber que estas aprendendo, estamos cada vez mais trazendo materiais em português.

Sobre o seu problema, o seu ClientDataSet já tinha os TFields pré definidos? Se você está criando os TFields antes não precisaria, pois o método faz isso pra você.