Ir para conteúdo
Fórum Script Brasil

arceadriano

Membros
  • Total de itens

    5
  • Registro em

  • Última visita

Tudo que arceadriano postou

  1. Resolvi da seguinte forma TRetObjetos = class(TRet) private FObjetos: TArray<TObjeto>; public property Objetos: TArray<TObjeto> read FObjetos write FObjetos; end;
  2. Jhonas... obrigado pela atenção Criar o arquivo JSON ok, isso eu faço com o metodo TJson.ObjectToJson() A questão é que não estou conseguindo alimentar a classe que criei. TRetContadores = class(TRetornoWS) private FOK: Boolean; FMsg: String; FContadores: TArray<TContador>; published property OK: Boolean read FOK write FOK; property msg: String read FMsg write FMsg; property Contadores: TArray<TContador> read FContadores write FContadores; end; A Classe acima possui um array (FContadores), como faço para incluir registros nela? Após usar o TJson.ObjectToJson() o JSON resultante ficaria dessa forma, mas para tal preciso carregar o array: { "OK": true, "msg": "Registros encontrados", "contadores": [{ "firstName": "John", "lastName": "Doe" }, { "firstName": "Anna", "lastName": "Smith" }, { "firstName": "Peter", "lastName": "Jones" }] }
  3. Bom dia Estou consumindo um servido de webservice que utiliza JSON. Criei as seguintes classes. { Classes Contador } TContador = class private FNome: String; FCNPJ: String; published property nome: String read FNome write FNome; property CNPJ: String read FCNPJ write FCNPJ; end; TRetContadores = class(TRetornoWS) private FOK: Boolean; FMsg: String; FContadores: TArray<TContador>; published property OK: Boolean read FOK write FOK; property msg: String read FMsg write FMsg; property Contadores: TArray<TContador> read FContadores write FContadores; end; Para receber o conteudo JSON do webservice uso da seguinte forma, e o array é alimentado corretamente: oRetornoWS := TJson.JsonToObject<TRetContadores>(cRetorno); for i:= low(oRetornoWS.Contadores) to high(oRetornoWS.Contadores) do mtbContadores.InsertRecord([oRetornoWS.Contadores[i].CNPJ, oRetornoWS.Contadores[i].nome]); Meu problema é o seguinte, como faço para adicionar os itens ao array da classe, para que depois eu utilize o método TJson.ObjectToJson() e criar o JSON.
  4. Bom dia Desenvolvi uma nova aplicação com XE10 e postgresql 9.4.6 (hospedado em server Linux - no qual todos os clientes terão acesso a esta base). Coloquei no mesmo diretório do exe nos terminais client as seguintes dll's: libpq.dll ssleay32.dll libeay32.dll libintl-8.dll libiconv-2.dll Dentro do meu escritório, testei em diversas máquinas (w8, w10 e w7) e todas conectou corretamente. Alguns clientes apresentam este erro (windows Server) Classe do erro: [FireDAC][Phys][PG]-314. Cannot load vendor library [libpq.dll]. Acesso negado. Hint: check it is in the PATH or application EXE directories, and has x86 bitness. Outros cliente acusam q não é possível simplesmente conectar (imagem anexo)
×
×
  • Criar Novo...