1
2
3
4
5
6
7
8
DECLARE
  v_image IMAGE_PKG.LIGNE_DATA;
  v_larg NUMBER;
  v_haut NUMBER;
BEGIN
 	P_QRCODE (p_chaine => 'CECI EST MON QRCODE', p_quality => 'Q', p_image => v_image, p_largeur => v_larg, p_hauteur => v_haut);
  IMAGE_PKG.CREATION_FICHIER_IMAGE (p_data => v_image, p_largeur => v_larg, p_hauteur => v_haut, p_typeImg => 'PNG', p_IDWTT => 151, p_Nbcoul => 2, p_negatif => 'O');
END;

1
2
3
4
5
6
7
8
9
DECLARE
  v_image IMAGE_PKG.LIGNE_DATA;
  v_larg NUMBER;
  v_haut NUMBER;
  v_lob BLOB;
BEGIN
 	P_QRCODE (p_chaine => 'CECI EST MON QRCODE', p_quality => 'Q', p_image => v_image, p_largeur => v_larg, p_hauteur => v_haut);
  v_lob := IMAGE_PKG.CREATION_BMP(p_data => v_image, p_largeur => v_larg, p_hauteur => v_haut, p_Nbcoul => 2, p_negatif => 'O');
END;

1
2
3
4
5
6
7
8
9
10
DECLARE
  v_lob BLOB;
  v_image IMAGE_PKG.LIGNE_DATA;
  v_larg NUMBER := 2;
  v_haut NUMBER := 2;
BEGIN
  v_image(0) := '01';
  v_image(1) := '10';
  v_lob := IMAGE_PKG.CREATION_BMP(p_data => v_image, p_largeur => v_larg, p_hauteur => v_haut, p_Nbcoul => 2);
END;

1
2
3
4
5
6
7
8
9
CREATE GLOBAL TEMPORARY TABLE GTT_SQLITE_MASTER
( IDROW      NUMBER  NOT NULL,
  TYPE       VARCHAR2(30), -- table, index, trigger
  NAME       VARCHAR2(255), -- nom sqlite
  TABLENAME  VARCHAR2(128), -- nom de la table
  ROOTPAGE   NUMBER, -- Page Initiale de la table
  SQLTEXT    VARCHAR2(4000) -- Ordre sql de création
)
ON COMMIT PRESERVE ROWS;

1
2
3
4
5
6
DECLARE
 vdb BLOB;
BEGIN
 SELECT db INTO vdb FROM WSQLITEDB WHERE nom = 'McM';  -- Récupère la db sqlite 
 SQLDB_PKG.P_LIST_OBJECTS(vdb);
END;

SELECT * FROM GTT_SQLITE_MASTER WHERE TYPE = 'table' ORDER BY tablename

dbms_output.put_line('Nb de ligne de TARTICLE :'|| sqlitedb_pkg.F_NBLIG(vdb, 'TARTICLE'));

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
DECLARE
 vdb BLOB; v NUMBER;
BEGIN
 SELECT db INTO vdb FROM wsqlitedb WHERE nom= 'McM';
    sqlitedb_pkg.vgetrowid := TRUE; 
    sqlitedb_pkg.p_list_objects(vdb);
 
 sqlitedb_pkg.vgetrowid := FALSE; -- Je ne veux pas récupérer les rowid des lignes 
 sqlitedb_pkg.P_GETROWS(vdb, 'TARTICLE');    -- On récupère les données de TARTICLE 
 
 IF sqlitedb_pkg.nbcols > 0 -- Evite de planter si la table est vide.
 THEN 
  FOR i IN 1.. (sqlitedb_pkg.ldef.COUNT / sqlitedb_pkg.nbcols)
  LOOP
	v := (i-1) * sqlitedb_pkg.nbcols + 1;
    	INSERT INTO TEMP_ARTICLE(IDART, LIBART, DATE_CREA)
      VALUES(sqlitedb_pkg.lnum(v), sqlitedb_pkg.lchar(v+1), sqlitedb_pkg.f_date(sqlitedb_pkg.lchar(v+2)));
  END LOOP;
END IF;
END;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
DECLARE
	vdb BLOB; v NUMBER;
BEGIN
 SELECT db INTO vdb FROM wsqlitedb WHERE nom= 'McM';
 
 sqlitedb_pkg.P_GETROWS(vdb, 'TSTOCK');
 
 IF sqlitedb_pkg.nbcols > 0 -- Evite de planter si la table est vide.
 THEN 
  FOR i IN 1.. (sqlitedb_pkg.ldef.COUNT / sqlitedb_pkg.nbcols)
  LOOP
	v := (i-1) * sqlitedb_pkg.nbcols + 1;
    	INSERT INTO TEMP_STOCK(IDART, QTE)
      VALUES(sqlitedb_pkg.lnum(v), sqlitedb_pkg.lnum(v+1));
  END LOOP;
END IF;
END;

SELECT filename, datemaj, size_comp, size_uncomp FROM TABLE (F_LISTING_ZIP(:archives.nomdoc, :q1.nomfic))

1
2
CREATE OR REPLACE TYPE TYP_REC_VARCHAR AS OBJECT (filename VARCHAR2(2000), datemaj DATE, size_comp NUMBER, size_uncomp NUMBER);
CREATE OR REPLACE TYPE TYP_TAB_VARCHAR AS TABLE OF TYP_REC_VARCHAR;

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
FUNCTION F_LISTING_ZIP (p_doc IN VARCHAR2, p_nomfic IN VARCHAR2 DEFAULT NULL)  
  RETURN TYP_TAB_VARCHAR PIPELINED AS
  zip_files as_zip.file_list;
  v_doc BLOB;
 
  -- p_doc : Doc Zip pour récupérer le blob
  -- p_nomfic : Afficher la liste des noms de fichier contenant p_nomfic
 
BEGIN
/*
drop TYPE TYP_TAB_VARCHAR 
CREATE OR REPLACE TYPE TYP_REC_VARCHAR AS OBJECT (filename VARCHAR2(2000), datemaj DATE, size_comp NUMBER, size_uncomp NUMBER);
CREATE OR REPLACE TYPE TYP_TAB_VARCHAR AS TABLE OF TYP_REC_VARCHAR;
*/
    SELECT blob_zip
    INTO v_doc
    FROM ARCHIVE_FIC
    WHERE nomdoc = p_doc;
 
  zip_files  := as_zip.get_file_list( v_doc);
  IF zip_files IS NOT NULL
  THEN
    FOR i IN zip_files.FIRST .. zip_files.LAST
    LOOP
      IF (p_nomfic IS NOT NULL AND zip_files(i).filename LIKE '%'|| p_nomfic ||'%')
      OR p_nomfic IS NULL
      THEN
        PIPE ROW( TYP_REC_VARCHAR (zip_files(i).filename, zip_files(i).datemaj, zip_files(i).size_comp, zip_files(i).size_uncomp));
      END IF;
    END LOOP;
    END IF;
  RETURN;
END;

1
2
3
4
5
6
7
DECLARE
  v_zip BLOB;
BEGIN
  AS_ZIP.Add1File(v_zip, 'toto.pdf', AS_ZIP.File2Blob( 'MYDIR', 'toto.pdf' ) );
  AS_ZIP.Finish_Zip(v_zip);
  AS_ZIP.Save_Zip(v_zip, 'MYDIR', 'toto.zip' );
END;

1
2
3
4
5
6
7
8
9
DECLARE
  v_zip BLOB;
BEGIN
  v_zip := AS_ZIP.File2Blob( 'MYDIR', 'toto.zip' );
  AS_ZIP.Init_Zip(v_zip);
  AS_ZIP.Add1File(v_zip, 'toto.txt', AS_ZIP.File2Blob( 'MYDIR', 'toto.txt' ) );
  AS_ZIP.Finish_Zip(v_zip);
  AS_ZIP.Save_Zip(v_zip, 'MYDIR', 'toto.zip' );
END;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
DECLARE
  v_zip BLOB;
  zip_files AS_ZIP.file_list;
  v_doc BLOB;
BEGIN
  v_zip := AS_ZIP.File2Blob(p_dir =>'MYDIR', p_file_name => 'toto.zip');
  zip_files  := AS_ZIP.Get_File_List( v_zip );
  FOR i IN zip_files.FIRST() .. zip_files.LAST
  LOOP
        dbms_output.put_line(DBMS_LOB.SUBSTR(zip_files(i).filename,2000,1) ||' '|| TO_CHAR(zip_files(i).datemaj,'DD/MM/RRRR HH24:MI:SS') ||' size:'|| zip_files(i).size_comp ||' / '|| zip_files(i).size_uncomp);
        v_doc := AS_ZIP.Get_File(v_zip, DBMS_LOB.SUBSTR(zip_files(i).filename,2000,1) );
    AS_ZIP.Save_Zip(p_zipped_blob => v_doc, p_dir => 'MYDIR', p_filename => DBMS_LOB.SUBSTR(zip_files(i).filename,2000,1));
  END LOOP;
END;

1
2
3
4
5
6
7
8
dbms_lob.createtemporary( v_zip, TRUE );
SELECT BLOB_ZIP INTO v_lob FROM ARCHIVE_FIC WHERE NOMZIP = 'archive_2015';
DBMS_LOB.append(v_zip, v_lob);
AS_ZIP.Init_Zip(v_zip);
AS_ZIP.Add1File(v_zip, ....);
AS_ZIP.Finish_Zip(v_zip);
  ...
dbms_lob.freetemporary(v_zip);