Compression Tiff avec wia
Bonjour à tous je recupérais depuis mon scanner une image et je l'enregistrait au format tiff directement sur mon disque sans la compresser. L'image ainsi enregistré étant lourde j'ai décidé de la compresser. en utilisant le code suivant.
Code:
1
2
3
4
5
6
7
8
9
10
| img = New ImageFile
Prcs = New ImageProcess
Prcs.Filters.Add(Prcs.FilterInfos("Convert").FilterID)
Prcs.Filters(1).Properties("FormatID").Value =
Prcs.Filters(1).Properties("Compression").Value = "CCITT4"
img = CurrentItem.Transfer
img = Prcs.Apply(img) |
mais depuis avoir ajouté la ligne de compression j'ai une exception à la partie img = Prcs.Apply(img)
Je rappel que la partie compression je l'ai eu depuis un exemple en vb6. Pourriez vous me mettre sur la voie SVP. Je rappel encore que sans la ligne compression le code s'exécute correctement.
