Problemas con archivo XML
Hola...
Estoy tratando de descargar un archivo XML desde internet... el cual es generado en un servidor con PHP... uso un TWebBeowser con el código:
myWBTV.Navigate('http://url/data.php');
y luego lo guardo con:
webBSaveHTML( wb :TWebBrowser; const FileName :string);
var PersistStream : IPersistStreamInit;
Stream : IStream;
FileStream : TFileStream;
begin
if not Assigned(WB.Document) then
begin
ShowMessage('El documento no contiene información!.');
Exit;
end;
PersistStream := WB.Document as IPersistStreamInit;
FileStream := TFileStream.Create(FileName, fmCreate);
try
Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
if Failed(PersistStream.Save(Stream, True))
then ShowMessage('No se pudo guardar la información!');
finally
FileStream.Free;
end;
end;
Todo lo anterior funciona... solo que cuando trato de trabajar el archivo... no puedo pues está guardado como html.. es decir... el código tendría que ser algo así como:
- <Nodo>
- <subNodo1>
<dato1> lolo1.1 </dato1>
<dato2> lolo1.2 </dato2>
</subNodo1>
- <subNodo2>
<dato1> lolo2.1 </dato1>
<dato2> lolo2.1 </dato2>
</subNodo2>
</nodo>
Pero lo que tengo es:
<HTML><HEAD>
<STYLE>BODY{font:x-small 'Verdana';margin-right:1.5em}
.c{cursor:hand}
.b{color:red;font-family:'Courier New';font-weight:bold;text-decoration:none}
.e{margin-left:1em;text-indent:-1em;margin-right:1em}
.k{margin-left:1em;text-indent:-1em;margin-right:1em}
.t{color:#990000}
.xt{color:#990099}
.ns{color:red}
.dt{color:green}
.... y más...
Alguna idea... en el browser se muestra todo bien... pero el problema está parece al guardar...
Ahh.. una cosa... la conección es a través de un proxy con autentificación... esto obliga a tener esto en cuenta al decargar el archivo...
[FONT=verdana,geneva,lucida,'lucida grande',arial,helvetica,sans-serif]Gracias...
> Luis
[/font]
|