XML vom Browser speichern
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:
Ich habe versucht, mit den oben aufgeführten Variablen zum Ziel zu kommen (gültige XML-Datei zu speichern). Probiert habe ich es mit
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; a)
Delphi-Quellcode:
b)
{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//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;
Delphi-Quellcode:
Widestring speichern sowie mit dem Stream speichern liefern leider keine gültige XML Datei.Dieser Herr hier hatte wohl das selbe Problem.
//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; Ist denn die Problematik so kompliziert heutzutage ? |
AW: XML vom Browser speichern
Seht in doc.XMLDocument.XML und nach der Zuweisung in der xml Variable (vor dem Speichern ...) denn der richtige Textinhalt?
|
AW: XML vom Browser speichern
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? |
AW: XML vom Browser speichern
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:
klappt bei mir bestens...
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; |
AW: XML vom Browser speichern
Zitat:
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. |
AW: XML vom Browser speichern
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:
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.
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; |
AW: XML vom Browser speichern
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. |
AW: XML vom Browser speichern
Sowas altmodisches wie 'AssignFile', 'Rewrite' etc. geht nicht mehr?
Delphi-Quellcode:
Bin echt aus der Übung...
Procedure WriteStringToFile (Const aText : WideString; Const aFilename : String);
Var f : TextFile; Begin AssignFile(f,aFilename); Rewrite(f); Write(f,aText); CloseFile(f); End; |
AW: XML vom Browser speichern
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. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:45 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz