Hi,

Ich wollte mal wissen, wie ich überhaupt eine TProgressbar für den Ladestatus eines TWebBrowser's einsetzen kann. Gib es überhaupt ne allgemeine Lösung zum einsetzen einer TProgressbar?

Ich habe auch schon im Netz und in der Online Hilfe geschaut, aber da finde ich nicht wirklich das was ich suche.

Dazu hat der TWebBrowser einige Nachrichten. Zb.

Zitat:

Das Ereignis OnProgressChange wird ausgelöst, wenn der Fortgang einer Herunterladen-Operation aktualisiert wird. type TWebBrowserProgressChange = procedure(Sender: TObject; Progress: Integer; ProgressMax: Integer) of object; property OnProgressChange: TWebBrowserProgressChange; Beschreibung In der Ereignisbehandlungsroutine für OnProgressChange können Sie dem Benutzer beim Herunterladen eines Dokuments eine visuelle Rückmeldung über den Fortgang der Operation geben. Sie können beispielsweise eine TProgressBar-Komponente aktualisieren oder die Anzahl der heruntergeladenen Bytes anzeigen. Sender gibt die WebBrowser-Komponente an, die das Dokument herunterlädt. Progress gibt an, wie weit die Operation fortgeschritten ist (in einem Bereich von 0 bis ProgressMax). Wenn Progress den Wert –1 hat, ist die Aktion abgeschlossen. ProgressMax ist der Maximalwert des Bereichs. Tip: Sie können den Fortgang auch in einen Prozentwert umrechnen (wenn Progress nicht –1 ist). Multiplizieren Sie dazu den Wert von Progress mit 100, und dividieren Sie das Ergebnis durch ProgressMax.

p.s. war übrigens in der Hilfe, Delphi-vcl-Referenz-TWebBrowser-Ereignisse
grez
msch

Naja, soweit hatte ich mir das auch schon vorgestellt, aber wie bekommt nun die Progressbar die Werte vom Browser?

Hast du denn ein Beispiel parat?
Finde auch gar nicht den Text in der Online Hilfe, den du gepostet hast

Die Werte liefert dir die Komponente wie beschrieben. Du mußt sie nur auswerten und graphisch anzeigen.

Zitat:

Progress gibt an, wie weit die Operation fortgeschritten ist (in einem Bereich von 0 bis ProgressMax). Wenn Progress den Wert –1 hat, ist die Aktion abgeschlossen. ProgressMax ist der Maximalwert des Bereichs. Tip: Sie können den Fortgang auch in einen Prozentwert umrechnen (wenn Progress nicht –1 ist). Multiplizieren Sie dazu den Wert von Progress mit 100, und dividieren Sie das Ergebnis durch ProgressMax.

deine Funktion könnte so aussehen:

fertig.

Die Infos stammen aus der Delphi Hilfe (D6-Enterprise)
grez
MSch

Da

steht alles was du brauchst. Wie wäre es, wenn du einfach mal die Prozedur im OI anlegst und dann mal reinkuckst?

Es hat geklappt.


Danke für eure Hilfe