Fórum TXMLDocumento X Widestring #431296
19/12/2012
0
Criei o arquivo XML com o componente TXMLDocument.
Sendo que preciso consumir o WebService com esse XML, mas a assinatura é WideString.
Alguém sabe como enviar o XML cuja assinatura é WideString?
Thiago Barbosa
Curtir tópico
+ 0Posts
19/12/2012
Rafael Cunha
X := XMLDocument1.XML.Text;
Gostei + 0
19/12/2012
Thiago Barbosa
Gostei + 0
19/12/2012
Rafael Cunha
Se você utilizar esse comando para mostrar o conteúdo do XML em um ShowMessage alguma coisa e mostrada?
Gostei + 0
19/12/2012
Thiago Barbosa
Quando envio as informações XMLDocument.XML.Text não envia nada.
Gostei + 0
19/12/2012
Thiago Barbosa
Quando envio as informações XMLDocument.XML.Text não envia nada.
Gostei + 0
19/12/2012
Rafael Cunha
Gostei + 0
19/12/2012
Thiago Barbosa
var
XMLDoc : TXmlDocument;
Root: IXmlNode;
begin
XMLDoc := TXmlDocument.Create(nil);
XMLDoc.Active := False;
XMLDoc.XML.Clear;
XMLDoc.Options := [doNodeAutoIndent];
XMLDoc.Active := True;
XMLDoc.Version := '1.0';
XMLDoc.Encoding := 'ISO-8859-1';
Root := XMLDoc.AddChild('Mensagens');
with Root.AddChild('Cabecalho') do
begin
AddChild('mensagemID').NodeValue := '7452314';
AddChild('versaoXML').NodeValue := AXML.Version;
AddChild('identificacaoCliente').NodeValue := '8998788';
AddChild('servico').NodeValue := 'NOTA_ESTOQUE';
AddChild('dataHora').NodeValue := vDataHoraArquivo;
AddChild('empresaOrigem').NodeValue := '1';
AddChild('sistemaOrigem').NodeValue := '1';
AddChild('empresaDestino').NodeValue := '1';
AddChild('sistemaDestino').NodeValue := '1';
AddChild('usuario').NodeValue := 'USER';
AddChild('senha').NodeValue := 'PASSWORD';
end;
end;
--Enviando o XML
O método do WebService é procedure Processar(AXML: WideString);
Quando envio Processar(XMLDoc.XML.Text) a informação do XML não vai.
Gostei + 0
19/12/2012
Rafael Cunha
procedure TForm1.BitBtn1Click(Sender: TObject);
var
XMLDoc: TXmlDocument;
Root: IXmlNode;
begin
XMLDoc := TXmlDocument.Create(nil);
XMLDoc.Active := False;
XMLDoc.XML.Clear;
XMLDoc.Options := [doNodeAutoIndent];
XMLDoc.Active := True;
XMLDoc.Version := '1.0';
XMLDoc.Encoding := 'ISO-8859-1';
Root := XMLDoc.AddChild('Mensagens');
with Root.AddChild('Cabecalho') do
begin
AddChild('mensagemID').NodeValue := '7452314';
AddChild('versaoXML').NodeValue := 1;
AddChild('identificacaoCliente').NodeValue := '8998788';
AddChild('servico').NodeValue := 'NOTA_ESTOQUE';
AddChild('dataHora').NodeValue := Now;
AddChild('empresaOrigem').NodeValue := '1';
AddChild('sistemaOrigem').NodeValue := '1';
AddChild('empresaDestino').NodeValue := '1';
AddChild('sistemaDestino').NodeValue := '1';
AddChild('usuario').NodeValue := 'USER';
AddChild('senha').NodeValue := 'PASSWORD';
end;
Processar(XMLDoc.XML.Text);
end;
procedure TForm1.Processar(AXML: WideString);
begin
ShowMessage(AXML);
end;
Gostei + 0
19/12/2012
Thiago Barbosa
Abraços.
Gostei + 0
19/12/2012
Rafael Cunha
Gostei + 0
19/12/2012
Rafael Cunha
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)