WebBrowser, erreur 404 et ProgressBar

Question

Bonjour à tous.

Plusieurs questions me taraudent  :big)  : 

- Comment puis-je détecter si une image affichée dans un WebBrowser existe réellement, si son URL est valide ou non ?

- J'ai bien étudié les solutions proposées sur ce même forum pour faire une progressbar suivant le chargement d'un document dans un WebBrowser (notamment un msg de nono40 à ce sujet), mais je ne vois pas comment réaliser ça concrètement.

- Question subsidiaire : j'ai la version personnelle de delphi 6, et l'aide est incomplète. Peut-on se procurer une aide complète qqpart ? (voire certains composants que n'a pas la version perso - la BDE me manque  %-6 )

Pourriez-vous m'aiguiller ?

Merci et à +
-------------------------
"La liberté, c'est de pouvoir dire merde à tout le monde." (R. Dorgelès)

cs_Nono40 · Answer

Pour le progressbar ce n'est pourtant pas compliqué, sur le OnProgressChange il faut mettre :
procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
begin
  If Progress>=0
  Then Begin
    ProgressBar1.Position:=(Progress*100) Div ProgressMax;
    ProgressBar1.Visible :=True;
  End
  Else Begin
    ProgressBar1.Visible :=False;
  End;
end;

--- :sleepy)  Nono40@fr.st  :sleepy) ---
Nouveau ---> Nono40.fr.st

finipe · Answer

Merci beaucoup !  :) 
-------------
"La liberté, c'est de pouvoir dire merde à tout le monde." (R. Dorgelès)

finipe · Answer

Il fallait juste ajouter à la condition de départ

If (Progress >= 0) and (ProgressMax <> 0)

sinon il y a division par zéro. Merci encore nono !
-------------------
"La liberté, c'est de pouvoir dire merde à tout le monde." (R. Dorgelès)

schnawd · Answer

non il faut Juste mettre If progress>0 then 




Schnawd

WebBrowser, erreur 404 et ProgressBar

4 réponses

Votre réponse

Discussions similaires