XML vom Browser speichern

[Ajintaro]

Hallo DP !

Dieses Thema macht mich ganz irre !
Es gibt unzählige Threads im Netz über dieses simple Problem, aber nichts davon funktioniert annähernd. Ich möchte nach dem DocumentComplete eines Browsers die angezeigte XML Datei speichern.

Delphi-Quellcode:

procedure TFmain.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
var
  HTML: IHtmlDocument2;
  xml: WideString;  
  doc: OleVariant;
  XMLText: String;

begin
  HTML     := webbrowser1.Document as IHTMLDocument2;
  XMLText  := HTML.body.innerText;
  path     := Extractfilepath(application.ExeName)+path_xml  +'\';
  doc      := WebBrowser1.Document;
  xml      := doc.XMLDocument.XML;
end;

Ich habe versucht, mit den oben aufgeführten Variablen zum Ziel zu kommen (gültige XML-Datei zu speichern). Probiert habe ich es mit

a)

Delphi-Quellcode:

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//WIDESTRING SAVE
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
procedure SaveWideStringToFile(var ws: widestring; filename: string);
begin
  with TFileStream.Create(FILENAME, fmCreate or fmShareDenyWrite) do
  try
    Write(WS, length(ws));
  finally
    Free;
  end;
end;

b)

Delphi-Quellcode:

//WB_SaveHTMLCode SAVE
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
function WB_SaveHTMLCode(WebBrowser: TWebBrowser; const FileName: TFileName): Boolean;
var
  ps: IPersistStreamInit;
  fs: TFileStream;
  sa: IStream;
begin
  ps := WebBrowser.Document as IPersistStreamInit;
  fs := TFileStream.Create(FileName, fmCreate);
  try
    sa := TStreamAdapter.Create(fs, soReference) as IStream;
    Result := Succeeded(ps.Save(sa, True));
  finally
    fs.Free;
  end;
end;

Widestring speichern sowie mit dem Stream speichern liefern leider keine gültige XML Datei.Dieser Herr hier hatte wohl das selbe Problem.

Ist denn die Problematik so kompliziert heutzutage ?

[mjustin]

Seht in doc.XMLDocument.XML und nach der Zuweisung in der xml Variable (vor dem Speichern ...) denn der richtige Textinhalt?

[himitsu]

Warum ein großer fehleranfälliger WebBrowser (HTML), wenn du nur eine einfache XML haben willst?

Eventuell könnte man die auch direkt über die Indy runterladen?

[Der schöne Günther]

Wie willst du mit Indy/HTTP daran kommen wenn es anscheinend um eine lokale XML-Datei geht? Aber probieren könnte man's.

Ansonsten:

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
begin
   WebBrowser1.Navigate('C:\Users\Derp\filelist.xml');
end;

procedure TForm3.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
var
   myDoc: ihtmldocument2;
begin
   myDoc := webbrowser1.Document as IHTMLDocument2; // Wozu ist dann der Parameter pDisp eigentlich da?
   ShowMessage(myDoc.body.outerText);
end;

klappt bei mir bestens...

[himitsu]

Zitat von Der schöne Günther:

Wie willst du mit Indy/HTTP daran kommen wenn es anscheinend um eine lokale XML-Datei geht? Aber probieren könnte man's.

Entweder hab ich das überlesen oder es wird nirgendwo erwähnt wo die XML-Datei her kommt.

Wenn sie wirklich lokal ist, dann kann man die natürlich z.B. direkt über einen File-Stream auslesen
und wenn sie aus dem Internet kommt, dann muß der Browser sie ja von irgendwo her haben, weswegen man auch direkt, z.B. via Indy, an diese Resource rankommen könnte.

[Ajintaro]

Guten Morgen

Danke für eure Antworten. Die XML Datei ist keine lokale Datei, sie kommt online als Antwort auf eine Anfrage. Da bis zu 10 verschiedene Antworten kommen können, möchte ich eben jede XML-Antwort lokal speichern. (damit ich mir sie in Ruhe nochmal ansehen kann)

Ich habe es nun folgendermaßen gelöst:

Delphi-Quellcode:

var
xml: WideString;
doc: OleVariant;

begin
 doc := WebBrowser1.Document;
 xml := doc.XMLDocument.XML;
 Memo1.Clear;
 Memo1.Lines.Add(xml);
 Memo1.Lines.SaveToFile(my_directory+aktuelles_item+'.xml');
end;

Vermutlich nicht elegant, funktioniert aber ganz gut. Das XML file wird von jedem Browser problemlos akzeptiert und sauber angezeigt. Zukünftig kann ich das Memo wegoptimieren und durch eine Stringlist ersetzen.

[-=ZGD=-]

Dann würde ich das via Indy-HTTP lösen und das Result des GET/POST in einen FileStream und diesen speichern..

Meiner Meinung nach die elganteste Lösung.

[Dejan Vu]

Sowas altmodisches wie 'AssignFile', 'Rewrite' etc. geht nicht mehr?

Delphi-Quellcode:

Procedure WriteStringToFile (Const aText : WideString; Const aFilename : String);
Var
  f : TextFile;

Begin
  AssignFile(f,aFilename);
  Rewrite(f);
  Write(f,aText);
  CloseFile(f);
End;

Bin echt aus der Übung...

[himitsu]

Das Speichern ist nicht das Problem, sondern das Auslesen aus dem TWebBrowser.

Daher auch der Vorschlag mit Indy, wo man den Inhalt (die XML) eben leichter raus bekommt.