Criar XML cujo retorno é WideString

Delphi

19/12/2012

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

Curtidas 0

Respostas

Claudia Nogueira

Claudia Nogueira

19/12/2012

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;
GOSTEI 0
Rodolpho Silva

Rodolpho Silva

19/12/2012

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...
GOSTEI 0
Rodolpho Silva

Rodolpho Silva

19/12/2012

Retificando

xmlDoc.LoadFromXML(Processa())

GOSTEI 0
POSTAR