Discussion :

[SegmentationFault]

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 :

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

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 :

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

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

et la, 2 mauvaises surprises :
1 -

Code :

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

while WB.ReadyState < READYSTATE_COMPLETE do

boucle à l'infini
2 -

Code :

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

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

[SegmentationFault]

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

Code :

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

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??

[Sub0]

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...

[SegmentationFault]

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!

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 :

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

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

mais alors:

Code :

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

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

je n'en suis pa sur!!

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 :

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
 
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?

[Sub0]

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]

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

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

[SegmentationFault]

j'ai remplacé

Code :

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

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

par :

Code :

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

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