Exemple d'une utilisation java dans Lotus Notes

Salut,

Exemple d'utilisation : Zipper/Dezipper en LotusScript et Java

Ce code ce base sur http://www.devshed.com/c/a/Java/Zip-Meets-Java/

Voici un code exemple, dans mon exemple la bibliothèque de script s'appelle ZipFile

Code:

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
58
59
60
import java.io.FileInputStream; 
import java.io.FileNotFoundException; 
import java.io.FileOutputStream; 
import java.io.IOException; 
import java.util.zip.Deflater; 
import java.util.zip.ZipEntry; 
import java.util.zip.ZipOutputStream; 
 
public class ZipFile { 
 public String zipMyFile(String fileToZip, String zipFilePath) { 
  String result = ""; 
 
      byte[] buffer = new byte[18024]; 
 
      String zipFileName = zipFilePath; 
 
      try { 
 
        ZipOutputStream out = 
          new ZipOutputStream(new FileOutputStream(zipFileName)); 
 
        out.setLevel(Deflater.BEST_COMPRESSION); 
 
          System.out.println(fileToZip); 
 
          FileInputStream in = new FileInputStream(fileToZip); 
 
          out.putNextEntry(new ZipEntry(fileToZip)); 
 
          int len; 
         while ((len = in.read(buffer)) > 0) 
         { 
         out.write(buffer, 0, len); 
        } 
 
          out.closeEntry(); 
 
          in.close(); 
 
         out.close(); 
      } 
      catch (IllegalArgumentException iae) { 
        iae.printStackTrace(); 
   return "ERROR_ILLEGALARGUMENTSEXCEPTION"; 
      } 
      catch (FileNotFoundException fnfe) { 
        fnfe.printStackTrace(); 
    return "ERROR_FILENOTFOUND"; 
      } 
      catch (IOException ioe) 
      { 
      ioe.printStackTrace(); 
      return "ERROR_IOEXCEPTION"; 
      } 
 
 
  return "OK"; 
 
  } 
}

Un petit exemple d'utilisation dans un code LotusScript

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Uselsx "*javacon"
Use "ZipFile"
 
Sub Initialize 
 Dim js As JAVASESSION 
 Dim zipClass As JAVACLASS 
 Dim zipFileObject As JavaObject 
 Dim varFileToZip As String, varOutFilePath As String, returnCode As String 
 
 Set js = New JAVASESSION 
 Set zipClass = js.GetClass("ZipFile") 
 Set zipFileObject = zipClass.CreateObject 
 varFileToZip = "c:tempdocument.doc" 
 varOutFilePath = "c:tempthezipfile.zip" 
 
 returnCode = zipFileObject.zipMyFile(varFileToZip, varOutFilePath)
 
 If Not returnCode = "OK" Then 
  Print "An Error occurred" 
 Else 
  Print "Zip went OK" 
 End If 
End Sub