Here the rest of the code. It's weird how tabs are removed..Any ideas?djsoft said:As for the Delphi code, I'm not sure what happens there as code is not complete, it looks likle that one of the functions you call modify the XML data, removing the "#&9;" character and changing it to something else (space).
Code:
Function TPrincipal.ReadTag(Ruta: String; Var ANode: IXMLNode): Boolean;
Var
ADPLocalFile : TFileName;
conexionservidor: String;
Begin
conexionservidor:= URLParaLlamarAAPI('&action=readtag&fn=') + EncodeURIComponent(Ruta);
ADPLocalFile := IncludeTrailingPathDelimiter(_carpetatemp + '\') + 'temp.' + FormatDateTime('YYYY-MM-DDTHH-hh.mm.ss.zzz',now()) + '.xml';
if not DownloadURLFile(conexionservidor, ADPLocalFile) then
begin
Screen.Cursor:=crDefault;
Raise Exception.CreateFmt('Atencion, se perdio la conexion!',[]);
Exit;
end;
if not FileExists(ADPLocalFile) then
begin
Screen.Cursor:=crDefault;
raise exception.Create('Error al escribir archivo temporal');
Exit;
end;
XMLDoc.FileName := ADPLocalFile;
XMLDoc.Active:=True;
ANode := XMLDoc.DocumentElement; //get root node - "Info" in case of RB's XML
showmessage(XMLDoc.DocumentElement.XML);
Chrome:
Code:
<TagInfo>
<File FN="M:\Mi musica\13 - fabiana cantilo - profugos(2).mp3" Duration="278949" Artist="Fabiana Cantilo" Title="Profugos" Album="Inconsciente Colectivo" Year="2005" Genre="Rock/Pop" Comment="" BPM="" Rating="10" Playcount="90" LastPlayed="2019-11-18 12:40:21" UserField1="Nacionales" UserField2="" UserField3="" UserField4="" UserField5="" TypeIdentifier="" TagsList="Cat: Alta	Cat: Nuevos Sonidos" />
</TagInfo>