Discussion :

[jbraynaud]

Bonjour à tous,

J'ai développé il y a de cela quelques années une application interne de saisie qui utilise XML et XSLT pour générer des fiches html. Cette application permet de faire du reporting en masse et de générer plusieurs centaines de fiches html d'un coup.

Une fiche est un simple document html d'une page mise en forme pour une impression A4.

Elle offre aussi la possibilité, si l'utilisateur le désire d'imprimer directement les fiches lors de la génération. Pour cela, j'utilise TWebBrowser pour l 'impression. Le problème est assez récent puisqu'il date du passage IE6 à IE8. Avec IE6, pas de problème, tout se déroulait bien. Depuis le passage à IE8 dès que je veux imprimer plus de 1 fiche j'ai le message d'erreur suivant :



Peu importe que je clique sur oui ou non, j'ai l'erreur à chaque génération de fiche.
Apparemment, IE8 est connu pour ce genre de problème, mais aucune des solutions proposées sur divers forums n'a marché.

C'est donc très pénible pour les utilisateurs.
Si quelqu'un à une solution, un grand merci d'avance.

[ShaiLeTroll]

Tu devrais te passer totalement de IE et utiliser des composants HTML de la Jedi (Gratuit) ou THTMLCredit de TMS (Payant)
L'aspect sera forcément différent (comme entre IE, FF ou Chrome) mais cela évite ce type de problème !

Sinon bien moche, FindWindow de la classe #32770 genre ceci que j'ai utilisé pour un bot pour jouer à ma place sur un jeu web ben oui, aucun intéret le jeu, le bot nettement plus, à l'époque j'ai utilisé un TWebBrowser, car sans lui, les pages n'étaient pas complète (AJAX) et donc il manquait ce qui je voulais parser !

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
27
28
29
30
31
32
// -----------------------------------------------------------------------------
procedure TFrmShowURL.SilentMsgBox();
var
   lpClassName: PChar; // pointer to class name
   lpWindowName: PChar; // pointer to window name
   HwndParent: HWND;
const
   MsI = 'Microsoft Internet Explorer';
   ErreurScript = 'Erreur de script de Internet Explorer';
begin
   try
      lpClassName := nil; //'#32770';, // pointer to class name
      lpWindowName := MsI; // pointer to window name
      {Récupère le handle de la boite de dialogue}
      HwndParent := FindWindow(lpClassName, lpWindowName);
      if HwndParent <> 0 then begin
         SendMessage(HwndParent, WM_CLOSE, 0, 0);
         FichierLog('System', 'MessageBox', MsI);
      end;
 
      lpClassName := nil; //'#32770'; // pointer to class name
      lpWindowName := ErreurScript; // pointer to window name
      {Récupère le handle de la boite de dialogue}
      HwndParent := FindWindow(lpClassName, lpWindowName);
      if HwndParent <> 0 then begin
         SendMessage(HwndParent, WM_CLOSE, 0, 0);
         FichierLog('System', 'MessageBox', ErreurScript);
      end;
   except
      FichierLog('System', 'Except', Exception(ExceptObject()).Message);
   end;
end;