Probleme avec Webbrowser

bonjour,

je cherche à imprimer une page web à partir de webbrowser. alors j'ai cree une webbrowser dans ma forme et j'ai met le code suivant :

Code:

---

1 2 3 4 5 6 7

WB.Navigate(site);   while WB.ReadyState < READYSTATE_COMPLETE do Application.ProcessMessages;   WB.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);

---

ce code fonctionne bien et sans problème, mais puisque je cherche à imprimer à partir d'une application console, bein j'ai modifié mon code pour creer le webbrowser dynamiquement :

Code:

---

1 2	WB := TWebBrowser.Create(Application);

---

et la, 2 mauvaises surprises :
1 -

Code:

---

while WB.ReadyState < READYSTATE_COMPLETE do

---

boucle à l'infini
2 -

Code:

---

WB.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);

---

provoque une exception : "Tentative de révocation d'une cible de dépôt qui n'a pas été enregistrée"

quelqu'un a une idée d'où est ce que ces problèmes peuvent venir?

Merci d'avance

je crois que je commence à identfier le problème. En fait pour que ca fonctionne il fallait faire :

Code:

---

1 2 3

WB := TWebBrowser.Create(Self); TOleControl(WB).Parent := Self;

---

mais cela ne fonctionne pas dans une application console! en gros il ne connait pas 'Self'!! et j'ai essayé de la remplacer par autre chose genre 'nil' ou 'Application' mais ca ne fonctionne pas!

quelqu'un a une idée??

Reprend ton code non dynamique et note toutes les propriétés déclarées dans le fichier DFM (ouvrir comme texte pour le lire).
Ensuite, crée ton objet dynamique et redéfini ces mêmes propriétés...
Au final, tu retrouveras les mêmes caractèristiques.

Mais en fait, j'ai pas bien compris ton but...
Si tu veux juste cacher la fenêtre, tu peux aussi utiliser Form1.Hide, non ?
Quel est l'objectif d'une appli console dans ton cas ? Tu veux afficher des infos dans la console ?

Tu savais aussi que IE est capable d'imprimer avec un simple ShellExecute ? Par contre, je n'ai jamais réussi à imprimer et que IE caché. Apparemment, il faut que la page soit affichée pour être imprimée... :(

Citation:

---

Si tu veux juste cacher la fenêtre, tu peux aussi utiliser Form1.Hide, non ?
Quel est l'objectif d'une appli console dans ton cas ? Tu veux afficher des infos dans la console ?

---

Meme pas! j'utilise une application console parce que je n'ai besoin d'aucun affichage, alors j'ai besoin d'une application qui imprime un site sur une imprimante recu en param.
j'imagine que si j'utilise une application normale, le temps d'execution sera plus lent!

Citation:

---

Tu savais aussi que IE est capable d'imprimer avec un simple ShellExecute ?

---

comment on peut faire ca? je sais qu'on peut faire :

Code:

---

ShellExecute(0, 'open', 'http://www.google.fr', ...)

---

mais alors:

Code:

---

ShellExecute(0, 'print', 'http://www.google.fr', ...)

---

je n'en suis pa sur!!

Citation:

---

Par contre, je n'ai jamais réussi à imprimer et que IE caché. Apparemment, il faut que la page soit affichée pour être imprimée...

---

si, c'est possible, j'ai reussi depuis mon dernier message mais tres difficilement. avec ce code ca marche tres bien quand j'execute pas à pas. mais quand je lance l'executable directement il me donne l'erreur: "dialogarguments.__ie_printtype a la valeur null ou n'est pas un objet"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

try objIE := CreateOLEObject('InternetExplorer.Application');   objIE.application.Visible := False; objIE.application.Navigate(site);   while (objIE.ReadyState <> 4) or objIE.Busy do sleep(200);   objIE.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);   while objIE.Busy do sleep(200); finally objIE.Quit; objIE := Unassigned; CoUninitialize; end;

---

t'as une idée de comment éviter d'avoir ce problème?

Essaye d'ajouter un sleep à 2 ou 3 secondes entre chaque opération de ton code. Si ça fonctionne, essaye de voir ceux que tu peux enlèver sans que ça ne fonctionne plus.
Ou bien peut-être d'abord essayer avec Application.ProcessMessages plutôt que des sleep...

[EDIT]

Citation:

---

j'imagine que si j'utilise une application normale, le temps d'execution sera plus lent!

---

Faux ! Ou alors de très peu... ;)

j'ai remplacé

Code:

---

1 2	while objIE.Busy do sleep(200);

---

par :

Code:

---

1 2	sleep(3000)

---

et ca fonctionne très bien!!
tant qu'à faire, j'ai remplacé les sleep par Application.ProcessMessages, car je n'aimais pas non plus les sleep

merci bcp Sub0