![]() |
webbrowser zu langsam
hallo :)
ich kann mit folgendem code wunderbar die nächste webseite "ansurfen/aufrufen". das mit dem webbrowser dauert nur so lange, kann man sowas schneller machen, evt. mit der idhttp-komponente?
Delphi-Quellcode:
grüße
procedure TForm1.NextPage;
var Idx: Integer; Document: IHTMLDocument2; DocAll: IHTMLElementCollection; DocElem: IHTMLElement; begin Document := webbrowser.Document as IHTMLDocument2; if Assigned(Document) then begin DocAll := Document.All; Idx := DocAll.length -1; Hit := False; while (Idx >= 0) and (not Hit) do begin DocElem := DocAll.Item(Idx, '') as IHTMLElement; if Pos('Next', DocElem.innerText) <> 0 then Hit := True else Dec(Idx); end; if Hit then begin DocElem.Click; while webbrowser.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages; end; end; end; horst |
Re: webbrowser zu langsam
warum sollte das denn nicht gehen :gruebel:
|
Re: webbrowser zu langsam
super und wie? und ist es dann schneller? :hello:
|
Re: webbrowser zu langsam
such einfach im forum ;-)
da gabs schon so viel dazu... |
Re: webbrowser zu langsam
Ja. Aber dann musst du einen eigenen Browser schreiben. Entwerder ganz TWebbrowser oder garnicht TWebbrowser
|
Re: webbrowser zu langsam
Zitat:
stell dir eine suche bei google vor (mit vielen ergebnissen) und du musst immer wieder den next link klicken... Zitat:
|
Re: webbrowser zu langsam
TWebbrowser ist eine Einbindung vom Internet Explorer, der komplett selbst agiert. Wenn du ihn beschleunigen willst, musst du ihn umschreiben.
|
Re: webbrowser zu langsam
Zitat:
|
Re: webbrowser zu langsam
Zitat:
Zitat:
|
Re: webbrowser zu langsam
Mit Indy kannst du die Dateien nur laden, aber nicht anzeigen. Du könntest die Seite mit Indy lokal speichern und diese Seite dann im TWebbrowser aufrufen.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:56 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz