Webbrowser - Fehler beim Anzeigen des Quelltextes

[nezumi77]

Hallo,

ich habe eine Internetseite in einer Webbrowser Komponente geladen und lasse mir den Quelltext anzeigen mit:

Delphi-Quellcode:

Memo1.Lines.Text := WebBrowser1.OleObject.Document.documentElement.innerHTML;

Leider werden statt Leerzeichen teilweise Fragezeichen angezeigt. Es handelt sich um Leerzeichen mit dem Code (Raute)8200(Semikolon). Das erkenne ich, wenn ich mir den Quelltext dieser Seite mit Firefox anzeigen lasse.

Hat jemand eine Idee, wie ich das beheben kann?

Gruß,
Stephan.

[jaenicke]

Es handelt sich dabei um ein Unicodezeichen. Vor Delphi 2009 unterstützt Delphi das nur teilweise. Wenn es nur das eine Zeichen ist, kannst du es ja einfach ersetzen.

Grundsätzlich frage ich mich: Brauchst du überhaupt den TWebBrowser? Ich meine, nur zum Quelltext einer Internetseite auslesen ist der ja wenig sinnvoll...

[nezumi77]

Zitat:

Zitat von jaenicke

Es handelt sich dabei um ein Unicodezeichen. Vor Delphi 2009 unterstützt Delphi das nur teilweise. Wenn es nur das eine Zeichen ist, kannst du es ja einfach ersetzen.

Grundsätzlich frage ich mich: Brauchst du überhaupt den TWebBrowser? Ich meine, nur zum Quelltext einer Internetseite auslesen ist der ja wenig sinnvoll...

Gibt es denn eine Möglichkeit an den Quelltext zu kommen, ohne TWEbBrowser? Ich möchte kein externes Programm dafür starten müssen...

Das Fragezeichen zu ersetzen wäre auch ok, aber wenn ich das mache, werden leider auch die richtigen Fragezeichen ersetzt.

[jaenicke]

Indy + TIdHttp, damit kannst du ganz ohne visuelle Komponente eine Webseite schnell herunterladen. Anders als bei TWebBrowser wird diese da nicht extra noch geparst usw., so dass das sehr viel schneller geht. ;-)

Einzige Einschränkung: Wenn auf der Seite Skripte wichtig sind um die Daten zu erhalten, dann geht das nicht, denn auch die führt TIdHttp nicht aus.

[mkinzler]

Zitat:

Einzige Einschränkung: Wenn auf der Seite Skripte wichtig sind um die Daten zu erhalten, dann geht das nicht, denn auch die führt TIdHttp nicht aus.

Sebastian meint hiermit clientseitige Skripte.

[nezumi77]

Ich habs gerade Mal versucht:

Delphi-Quellcode:

Memo1.Lines.Text := idHTTP1.Get(Edit1.Text);

bekomme da aber immer die Fehlermeldung: 301 Moved Permanently. Grübel und am Kopf kratz...

[jaenicke]

Delphi-Quellcode:

IdHttp1.HandleRedirects := True;

[nezumi77]

Klappt! Vielen Dank für die schnelle Hilfe :spin2: