Pesquisar na Comunidade
Showing results for tags 'webservice json array'.
Encontrado 1 registro
-
Como instanciar um Array (para atender às definições em JSon) ?
um tópico no fórum postou MarioNieri Object Pascal - Delphi & Lazarus
minha dúvida para os mestres de plantão: no código abaixo // como INSTANCIAR esse Array ? vEmpresaProcesso.operacao.cedente.duplicatas. // definicoes criadas pelo Importador WSDL: ArrayOfDuplicataProcesso = class(TRemotable) private Fduplicata: duplicata; public constructor Create; override; destructor Destroy; override; function GetDuplicataProcessoArray(Index: Integer): DuplicataProcesso; function GetDuplicataProcessoArrayLength: Integer; property DuplicataProcessoArray[Index: Integer]: DuplicataProcesso read GetDuplicataProcessoArray; default; property Len: Integer read GetDuplicataProcessoArrayLength; published property duplicata: duplicata read Fduplicata write Fduplicata; end; constructor ArrayOfDuplicataProcesso.Create; begin inherited Create; FSerializationOptions := [xoInlineArrays]; end; CedenteProcesso = class(Empresa) private Fduplicatas: ArrayOfDuplicataProcesso; Fparticipantes: ArrayOfParticipante; FsacadorAvalista: SacadorAvalista; public destructor Destroy; override; published property duplicatas: ArrayOfDuplicataProcesso read Fduplicatas write Fduplicatas; property participantes: ArrayOfParticipante read Fparticipantes write Fparticipantes; property sacadorAvalista: SacadorAvalista read FsacadorAvalista write FsacadorAvalista; end; ... // trecho do codigo: ObjetoSoap:=HTTPRIO1 as ProcessoAssinaturaSoap; vMensagemRetornoProcesso := MensagemRetornoProcesso.create; vEmpresaProcesso := EmpresaProcesso.Create; vEmpresaProcesso.cnpj := 'bla'; vEmpresaProcesso.token := 'b l'; vEmpresaProcesso.versao := ''; vEmpresaProcesso.operador := 'bla '; vEmpresaProcesso.operacao := OperacaoProcesso.create; vEmpresaProcesso.operacao.numero := 1; vEmpresaProcesso.operacao.titulo := 'OPERAÇÃO DE CESSÃO DE CRÉDITO'; vEmpresaProcesso.operacao.cedente := CedenteProcesso.Create; vEmpresaProcesso.operacao.cedente.endereco := 'RUA DO CEDENTE'; // como INSTANCIAR esse Array ? vEmpresaProcesso.operacao.cedente.duplicatas. ??? // trecho da definicao em json: "operacao": { "numero": 0, "titulo": "string", "descricao": "string", "observacoes": "string", "data": "string", ... "cedente": { "cnpj": "string", "razaoSocial": "string", "nomeFantasia": "string", "email": "string", "telefone": "string", "endereco": "string", ... "duplicatas": [ { "idDocumento": 0, "numero": "string", "tipodoc": 0, "dataEmissao": "string", "dataVencimento": "string", "valorBruto": "string", "valorLiquido": "string", "numeroNfe": "string", "serieNfe": "string", "chaveNfe": "string", "sacado": { "cnpjCpf": "string", "nome": "string", "email": "string", "telefone": "string", "endereco": "string", "bairro": "string", "cidade": "string", "uf": "string", "cep": "string", "inscricaoEstadual": "string", "inscricaoMunicipal": "string" }, "arquivo": { "nome": "string", "conteudo": "string" } } ] },