Bonjour à tous !
J'aimerais qu'on m'éclaire sur une chose, j'aimerais, pendant l'éxécution d'un script ( convertion de pdf en image et redimentionnement de l'image) qui prend beaucoup de temps afficher à chaque fin de boucle le message "Objet créer" ou quelque chose du genre quand l'évenement de conversion et de redimentionnement ce fait (également la lecture si possible) car pour l'instant je n'ai réussi qu'a afficher un message durant l'éxécution complète du script et un message de fin pour dire que le script est fini et mes response.write "convertion de l'image n°"&i, s'affiche tout en bloque à la fin du script :/
Voici mon scipt pour mieu comprendre :
<!-- *************************************************************************************************************** -->
<!-- * PARTIE HTML * -->
<!-- *************************************************************************************************************** -->
<html>
<head>
<title>
**\Transforme les 6 premières pages d'un fichier PDF en images et les redimentionnent/**
</title>
</head>
<body bgcolor="black" text="green"> <!--Fond noir et texte vert-->
</body>
</html>
<!-- *************************************************************************************************************** -->
<!-- * BALISE DIV POUR MESSAGES DURANT EXECUTION DU SCRIPT * -->
<!-- *************************************************************************************************************** -->
<DIV ID="plsWait" STYLE="position:float;z-index:5;top:10%;left:15%;" align="center"> <!--centrer-->
<table width=400 cellpadding=3 cellspacing=0 bgcolor="black">
<tr height=128>
<td bgcolor=#0000FF>
<table height=100% width=100% cellpadding=1 cellspacing=0>
<tr>
<td bgcolor=#FFFFFF align=center>
<b>
Veuillez patienter, chargement en cours...<br>
- Ne pas interrompre, le script copie les fichiers -
</b>
</td>
</tr>
</table>
</td>
</tr>
</table>
</DIV>
<DIV ID="isFinished" STYLE="display:none;position:float;z-index:5;top:1%;left:1%;" align="center">
<table width=400 cellpadding=3 cellspacing=0>
<tr height=64>
<td bgcolor=#00FF00>
<table height=100% width=100% cellpadding=1 cellspacing=0>
<tr>
<td bgcolor=#FFFFFF align=center>
<b>
Script terminé.
</b>
</td>
</tr>
</table>
</td>
</tr>
</table>
</DIV>
<!-- *************************************************************************************************************** -->
<!-- * SCRIPT D'EXECUTION : OUVERTURE DU PDF CREATION DE L'IMAGE A UNE TAILLE ELEVEE * -->
<!-- *************************************************************************************************************** -->
<%
' Puisque ça va être long, on se donne une heure :
Server.ScriptTimeout = 3600
' Pour afficher ce qu'on a déjà chargé :
response.flush
<!-- ************************************************************** -->
<!-- * 1.1 Convertir toutes les pages du pdf * -->
<!-- ************************************************************** -->
Call doMain()
sub doMain()
sPdfFile = "c:\\sample.pdf" 'Source du document PDF
sOutDir = "c:\\demo1" 'Repertoire de sortie
Set AxPdf2Image = Server.CreateObject("Pdf2ImageCOM.pdf2image") 'Create com object.
'Ouvre le fichier pdf et crée un convertisseur.
'Aprés que l'ouverture est réussi, cela crée un convertisseur et retourne le handle du convertisseur.
nHandle = AxPdf2Image.apOpen(sPdfFile,"","")
<!-- ************************************************************** -->
<!-- * 1.2 Vérification d'ouverture * -->
<!-- ************************************************************** -->
Select Case nHandle
Case ERR_FILE_UNEXIST
Response.write "Open '"+sPdfFile+"' failure - Source du pdf file inexistante !<br>"
exit sub
Case ERR_FILE_DAMAGED
Response.write "Open '"+sPdfFile+"' failure - Source du fichier pdf endommager !<br>"
exit sub
Case ERR_FILE_RESTRICTED
Response.write "Open '"+sPdfFile+"' failure - Source du fichier pdf restricted!<br>"
exit sub
End Select
Response.write "Source du fichier PDF: ["+sPdfFile+"] <br>"
Response.write "Repertoire de sortie: ["+sOutDir+"] <br>"
<!-- ************************************************************** -->
<!-- * 1.3 Propriétés * -->
<!-- ************************************************************** -->
AxPdf2Image.sOutDirectory = sOutDir 'repertoire de sortie
AxPdf2Image.iImageType = AP_IMAGE_JPG 'type d'image
AxPdf2Image.iXDPI = 500 'horizontal (en dpi)
AxPdf2Image.iYDPI = 500 'vertical (en dpi)
'Pour compter le nombre de pages
iPageCount = AxPdf2Image.apGetPageCount(nHandle)
Response.write "Nombre de page: [6] <br/>"
<!-- ************************************************************** -->
<!-- * 1.4 Boucle de conversion de fichier * -->
<!-- ************************************************************** -->
For iPageNo = 1 to 6 'Le site présente que les 6 première pages.
Response.write " Conversion de la page "+cstr(iPageNo)+"......<br>"
AxPdf2Image.apConvertPage nHandle,iPageNo
Next
'Ferme le fichier pdf et detruit le convertisseur.
AxPdf2Image.apClose nHandle
end sub
<!-- ************************************************************** -->
<!-- * 1.5 Changement du display des deux divs * -->
<!-- ************************************************************** -->
response.write "<script>"
' On cache "plsWait"
response.write "document.all["&chr(34)&"plsWait"&chr(34)&"].style.display = "&chr(34)&"none"&chr(34)&";"
' On montre "isFinished"
response.write "document.all["&chr(34)&"isFinished"&chr(34)&"].style.display = "&chr(34)&chr(34)&";"
response.write "</script>"
%>
<!-- *************************************************************************************************************** -->
<!-- * SCRIPT D'EXECUTION : OUVERTURE ET REDIMENTIONNEMENT DE L'IMAGE EN 400 PX * -->
<!-- *************************************************************************************************************** -->
<%
<!-- ************************************************************** -->
<!-- * 1.1 Définition du type d'image * -->
<!-- ************************************************************** -->
Const AP_IMAGE_BMP = 1 'BMP
Const AP_IMAGE_EMF = 2 'EMF
Const AP_IMAGE_WMF = 3 'WMF
Const AP_IMAGE_JPG = 4 'JPG
Const AP_IMAGE_PNG = 5 'PNG
Const AP_IMAGE_GIF = 6 'GIF
Const AP_IMAGE_TIF = 7 'TIF
Const AP_IMAGE_PCX = 8 'PCX
Const AP_IMAGE_JPEG = 4 'JPEG
Const AP_IMAGE_TIFF = 7 'TIFF
<!-- ************************************************************** -->
<!-- * 1.2 Repère de définition d'un fichier TIFF * -->
<!-- ************************************************************** -->
Const AP_TIFF_COMPRESSION_NONE = 0 'Pas de compression.
Const AP_TIFF_COMPRESSION_LZW = 1 '1, 4, 8, 24 bits (Par default 4, 8, 24bits)
Const AP_TIFF_COMPRESSION_JPEG = 2 'Grayscale 8bits, 24bits
Const AP_TIFF_COMPRESSION_PACKBITS = 3 '4, 8, 24bits
Const AP_TIFF_COMPRESSION_CCITTG4 = 4 '1 bit (Par default)
Const AP_TIFF_COMPRESSION_CCITTG3 = 5 '1 bit
Const AP_TIFF_COMPRESSION_RLE = 6 '1 bit
<!-- ************************************************************** -->
<!-- * 1.3 Retourne la définition du code * -->
<!-- ************************************************************** -->
Const RTN_OK = 1 'Opération réussite.
Const ERR_UNKNOWN = -99 'Erreur système inconnue.
Const ERR_FILE_UNEXIST = -2 'Source du PDF inexistante.
Const ERR_FILE_DAMAGED = -3 'Source du PDF endommager.
Const ERR_FILE_RESTRICTED = -4 'Source du PDF restricted.
<!-- ************************************************************** -->
<!-- * 1.4 Déclaration des variables * -->
<!-- ************************************************************** -->
dim i, image, coefficient, n, os
dim value
<!-- ************************************************************** -->
<!-- * 1.5 Boucle de création d'ouverture et de redimensionnement * -->
<!-- ************************************************************** -->
For i = 1 to 6
response.write "<br>"
Set Image = Server.CreateObject("AspImage.Image")
os = ""
os = "c:\demo1\sample0000"+CStr(i)+".jpg"
If Image.LoadImage (os) Then
Response.write " Image n°"
Response.write i
Response.write " chargée.. <br/>"
'Calcul du coefficient et redimensionnement de l’image
If Image.MaxX > 400 Then
Coefficient=400/Image.MaxX
W=int(Image.MaxX*Coefficient)
H=int(Image.MaxY*Coefficient)
Image.ResizeR W,H
Response.write " Et redimensionnée.."
End If
else
Response.Write "Echec du chargement de l'image n°"&i
End If
<!-- ************************************************************** -->
<!-- *1.6 Définition du nom de l'emplacement de la nouvelle image * -->
<!-- ************************************************************** -->
Image.FileName = "c:\demo1\sample0000"+CStr(i)+"redimentionne.jpg"
Image.SaveImage
Next
%>
Merci de votre aide si on peut m'éclairé 
Qui ne tente à rien n'a rien !