Jhonas

observando melhor o código, vi que é necessario voce converter a data para o formato xml para não dar erro a data tera que estar nesse formato para o envio do webservice 2011-06-29T17:01:45.505+01:00 veja nesses links http://www.delphipages.com/articles/keep_origional_date_with_xml_utc_format-18779.html https://wiert.me/2011/07/19/iso-8601-delphi-way-to-convert-xml-date-and-time-to-tdatetime-and-back-via-stack-overflow/ https://www.google.com.br/search?source=hp&q=txsdatetime+to+tdatetime&o que=tsxdate&gs_l=psy-ab.1.3.0i19k1l2j0i10i19k1j0i13i30i19k1.2132.3942.0.6467.7.7.0.0.0.0.140.670.0j5.5.0.foo%2Cnso-ehuqi%3D1%2Cnso-ehuui%3D1%2Cewh%3D0%2Cnso-mplt%3D2%2Cnso-enksa%3D0%2Cnso-enfk%3D1%2Cnso-usnt%3D1%2Cnso-qnt-npqp%3D0-1701%2Cnso-qnt-npdq%3D0-54%2Cnso-qnt-npt%3D0-1%2Cnso-qnt-ndc%3D300%2Ccspa-dspm-nm-mnp%3D0-05%2Ccspa-dspm-nm-mxp%3D0-125%2Cnso-unt-npqp%3D0-17%2Cnso-unt-npdq%3D0-54%2Cnso-unt-npt%3D0-0602%2Cnso-unt-ndc%3D300%2Ccspa-uipm-nm-mnp%3D0-007525%2Ccspa-uipm-nm-mxp%3D0-052675%2Ccfro%3D1...0...1.1.64.psy-ab..2.5.665...0j0i131k1j0i10k1j0i13k1.ycsuyKSlmqo abraço

procedure TForm1.Button1Click(Sender: TObject); var service: WSBillingPortType; mensagem0 : mensagem; sacador0 : sacador; sacado0 : sacado; agendamento0 : agendamento; cobranca0 : cobranca; carne0 : carne; log : WideString; valor : Double; begin service:= GetWSBillingPortType(false,'',HTTPRIO1); /// MONTAR O CÓDIGO DOS OBJETOS valor := 2123.40; mensagem0.data.AsDate := now(); // data atual mensagem0.numero := '010203'; mensagem0.tipo_ws := 'webservice'; sacador0.conta := '9023'; sacado0.nome := 'Jose Oliveira'; sacado0.email := 'joseoliveira@f2b.com.br'; sacado0.numero := 0123456; agendamento0.numero := 223344; cobranca0.nome := 'FULANO DE TAL'; cobranca0.email := 'pedrooliveira@f2b.com.br'; cobranca0.url := ''; cobranca0.numero := 1212; cobranca0.taxa_registro.DecimalString := Format('%.2f', [valor]); cobranca0.nosso_numero := 878; carne0.url := ''; carne0.numero := 0; service.RegisterWSBilling(mensagem0,sacador0,sacado0,agendamento0,cobranca0,carne0,log); end; OBS: esse é um exemplo ... não vai dar erro de compilação, mas pode dar erro de violação de endereço... voce tem que ver, como dispor os valores nos objetos abraço

[I 20:33:12.552 NotebookApp] Refusing to serve hidden directory, via 404 Error voce tem que liberar o diretório que está oculto. http://www.wikihow.com/Unhide-Folders-in-Windows-7 abraço

a tabela TBCONTA é tabela Pai de TBHISTORICO os dados lançados no DBGrid referente a tabela TBHISTORICO somem. (todas as tabelas relacionadas) primeiro tente usar o comando REFRESH depois de salvar os dados IBQuery1.Refresh; ou IBDataSet1.Refresh; ou o ClientDataSet.Refresh ... o que voce estiver usando se não funcionar, assim como voce salva os dados da tabela TBCONTA experimente salvar tambem os dados da tabela TBHISTORICO e veja o que acontece abraço

ok... agora voce vai montar o form com os objetos do wsbilling.pas exemplo: unit UWebServiceF2b; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, InvokeRegistry, Rio, SOAPHTTPClient, wsbilling, StdCtrls; type TForm1 = class(TForm) HTTPRIO1: THTTPRIO; Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var service: WSBillingPortType; begin service:= GetWSBillingPortType(false,'',HTTPRIO1); /// INSTANCIAR OS OBJETOS service.RegisterWSBilling(mensagem,sacador,sacado,agendamento,cobranca,carne,outlog); end; end. Se quiser saber um pouco mais sobre a classe ( TRemotable ) http://www.linhadecodigo.com.br/artigo/3/desvendando-web-services-soap_xml.aspx OBS: vou te passar o mesmo webservice F2B ( completo ) montado em Visual Studio. a lógica é praticamente a mesma ...voce só tera que adaptar para o delphi https://social.msdn.microsoft.com/Forums/pt-BR/e7b8ccd2-ce07-4989-adda-d5273b248091/webservice-da-f2b?forum=aspnetpt abraço

coloquei nesse código somente o nó "paciente" se voce entendeu o conceito do xml, vai conseguir fazer o resto procedure TForm1.Button1Click(Sender: TObject); var OuterRoot,EntryNode:IXmlNode; i,x:Integer; begin ListBox1.Clear; XMLDocument1.LoadFromFile('c:\consulta.xml'); // seu arquivo xml XMLDocument1.Active := True; OuterRoot := xmldocument1.DocumentElement; for i := 0 to OuterRoot.ChildNodes.count -1 do begin EntryNode := OuterRoot.ChildNodes[i]; if OuterRoot.ChildNodes[i].NodeName='paciente' then begin ListBox1.Items.Add(StringOfChar('-',50)); ListBox1.Items.Add(OuterRoot.ChildNodes[i].NodeName +':'); for x := 0 to EntryNode.ChildNodes.Count -1 do ListBox1.Items.Add( EntryNode.ChildNodes[x].NodeName + ' = ' + EntryNode.ChildNodes[x].Text); end; end; end;

verifique nesses links se tem o que voce esta querendo https://www.google.com.br/search?source=hp&q=WordDocument1.Tables.Add&o que=WordDocument1.Tables.Add&gs_l=psy-ab.3...2772.25911.0.26727.5.5.0.0.0.0.257.988.2-4.4.0.foo%2Cnso-ehuqi%3D1%2Cnso-ehuui%3D1%2Cewh%3D0%2Cnso-mplt%3D2%2Cnso-enksa%3D0%2Cnso-enfk%3D1%2Cnso-usnt%3D1%2Cnso-qnt-npqp%3D0-1701%2Cnso-qnt-npdq%3D0-54%2Cnso-qnt-npt%3D0-1%2Cnso-qnt-ndc%3D300%2Ccspa-dspm-nm-mnp%3D0-05%2Ccspa-dspm-nm-mxp%3D0-125%2Cnso-unt-npqp%3D0-17%2Cnso-unt-npdq%3D0-54%2Cnso-unt-npt%3D0-0602%2Cnso-unt-ndc%3D300%2Ccspa-uipm-nm-mnp%3D0-007525%2Ccspa-uipm-nm-mxp%3D0-052675%2Ccfro%3D1...0...1.1.64.psy-ab..1.3.728...0j0i131k1.VCD9GBznEmA caso não tenha, exemplique melhor a sua dúvida abraço

voce compilou o wsbilling.pas ? não apresentou nenhum erro ? configurou o componente HTTPRIO1 ?

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; ComboBox1: TComboBox; ColorDialog1: TColorDialog; Edit1: TEdit; procedure Button1Click(Sender: TObject); procedure ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); private { Private declarations } public { Public declarations } end; var Form1: TForm1; cc : integer = -1; Colors1: array[0..19] of TColor; // atribuir 20 cores do ColorDialog1 implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if ColorDialog1.Execute then begin inc(cc); // contador (index) do combobox Colors1[cc] := ColorDialog1.Color; // pegar a cor selecionada ComboBox1.Items.Append(Edit1.Text); // adicionar no Combobox o Edit1.Text end; end; procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin with Control as TComboBox do begin Canvas.Font.Color := TColor(Colors1[Index]); // mudar cor da fonte do item Canvas.Brush.Color := clWhite; // mostrar fundo branco no combobox Canvas.FillRect(Rect); Canvas.TextOut(Rect.Left,Rect.Top,ComboBox1.Items.Strings[index]); // mostrar Nomes end; end; end. OBS: Digite um nome no Edit1 e ao clicar no botão, o ColorDialog é aberto para escolher uma cor a cor será armazenada em uma variavel tipo array que será indexada ao item adicionado ao combobox O mesmo se aplica ao ListBox abraço

amigo, isso não é xarada ... te apontei outro caminho mais prático e basta voce continuar observe que tem muitos membros vendo o seu tópico, mas ninguém para te dar uma outra dica além de mim abraço

aquele código poderia ser substituido por esse unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls, Grids, DBGrids, DB, DBTables, DBClient, Provider; type TForm1 = class(TForm) Button1: TButton; ListBox1: TListBox; XMLDocument1: TXMLDocument; OpenDialog1: TOpenDialog; procedure LoadXML; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.LoadXML; Var I : Integer; tag, atributo : string; begin ListBox1.Clear; for I := 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin tag := ( XMLDocument1.DocumentElement.ChildNodes[i].NodeName); if tag = 'paciente' then exit; atributo := ( XMLDocument1.DocumentElement.ChildNodes[i].text); ListBox1.Items.Add(tag + ' = ' + atributo); end; end; procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then begin XMLDocument1.FileName := OpenDialog1.FileName; XMLDocument1.Active := True; LoadXML; end; end; end. montei somente uma parte para voce fazer uma correlação com o anterior, onde a palavra registro recebe um indice. e onde a variavel TAG recebe o nome do campo e a varavel Atributo recebe o ( conteudo ) valor do campo ListBox1.Items.Add('id = '+ XMLDocument1.ChildNodes['registro'].ChildNodes['id'].Text); ListBox1.Items.Add('data = '+ XMLDocument1.ChildNodes['registro'].ChildNodes['data'].Text); ListBox1.Items.Add('hora = '+ XMLDocument1.ChildNodes['registro'].ChildNodes['hora'].Text); ListBox1.Items.Add('posto = '+ XMLDocument1.ChildNodes['registro'].ChildNodes['posto'].Text);

não é isso ... a pergunta eu fiz para que voce diga o porque está repetindo os valores. quando eu disse: isso tem haver com a rotina de leitura do arquivo xml era para voce olhar o código, e tentar descobrir o motivo ...rs vou clarear as ideias .... for I := 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin ListBox1.Items.Add('id = '+ XMLDocument1.ChildNodes['registro'].ChildNodes['id'].Text); ListBox1.Items.Add('codnet = '+ XMLDocument1.ChildNodes['registro'].ChildNodes['paciente'].ChildNodes['codnet'].Text); ListBox1.Items.Add('cpaciente = '+ XMLDocument1.ChildNodes['registro'].ChildNodes['paciente'].ChildNodes['exames'].ChildNodes['cpaciente'].Text); end; - registro - paciente - exames temos 3 Tags, mas só fizemos a leitura da primeira ocorrencia e não repetimos a leitura para os proximos nodos filhos ( ChildNodes ). como eu disse, essa é a maneira mais tabalhosa de se fazer. mas fiz assim para voce aprender o conceito por traz do XML agora imagine que cada ChildNode tenha um indice ao invés de um nome .. como ficaria ?

isso tem haver com a rotina de leitura do arquivo xml voce consegue descobrir o porque ?

se a tag exames é um sub nó de paciente, voce deve incluir esse sub nó ListBox1.Items.Add('cpaciente = '+ XMLDocument1.ChildNodes['registro'].ChildNodes['paciente'].ChildNodes['exames'].ChildNodes['cpaciente'].Text); ListBox1.Items.Add('codigoint = '+ XMLDocument1.ChildNodes['registro'].ChildNodes['paciente'].ChildNodes['exames'].ChildNodes['codigoint'].Text); ListBox1.Items.Add('cexame = '+ XMLDocument1.ChildNodes['registro'].ChildNodes['paciente'].ChildNodes['exames'].ChildNodes['cexame'].Text); ListBox1.Items.Add('descricao = '+ XMLDocument1.ChildNodes['registro'].ChildNodes['paciente'].ChildNodes['exames'].ChildNodes['descricao'].Text);

Estou começando usar XML com Delphi e estou precisando ler o arquivo abaixo, mais não tenho nem ideia como fazer, tentei com XMLDocument, só leu o primeiro registro e não leu os nós interno. ok..como voce não tem ideia como fazer, vou começar bem basico para voce poder entender primeiro o que é XML ? https://www.tecmundo.com.br/programacao/1762-o-que-e-xml-.htm XML – Introdução e conceitos básicos http://www.macoratti.net/xml.htm ok... depois dessa leitura ( se é que foi necessário a leitura ) vamos para a pratica no seu caso ( usando o seu xml ) montei um programa simples para a leitura do xml e como obter o resultado dos dados unit ULerXML; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls, Grids, DBGrids, DB, DBTables, DBClient, Provider; type TForm1 = class(TForm) Button1: TButton; XMLDocument1: TXMLDocument; OpenDialog1: TOpenDialog; ListBox1: TListBox; procedure LoadXML; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.LoadXML; Var I : Integer; begin ListBox1.Clear; for I := 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do begin ListBox1.Items.Add('id = '+ XMLDocument1.ChildNodes['registro'].ChildNodes['id'].Text); ListBox1.Items.Add('data = '+ XMLDocument1.ChildNodes['registro'].ChildNodes['data'].Text); ListBox1.Items.Add('hora = '+ XMLDocument1.ChildNodes['registro'].ChildNodes['hora'].Text); ListBox1.Items.Add('posto = '+ XMLDocument1.ChildNodes['registro'].ChildNodes['posto'].Text); ListBox1.Items.Add('codnet = '+ XMLDocument1.ChildNodes['registro'].ChildNodes['paciente'].ChildNodes['codnet'].Text); ListBox1.Items.Add('lab = '+ XMLDocument1.ChildNodes['registro'].ChildNodes['paciente'].ChildNodes['lab'].Text); ListBox1.Items.Add('cpaciente = '+ XMLDocument1.ChildNodes['registro'].ChildNodes['paciente'].ChildNodes['cpaciente'].Text); ListBox1.Items.Add('codigoint = '+ XMLDocument1.ChildNodes['registro'].ChildNodes['paciente'].ChildNodes['codigoint'].Text); ListBox1.Items.Add('dcadastro = '+ XMLDocument1.ChildNodes['registro'].ChildNodes['paciente'].ChildNodes['dcadastro'].Text); ListBox1.Items.Add('horario = '+ XMLDocument1.ChildNodes['registro'].ChildNodes['paciente'].ChildNodes['horario'].Text); ListBox1.Items.Add('cconv = '+ XMLDocument1.ChildNodes['registro'].ChildNodes['paciente'].ChildNodes['cconv'].Text); ListBox1.Items.Add('dconv = '+ XMLDocument1.ChildNodes['registro'].ChildNodes['paciente'].ChildNodes['dconv'].Text); ListBox1.Items.Add('nome = '+ XMLDocument1.ChildNodes['registro'].ChildNodes['paciente'].ChildNodes['nome'].Text); ListBox1.Items.Add('sexo = '+ XMLDocument1.ChildNodes['registro'].ChildNodes['paciente'].ChildNodes['sexo'].Text); end; end; procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then begin XMLDocument1.FileName := OpenDialog1.FileName; XMLDocument1.Active := True; LoadXML; end; end; end. Resultado: entretanto como voce pode observar, dessa forma, voce obteria os dados mas seria bem trabalhoso existem muitas outras maneiras de se trabalhar com o componente XMLDocument1 outra maneira seria manipular o XML através de um componente ClientDataset ( Banco de dados ) http://edn.embarcadero.com/de/article/37321 mais exemplos: http://www.devmedia.com.br/importando-xml-com-o-xmldocument-delphi/24288 http://www.devmedia.com.br/como-ler-xml-em-delphi/17881 http://www.activedelphi.com.br/forum/viewtopic.php?t=54881&sid=7e65ac716f357cdd2cc925e3775f3739 abraço

ok ... verifiquei isso tambem então vamos começar.... o arquivo xml pode ser observado pelo navegador da internet se ele estiver correto, voce vai ver isso a data de nascimento com certeza está errada 11/11/1111 aguarde... vou fazer um teste de leitura do xml

me passa o arquivo correto do xml, para eu fazer alguns testes nesse tem erro XML Parsing Error: not well-formed Line Number 20, Column 5:<preo>59</pre�o> ----^ XML Parsing Error: junk after document element Line Number 62, Column 1:<paciente> ^

ok... voce vai armazenar os dados do xml em um banco de dados ? se sim qual ? já tem a tabela criada com todos os campos do xml ? vai mostrar os dados em um form ou num relatório ?

esse arquivo xml está no disco local ?

amigo, sei que voce é iniciante ... já poderia ter-lhe dado a solução, mas voce mesmo disse: ( não sou como novatos que chega e pede os comandos prontos, se você sabe fazer, me passe o comando porque antes de abrir um post eu tento fazer de todas as formas. ) te passei a lógica e um exemplo, que bastaria voce mudar algumas linhas de comando para conseguir resolver a sua dúvida. fiz assim, somente para voce ver que, sem lógica de programação e sem conhecimento dos comandos da linguagem, voce vai ficar patinando, sem sair do lugar. por isso, nessa área é preciso muito estudo, muita pratica e muita paciência para exemplificar o que te falei até agora, veja o código como deveria ficar, em relação ao código do exemplo que te passei. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; ComboBox1: TComboBox; ColorDialog1: TColorDialog; Edit1: TEdit; procedure Button1Click(Sender: TObject); procedure ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); private { Private declarations } public { Public declarations } end; var Form1: TForm1; cc : integer = -1; Colors1: array[0..19] of TColor; // atribuir 20 cores do ColorDialog1 implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if ColorDialog1.Execute then begin inc(cc); // contador (index) do combobox Colors1[cc] := ColorDialog1.Color; // pegar a cor selecionada ComboBox1.Items.Append(Edit1.Text); // adicionar no Combobox o Edit1.Text end; end; procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin with Control as TComboBox do begin Canvas.Font.Color := TColor(Colors1[Index]); // mudar cor da fonte do item Canvas.Brush.Color := clWhite; // mostrar fundo branco no combobox Canvas.FillRect(Rect); Canvas.TextOut(Rect.Left,Rect.Top,ComboBox1.Items.Strings[index]); // mostrar Nomes end; end; end. Resultado: OBS: Apostila completa de delphi, ensina desde o básico até elementos avançados. http://www.planetadelphi.com.br/download/3737/apostila/biblia-delphi abraço

mas as cores do dialog color não passa para o combobox, OBS: Colors1 é a variavel array que vai armazenar as cores que eu escolher no componente ColorDialog1 que vão aparecer no Combobox e não quero que fique esse azul quando escolhida a cor. É só acrescentar uma linha de comando para conseguir isso voce deve alterar a cor de fundo do combobox

isso porque voce tem que mudar a cor da fonte do texto ( Itens do combobox ) procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin with Control as TComboBox do begin Canvas.Font.Color := TColor(Colors1[Index]); Canvas.FillRect(Rect); Canvas.TextOut(Rect.Left,Rect.Top,ComboBox1.Items.Strings[index]); end; end; OBS: Colors1 é a variavel array que vai armazenar as cores que eu escolher no componente ColorDialog1 que vão aparecer no Combobox abraço

exemplo com richedit http://www.devmedia.com.br/forum/numero-da-linha-de-um-memo-depois-de-localizar-uma-palavra/338845 https://forum.baboo.com.br/index.php?/topic/412533-localizar-palavras-em-texto-em-delphi/ exemplo com Memo https://www.codigofonte.net/dicas/delphi/179_procurando-letras-palavras-em-um-tmemo abraço

o comando select não muda SELECT * FROM Tabela WHERE Campo = '+''''+ComboBox1.Text+''''; links sobre o assunto https://www.google.com.br/search?q=dbexpress+delphi&o que=dbexpress&gs_l=psy-ab.1.2.0i71k1l4.0.0.0.21115.0.0.0.0.0.0.0.0..0.0.foo%2Cnso-ehuqi%3D1%2Cnso-ehuui%3D1%2Cewh%3D0%2Cnso-mplt%3D2%2Cnso-enksa%3D0%2Cnso-enfk%3D1%2Cnso-usnt%3D1%2Cnso-qnt-npqp%3D0-1701%2Cnso-qnt-npdq%3D0-54%2Cnso-qnt-npt%3D0-1%2Cnso-qnt-ndc%3D300%2Ccspa-dspm-nm-mnp%3D0-05%2Ccspa-dspm-nm-mxp%3D0-125%2Cnso-unt-npqp%3D0-17%2Cnso-unt-npdq%3D0-54%2Cnso-unt-npt%3D0-0602%2Cnso-unt-ndc%3D300%2Ccspa-uipm-nm-mnp%3D0-007525%2Ccspa-uipm-nm-mxp%3D0-052675%2Ccfro%3D1...0...1..64.psy-ab..0.0.0.HmUlCgf80XQ https://www.google.com.br/search?q=delphi+7+dbexpress+tutorial&o que=dbexpress+tu&gs_l=psy-ab.1.3.0i22i30k1l4.167105.173491.0.178768.5.5.0.0.0.0.127.603.0j5.5.0.foo%2Cnso-ehuqi%3D1%2Cnso-ehuui%3D1%2Cewh%3D0%2Cnso-mplt%3D2%2Cnso-enksa%3D0%2Cnso-enfk%3D1%2Cnso-usnt%3D1%2Cnso-qnt-npqp%3D0-1701%2Cnso-qnt-npdq%3D0-54%2Cnso-qnt-npt%3D0-1%2Cnso-qnt-ndc%3D300%2Ccspa-dspm-nm-mnp%3D0-05%2Ccspa-dspm-nm-mxp%3D0-125%2Cnso-unt-npqp%3D0-17%2Cnso-unt-npdq%3D0-54%2Cnso-unt-npt%3D0-0602%2Cnso-unt-ndc%3D300%2Ccspa-uipm-nm-mnp%3D0-007525%2Ccspa-uipm-nm-mxp%3D0-052675%2Ccfro%3D1...0...1.1.64.psy-ab..0.4.495...0j0i67k1j0i10i67k1.iRBYD4ui9_0 abraço

tente mais esse http://www.tdevrocks.com.br/2014/11/11/tutorial-reflection-do-firedac/ abraço