Discussion :

[delphidebutant]

Bonjour,

Avec le TWebBrowser, j'ai un plantage sur l'appel de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Webbrowser1.OleObject.Document.links.Length

ou de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WebBrowser1.OleObject.Document.Images.Length

La compil passe bien, mais à l'éxécution, j'ai un "Violation d'accès à l'adresse 04590 et des brouettes, Lecture de l'adresse 00000000".

En pazapa, l'appli pose le crayon.
En lançant le .exe, j'ai un plantage au premier chargement d'une url, mais l'appli poursuit malgré tout. Ma page s'affiche, mais pas les liens, ni les images.

Pour avoir l'affichage des liens, ou des images de la page n, que récupère dans un TListBox, je dois afficher la page n+1

Quelqu'un voit-il la cause de mes soucis ?

Par ailleurs, je vais utiliser la fonction PosEx, mais je dois sans doute compléter mes uses.
Et je trouve aucun Posex dans l'aide Delphi (D6 perso).
Cette aide est vraiment peu bavarde sur tout ce qui est "String"...ou je cherche pas au bon endroit ?

Merci par avance pour vos infos.

[delphidebutant]

Et je poursuis avec ma liste de questions

Là, je suis en train d'essayer de sauver une image d'une page, mais sans passer par une boite de dialogue.

Ce topic
http://www.developpez.net/forums/sho...egistrer+image
parle d'une mystérieuse fonction UrlDownloadToFile pas claire pour moi.

Je me pose aussi des questions sur cette mystérieuse propriété :
OleObject.Document.Images du TWebBrowser, et je ne trouve pas cette propriété référencée quelque part...

Merci pour votre aide.

[delphidebutant]

Au départ je pensais à ça, en me disant que c'était trop simple !!!!
http://www.developpez.net/forums/sho...ghlight=urlmon

et en fait, ça marche.

Mais comme j'aimerais régler ce pb de plantage à la 1é url, je laisse le truc sans résolu.

[Kaféine]

Bonjour,

A mon avis ton problème d'exception vient du faite que ton appel à

Webbrowser1.OleObject.Document.links.Length

intervient trop tôt.

fais plutôt l'appel a cette fonction une fois que le document à terminer de charger.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
procedure TForm1.FormShow(Sender: TObject);
begin
//allons voir ce qui se passe sur Developpez.com
  WB.Navigate('http://www.developpez.com');
 
//ERREUR APPEL TROP TOT ALORS EXCEPTION
//GRRRR PAS BIEN
//  Showmessage(IntToStr(WB.OleObject.Document.Images.Length)); 
end;
 
procedure TForm1.WBDocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
//Ici l'appel est tranquille car le document est chargé et existe :p
  Showmessage(IntToStr(WB.OleObject.Document.Images.Length));
end;

J'obtiens donc 86 images sur developpez.com

[ShaiLeTroll]

tu devrais vérifier si le Document est chargé !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
// -----------------------------------------------------------------------------
procedure WaitWebAssigned(const WebBrowser: TWebBrowser; TimeOut: Cardinal);
var
   StartTime, PointTime(*, DiffTime*): Cardinal;
begin
     try
        StartTime := GetTickCount();
        repeat
          Sleep(1); // Il laisse une Milliseconde Entière aux Autres Processus
          Application.ProcessMessages();
          PointTime := GetTickCount();
        // Continue tant que l'Objet est vide ou que le Délai Maximum soit écoulé
        until not VarIsEmpty(WebBrowser.OleObject.Document) or (PointTime >= StartTime+TimeOut);
 
        if not VarIsEmpty(WebBrowser.OleObject.Document) then begin
           StartTime := GetTickCount();
           repeat
             Sleep(1); // Il laisse une Milliseconde Entière aux Autres Processus
             Application.ProcessMessages();
             PointTime := GetTickCount();
           until not VarIsEmpty(WebBrowser.OleObject.Document.Body) or (PointTime >= StartTime+TimeOut);
        end;
     except
        ShowMessage('L''Affichage HTML ne sera pas disponible avant quelques secondes !');
     end;
end;

[Kaféine]

procedure WaitWebAssigned(const WebBrowser: TWebBrowser; TimeOut: Cardinal);
var
StartTime

(...)

Pourquoi réinventer la roue quand un évênement OnDocumentComplete existe

[ShaiLeTroll]

Personnellement, avec des fichiers complexes, j'ai déjà des soucis avec le OnComplete, ayant fait sous Delphi un Bot qui test un site via IE, j'ai pu remarqué
DocumentOnComplete indique que le HTML est entièrement téléchargé mais n'indique aucunement que l'ensemble des interfaces du Body ont été complètement instanciés, rappelons que les traitements du TWebBrowser sont asynchrones ...

[Kaféine]

les traitements du TWebBrowser sont asynchrones

oui, c'est justement à cause de ca que l'erreur suivante est possible...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
procedure TForm1.FormShow(Sender: TObject);
begin
  WB.Navigate('http://www.developpez.com');
 
//puisque le TWebBrowser accède de façon asynchrone au document
//la ligne suivante crée une erreur car le doc n'est pas tout à fais chargé
  Showmessage(IntToStr(WB.OleObject.Document.Images.Length)); <-- Erreur ici
end;

c'est pourquoi il existe le OnDocumentComplete qui permet de passe outre les problèmes liés à l'asynchroneen étant sur que le document est completement chargé!!.

Noublions pas que TWebBrowser n'est qu'une encapsulation du control d'Internet Explorer (Shdocvw.dll)!

bref le OnDocumentComplete te certifie que le document est chargé.

...DocumentOnComplete indique que le HTML est entièrement téléchargé mais n'indique aucunement que l'ensemble des interfaces du Body ont été complètement instanciés

si la page est complexe genre avec des frames alors l'evenement est appele autant de fois qu'il a de documents (frames) et même dans pas mal de circonstance.

si tu veux être sûr que ta page est chargé (et que c'est pas une frame interne par exemple), tu peux le vérifier avec le paramètre VAR: var URL: OleVariant

je sais pas trop ce qu'on été tes problèmes lors de l'utilisation du TWebBrowser mais moi j'en ai jamais eu.
J'ai beaucoup utilisé le control d'IE dans différents projets avec delphi et je n'est jamais rencontré les problèmes que tu évoques.

tu peux me donner un exemple d'une des probleme que tu as rencontré ca m'intéresse.
merci

[ShaiLeTroll]

Je me souviens plus des problèmes, j'ai fait cette fonction dans le OnComplete et je n'ai plus eu de problèmes pour lire le InnerHTML (parsage du Body), je l'ai fait aussi pour afficher du HTML issu d'une BD, j'ouvrais la page "About:blank" et au lieu de mettre un gestionnaire sur OnComplete, je mettais cette boucle, et je modifiais le Body.InnerHTML directement ...

Maintenant, les comportements étaient différents entre un programme compilé en D3 avec un import manuel du TWebBrowser tournant sur un W2K et un programme compilé en D7 utilisant l'unité fourni par Delphi, tournant sur un WXP, ... ayant fait un code pour les deux versions, j'ai eu des problèmes liés à la version de IE et à la version du Wrapper de l'ActiveX, ... sache que la même fonction plante sur l'un et pas sur l'autre, et vice-versa ..., mais as-tu testé de IE 4 jusqu'à IE 6 tous tes codes comme je l'ai fait, tu as des surprises et quelques sécurités inutilement dans certaines versions te sauvent des d'autres ...