Criar XML cujo retorno é WideString

19/12/2012

0

Pessoal, ao consumir o WebService o retorno é em XML, mas em WideString.

Ex: function Processar(AXML: WideString): WideString;

Como faço para transformar o retorno em XML?

Desde já agradeço.
Thiago Barbosa

Thiago Barbosa

Responder

Posts

19/12/2012

Claudia Nogueira

Se você quer salvar em arquivo xml é só fazer mais ou menos assim:

Var
  sArquivo : TStringList;
begin
  try
    sArquivo := TStringList.Create;
    sArquivo.Text := Processar('');
    sArquivo.SaveToFile('c:\arquivo.xml');
  finally
    sArquivo.Free;
  end;
end;


Se quiser apenas trabalhar a string, é só criar uma variável recebendo o valor e depois tratar do jeito que quiser, exemplo:

Var
sVar : String;
begin
sVar := Processar('');
ShowMessage(sVar);
end;
Responder

19/12/2012

Rodolpho Silva

Acho que é isso que vc deseja:

Var
xmlDoc :IXMLDocument;
rootNode: IXMLNode;
begin
try
xmlDoc := TXMLDocument.Create(nil);
xmlDoc.Active := True; 

xmlDoc.LoadFromString(Processar(''));
rootNode := xmlDoc.ChildNodes.Nodes['Meu_no_raiz'];
finally
xmldoc := nil;
end;


Acho que é isso...
Responder

19/12/2012

Rodolpho Silva

Retificando

xmlDoc.LoadFromXML(Processa())

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar