Discussion :

[Tempotpo]

lors du lancement du impression j'ai un message d'erreur :"Tentative de revocation d'une cible qui n'a pas été ouverte"

Code :

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

1
2
3
 
WebBrowserCptRT.Navigate(Compilation_FichierDestHtm); 
WebBrowserCptRT.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);

[Tempotpo]

s'il vous plait aidez moi si vous avez des idées ??

[Tempotpo]

pr info : c'est une erreur OLE d'apres le message

[Tempotpo]

la je compren plus rien je m'explique

j'ai crée un bouton qui me permet d'imprimer la page web que je charge precedement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TTest.bImpressionCRTClick(Sender: TObject);
var vaIn, vaOut: OleVariant;
begin
 try
   WebBrowserCRT.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
 except
   ShowMessage('erreur');
 end;
 pCptWebBrowser.Visible := False;
end;

voila rien de tres exceptionnel jusqu'a present donc c'est la que c'est drole

je fai ce code la puis j'appuie sur le bouton Imprimer de la page web

Code :

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

1
2
WebBrowserCRT.Navigate(Compilation_FichierDestHtm);
    pCptWebBrowser.Visible := True;

ceci marche nickel impression bien passer rien a dire

et la chute la blague la voila

j'ajoute la ligne suivant au code ci dessus :

Code :

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

1
2
3
WebBrowserCRT.Navigate(Compilation_FichierDestHtm);
    pCptWebBrowser.Visible := True;
    bImpressionCRTClick(Self);// appel du bouton d'impression

et la j'ai l'erreur que je vous es deja dit pourquoi?

ce que je veu faire est simple lancez l'impression de ma page sans avoir a faire apel a l'utilisateur pour appuyer sur le bouton



je suis prenneur de toute idée bidouille ou autre

merci

[Pierre Castelain]

Il faut que tu attende que navigateur ait fini de charger la page. Quelque chose dans ce goût là devrait fonctionner :

Code :

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

1
2
3
4
5
 
  WebBrowser1.Navigate('http://www.google.fr');
  while WebBrowser1.Busy do
    Application.ProcessMessages;
  // Ton code d'impression

[Tempotpo]

juste une question car j'y avais penC mais j'avai utiliser cette methode peut etre pas exactement comme toi et sa n'avait pa marcher du coup apres j'ai testé un sleep de 5s sur une page qui en theorie est largement charger et idem ca marchai pas donc as tu fait des essayer pour savoir si ca vien de chez moi ou d'autre chose mais je vai quand meme refaire ce test

merci pour le coup de main

[Tempotpo]

je vien de tester avec ce code idem meme erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TTest.bImpressionCRTClick(Sender: TObject);
var vaIn, vaOut: OleVariant;
begin
 try
   while WebBrowserCRT.Busy do
    Application.ProcessMessages;
   WebBrowserCRT.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
 except
   ShowMessage('erreur');
 end;
 pCptWebBrowser.Visible := False;
end;

serieux la j'ai plus d'idée et sa me soul car je capte pas pourquoi ca marche je compte sur vous pour me sortir de cette galere

merci encore

[Tempotpo]

personne n'a d'idée.???

[Pierre Castelain]

Je ne sais pas pourquoi tu as ce problème. Voici ce que je viens de tester avec succès :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.Button1Click(Sender: TObject);
var
  vaIn, vaOut: OleVariant;
begin
  WebBrowser1.Navigate('http://delphi.developpez.com');
 
  while WebBrowser1.Busy do
    Application.ProcessMessages
 
  WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT,
    OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
end;

Peut-être un problème avec ta version d'Internet Explorer ou avec le document que tu ouvre ?

[Tempotpo]

je suis ok avec toi en passant par un bouton imprimer cela fonctionne chez moi aussi si on va sur le bouton on clic dessus pas de probleme ca marche nickel

mais si je fai l'appel de la fonction lié au bouton sa marche pas ????

[Tempotpo]

Bon je vais faire un recapitulatif de ma situation

voila la fonction que j'utilise pour imprimer ma page web :

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
 
Procedure TTest.ImprimerCRT();
var  vaIn, vaOut: OleVariant;
begin
  if Application.MessageBox(PChar(Traduction_Traduire(9378)),PChar(Traduction_Traduire(2010)), MB_YESNO) = IDYES then
  begin
    WebBrowserCRT2.Navigate(Compilation_FichierDestHtm);
    try
      while WebBrowserCRT2.Busy do
        Application.ProcessMessages;
        WebBrowserCRT2.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
      except
        ShowMessage('erreur');
      end;
  end;
end;

voici la fonction qui appel ma fonction d'impression :

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
 
procedure TTest.TraitementCRT();
begin
  mCptRenduHtm.Clear();
  mCptRenduHtm.Lines.LoadFromFile(Compilation_FichierSourceHtm );
 
  mCptRenduHtm.Lines.Text := ExchangeVarCpt('&DIAL',mCptRenduHtm.Lines.Text);
  mCptRenduHtm.Lines.Text := ExchangeVarCpt('&DIAL',mCptRenduHtm.Lines.Text);
  mCptRenduHtm.Lines.Text := ExchangeVarCpt('&DATE',mCptRenduHtm.Lines.Text);
  mCptRenduHtm.Lines.Text := ExchangeVarCpt('&DATE',mCptRenduHtm.Lines.Text);
  mCptRenduHtm.Lines.Text := ExchangeVarCpt('&HEURE',mCptRenduHtm.Lines.Text);
  mCptRenduHtm.Lines.Text := ExchangeVarCpt('&HEURE',mCptRenduHtm.Lines.Text);
  mCptRenduHtm.Lines.Text := ExchangeVarCpt('&LABEL',mCptRenduHtm.Lines.Text);
  mCptRenduHtm.Lines.Text := ExchangeVarCpt('&LABEL',mCptRenduHtm.Lines.Text);
  mCptRenduHtm.Lines.Text := ExchangeVarCpt('&RESLABEL',mCptRenduHtm.Lines.Text);
  mCptRenduHtm.Lines.Text := ExchangeVarCpt('&RESLABEL',mCptRenduHtm.Lines.Text);
  mCptRenduHtm.Lines.Text := ExchangeVarCpt('&FILE',mCptRenduHtm.Lines.Text);
  mCptRenduHtm.Lines.Text := ExchangeVarCpt('&FILE',mCptRenduHtm.Lines.Text);
 
  mCptRenduHtm.Lines.Text := AnsiReplaceStr(mCptRenduHtm.Lines.Text,#$D#$A,' ');
  mCptRenduHtm.Lines.SaveToFile(Compilation_FichierDestHtm);
  ImprimerCRT ; // Appel de la fonction d'impression
end;

Ces fonctions sont en privées
mais je ne pense pas que cela crée de probleme et j'ai fait des test ca viendrai pas de la.

et donc j'ai toujours ce message d'erreur :
"Tentative de revocation d'une cible qui n'a pas été ouverte"

ma dernière idée viendrai sur le faite de l'ouverte et la sauvegarde de la page avant l'impression peut etre devrai ajouter une instruction pour fermer la page ou je ne sais pas trop quoi, c'est une idée et je ne sais pas comment la mettre en place en plus

encore un grand merci pour le coups de main

[Tempotpo]

je reactualise le message car je suis toujours en galere sur ce probleme

[skywaukers]

bonjour,

tu peux aussi utiliser un Timer qui lance l'impression dans sa méthode OnTimer et tu le rend Enable après ton navigate.

@++
Dany

[Tempotpo]

j'ai essayer avec un sleep ca n'a rien changer tu pense qu'un timer agirai différement

[skywaukers]

bonjour,

la différence entre un timer et un sleep, c'est que le timer n'est pas bloquant, par conséquent il laisse le code se poursuivre, et le webbrowser terminer son chargement et les traitements des messages windows. Maintenant, c'est une solution arbitraire, tu n'as pas de garantie quand à la fin du chargement au moment où le ontimer va se produire.

@++
Dany

[Tempotpo]

le sleep empecherai la page de se charger d'apres ce que tu me dit ???

[yougize]

Salut,

je ne sais pas si tu as trouvé une solution à ton pb. J'ai eu le même que toi et j'ai découvert l'événement onDocumentComplete dans le TWebBrowser qui permet de réaliser l'impression une fois que le chargement dans le browser est fini.

Voici mon code et ça fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TFormWebBrowser.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var vaIn, vaOut: OleVariant;
begin
  try
   WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
   except
    on E:Exception do
        MessageDlg('Pb impression:' + E.Message, mtError, [mbOK], 0);
    end;
end;

Voilà , a+