XML vom Browser speichern

[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.