Wie ProgressBar ansteuern bei EmbeddedWebBrowser?

[ptown67]

Hallo liebes Forum!

Ich bin in Delphi nicht gerade ein Profi und eher ein Hobby-Programmierer. Nun ist es so, dass ich für ein Forum, bei dem ich Experte bin, einen speziellen Browser entwickle, der zum Anzeigen unserer WAP-Version dient. Wir nennen das Ganze die 'Micro-Version für PC'. Kommt bisher beim Admin und der Moderation ganz gut an. Das Ganze hat bisher auch super geklappt.

Ich programmiere das Ganze mit Delphi 7 Personal, da mir nur ein Windows 98 System zur Verfügung steht. *nich lachen* Da meine Delphi-Version kein TWebBrowser hat, mache ich das Ganze mit dem EmbeddedWebBrowser von www.bsalsa.com.

Nun zu meinem Problem:

Wenn ich ganz einfach eine Seite mit dem Browser aufrufe, wie kann ich eine ProgressBar richtig funktionieren lassen?

Kann mir dazu evtl. jemand eine Codebeispiel nennen?
Einen ganz normalen Seitenaufruf mache ich so:

Delphi-Quellcode:

Browser.Go('http://wap.unserforum.de/');

Wie bringe ich dafür eine Progressbar zum Laufen?

Ich bin jeder Antwort dankbar!

Viele Grüße fmb! ;)

[API]

Hallo freeman.bytes

Es gibt ein OnProgressChange Ereignis.
Dort kannst du die Position der Progressbar setzen.

Tipp: Klick auf progressbar Twebbrowser

[ptown67]

servus API

dein tipp hat mich schon mal etwas weiter gebracht, da die progressbar ja jetzt schon mal wenigstens reagiert. jedoch zeigt sie mir das total falsch an...

ich google mal noch ein wenig weiter, wenn jemand noch einen tipp hat, würde mich das sehr freuen.

wenn ich eine lösung finden kann, werde ich das natürlich dann hier berichten ;)

gruß ;)

[ptown67]

hallo ich bins nochmal...

dieser EbeddedWebBrowser ist aber auch wirklich mist!

Gibt es denn keinke Möglichkeit, den normalen TWebBrowser für mein Delphi7 PE verfügbar zu machen? Die Indy-Packages z.b. konnte ich auch problemlos nachinstallieren.

Woher bekomme ich den TWebBrowser? Man sagte mir mal, dass dieser eher für die teuren Version von Delphi gedacht sei. Jedoch meine ich den schon in der 'Turbo Delphi Explorer' gesehen zu haben...

Gruß ;)

[bitsetter]

Zitat:

Zitat von freeman.bytes

Gibt es denn keinke Möglichkeit, den normalen TWebBrowser für mein Delphi7 PE verfügbar zu machen? Die Indy-Packages z.b. konnte ich auch problemlos nachinstallieren.

Woher bekomme ich den TWebBrowser?

Kurz mal gesucht:TWebbrowser in D7 Personal

Zitat:

Zitat von freeman.bytes

Jedoch meine ich den schon in der 'Turbo Delphi Explorer' gesehen zu haben...

Genau da brauchst du ihn nicht mal installieren.

[ptown67]

hi bitsetter!

danke für deinen tipp. leider kann ich turbo delphi explorer nicht nutzen, da ich ja (wie oben beschrieben) mit einem windows98-computer programmiere, bei dem nicht mehr geht als delphi7. die anderen version brauchen mindestens windows 2000 so viel ich weiss...

aber trotzdem danke für den link mit dem twebbrowser für d7!

inzwischen konnte ich auch die progressbar für den EmbeddedWebBrowser richtig in betrieb nehmen. das ganze funktioniert genauso wie beim normalen twebbrowser.

sollte jemand mal ein ähnliches problem haben, hier der code, der das ganze möglich machte:

Delphi-Quellcode:

procedure TFrameBrowser.BrowserProgressChange(ASender: TObject; Progress,
  ProgressMax: Integer);
begin
If (Progress>=1) and (ProgressMax>1)
    then
       begin
         ProgressBar1.Visible  := True;
         ProgressBar1.Position := Round((Progress * 100) Div ProgressMax);
        end
   else
      begin
          ProgressBar1.Position := 1;
          ProgressBar1.Visible  := False;
      end;
end;

viele grüße ;)