Discussion :

[HeadQuaker]

Bonjour,

Nous avons un petit site intranet qui permet à des utilisateurs d'uploader des PDF dans un dossier public Exchange 2003.

Le site fonctionne globalement de la manière suivante:

- L'utilisateur créée un PDF pdfCreator ou office 2012...)
- Il met ensuite ce PDF dans un dossier public temporaire (je sais ce n'est pas simple)
- Il va sur le site intranet dans la section upload
- Le site détecte tous les PDF présents dans le dossier temporaire
- L'utilisateur sélectionne le PDF qu'il veut uploader
- Upload le PDF dans le dossier public et efface le pdf du dossier temporaire

Bien entendu, si dans le dossier public final il existe déjà un PDF, il est remplacé.

Maintenant, voici le problème:

Sous Windows XP, IE8, pas de problème.
Sous Windows 7, IE8 (même version), le PDF est uploadé mais lorsqu'on veut le lire il est corrompu.
Il manque en fait la fin du PDF, le trailer.

Un avis là dessus?

Pour info, voici en gros le code:

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
 
'========================================
'= Récupération de la taille du fichier =
'========================================
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set fich = FSO.GetFile(dirtemp & "\" & file)
taille = fich.size
		'==============================================================
		'= récupération du pointeur sur l'ancienne version du fichier =
		'==============================================================
		If FSO.FileExists(dirdocpubl & "\" & file) Then
			Set fichOld = FSO.GetFile(dirdocpubl & "\" & file)
 
			'=====================================
			'= Suppression de l'ancienne version =
			'=====================================
			fichOld.Delete
 
			Set fichOld = Nothing
		End If
 
 
 
fich.Copy (dirdocpubl)
fich.Delete

[roro06]

Bonjour

- Il met ensuite ce PDF dans un dossier public temporaire

pourquoi ne pas le mettre directement dans le repertoire public ? ça réglerait le problème ...

Sinon : utilises fso.copyfile(source, destination) au lieu de fich.Copy (dirdocpubl)

[HeadQuaker]

Bonjour,

Parce qu'il y a un formulaire que les utilisateurs doivent remplir avant l'upload et qui renseigne une BDD (incrémentation de versions, commentaires...).

Ce site est un vieux site fait en 2005, voir avant... et il fait un peu ce que SharePoint fait maintenant...

Je n'ai pas le droit de modifier le site, il y a une équipe DEV (mais peu connaissent ASP).


J'ai pensé à modifier la méthode pour copier.. mais pourquoi le code marcherait sur XP et plus sous Windows 7, comme si tout le fichier n'était pas copié.

J'ai repris le code et j'ai créé un script ASP à part: je n'ai aucun problème pour upload et lire le PDF.
Je pense donc que le problème n'est pas forcément dans la partie du code qui fait la copie, il doit y avoir quelque chose avant ou après qui corrompt le fichier. Je sais qu'après, il y a du code qui modifie des droits sur le fichier...

Pour être plus juste, voici le code exact de la page qui exécute l'upload.

Création c'est lorsqu'il y a un nouveau fichier sans incrémentation de version.

Modification, incrémentation de la version d'un fichier.

Il y a juste la partie concernant la variable dirdocpriv que je n'ai pas encore comprise... il est possible que le problème vienne de là.

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
 
'==============================
'= Création ou modification ? =
'==============================
Dim creation
creation = False
If Request.QueryString("action") = "creation" Then creation = True
%>
 
<%
'========================================
'= Récupération de la taille du fichier =
'========================================
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set fich = FSO.GetFile(dirtemp & "\" & decode(Request.QueryString("nomdoc")))
taille = fich.size
%>
 
<%
'================================
'= Gestion physique du document =
'================================
 
	'================
	'= Modification =
	'================
	If Not creation Then
 
		'==============================================================
		'= récupération du pointeur sur l'ancienne version du fichier =
		'==============================================================
		If FSO.FileExists(dirdocpubl & "\" & decode(Request.QueryString("nomdoc"))) Then
			Set fichOld = FSO.GetFile(dirdocpubl & "\" & decode(Request.QueryString("nomdoc")))
		Else
			Set fichOld = FSO.GetFile(dirdocpriv & "\" & decode(Request.QueryString("nomdoc")))
		End If
 
		'=====================================
		'= Suppression de l'ancienne version =
		'=====================================
		fichOld.Delete
		Set fichOld = Nothing
 
	End If
 
	'======================================
	'= Création ou modification : Recopie =
	'======================================
	If Request.form("publ") = "publ" Then
		fich.Copy dirdocpubl & "\" & decode(Request.QueryString("nomdoc"))
		fich.Delete
	Else
		fich.Copy dirdocpriv & "\" & decode(Request.QueryString("nomdoc"))
		fich.Delete
	End If
%>

[vanquish]

Le contexte était complètement différent ; mais sait-on jamais ....
J'ai eu ce type de problème sur des RTF : tronqués lors d'une copie à travers le réseau.
Le soucis venait de l'anti-virus.

[HeadQuaker]

Le contexte était complètement différent ; mais sait-on jamais ....
J'ai eu ce type de problème sur des RTF : tronqués lors d'une copie à travers le réseau.
Le soucis venait de l'anti-virus.

J'ai pensé à ça mais le problème c'est que ça fonctionne depuis mon poste avec une copie du code.

Et puis apparemment parfois ça fonctionne.

[HeadQuaker]

hum

Je suis perdu car pourquoi tout fonctionnerait sous XP et pas sur 7

[roro06]

Je suis perdu car pourquoi tout fonctionnerait sous XP et pas sur 7

Parce que ce n'est pas la même version de IIS qui tourne (v6 d'un côté, 7.5 de l'autre). Forcément, scripting.filesystemObject ne doit pas être implémenté de la même manière. De plus, microsoft ne supporte plus ASP classic depuis win7 (et peut-être même vista) .

[HeadQuaker]

Parce que ce n'est pas la même version de IIS qui tourne (v6 d'un côté, 7.5 de l'autre). Forcément, scripting.filesystemObject ne doit pas être implémenté de la même manière. De plus, microsoft ne supporte plus ASP classic depuis win7 (et peut-être même vista) .

Quel rapport ? Le site est hébergé sur un serveur 2003... je ne vois pas en quoi IIS du client changerait quelque chose?

Sans compter que c'est aussi le serveur qui gère l'upload.

Le client ne fait que de l'affichage d'infos...

Je précise le schéma:

Voilà ce que fait l'utilisateur sur son poste:

1 - Utilisateur génère un PDF. L'outil n'a pas d'importance car le problème est le même sur plusieurs outils
2 - Utilisateur place ce PDF dans un dossier public exchange 2003 (Stockage Temp) auquel il a accès
NB: le fichier n'est pas corrompu à ce moment là !
3 - Utilisateur se connecte au site web en administrateur
4 - Il va sur une page qui liste les PDF qui sont dans le dossier Stockage Temp
5 - Il sélectionne un de ces PDF
6 - Entre des informations qui seront stockées en BDD sur ce PDF
7 - Il valide


Voilà ce qui se passe côté serveur maintenant.
1 - Si le fichier n'existait pas, il s'agit d'une création, sinon une mise à jour
2 - Si création, il copie le fichier de Stockage Temp vers un dossier public exchange sur le même serveur appelé Publication
3 - Si modification, il supprime l'ancien fichier du dossier Publication puis copie le nouveau dans le répertoire Publication
4 - Suppression du fichier dans Stockage Temp
5 - Ajout des informations sur le fichier dans une BDD

Et c'est tout...

Résultat: les fichiers qui sont mis à jour sont systématiquement corrompus depuis le passage du client vers Windows 7.

Pour être précis, il manque le trailer du PDF, comme s'il n'était pas allé au bout de l'upload.