Fórum FireMankey - TJSonArray #424469
24/09/2012
0
Bom Dia!
Gostaria da ajuda dos colegas, o problema é o seguinte, estou usando o servidor datasnap e a comunicação servidor-cliente com dbexpress, e tenho um procedimento que preciso passar como paramento um array da minha classe, ex. array de TTitulo, nas minhas pequisa eu encontrei o TJsonArray, mas não consegui utilizar.
Segue o trecho do meu codigo.
Só encontrei o SetJSONValue.
Desde já agradeco.
Gostaria da ajuda dos colegas, o problema é o seguinte, estou usando o servidor datasnap e a comunicação servidor-cliente com dbexpress, e tenho um procedimento que preciso passar como paramento um array da minha classe, ex. array de TTitulo, nas minhas pequisa eu encontrei o TJsonArray, mas não consegui utilizar.
Segue o trecho do meu codigo.
if FValidaLoginCommand = nil then
begin
FValidaLoginCommand := FDBXConnection.CreateCommand;
FValidaLoginCommand.CommandType := TDBXCommandTypes.DSServerMethod;
FValidaLoginCommand.Text := 'TServerMethods1.receber';
FValidaLoginCommand.Prepare;
end;
NewArrT := TJSONArray.Create;
for i := 0 to High(Titulos) do
begin
NewArrT.AddElement := TTitulo.ObjectToJSON(Titulos[i]);
end;
NewArrP := TJSONArray.Create;
for i := 0 to High(PreRecebs) do
begin
NewArrP.AddElement := TPreRecebimento.ObjectToJSON(PreRecebs[i]);
end;
FValidaLoginCommand.Parameters[0].Value.SetJSONValue;
FValidaLoginCommand.Parameters[1].Value.SetJSONValue;
FValidaLoginCommand.ExecuteUpdate;
Result := FValidaLoginCommand.Parameters[2].Value.GetWideString;
Só encontrei o SetJSONValue.
Desde já agradeco.
Jesus Lima
Curtir tópico
+ 0
Responder
Posts
26/09/2012
Daniel Santos
O TJsonArray é decendente do TJsonValue, então não tem problema.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)