Lecture d'un fichier BLOB

Version imprimable

Bonjour,

J'ai besoin de extraire un fichier BLOB stocké dans ma base. Le schéma de ma table est TB_EDITION(ID vrachar(10), CONTENU Blob).
mon objectif est d'extraire avec PL/SQL le contenu de ce BLOB.
j'ai essayé le code suivant

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
DECLARE
  l_file      UTL_FILE.FILE_TYPE;
  l_buffer    RAW(32767);
  l_amount    BINARY_INTEGER := 32767;
  l_pos       INTEGER := 1;
  l_blob      BLOB;
  l_blob_len  INTEGER;
BEGIN
  -- Get LOB locator
  SELECT CONTENU
  INTO   l_blob
  FROM  PFI.TB_EDITION 
  WHERE  ID=21189 
 
  l_blob_len := DBMS_BLOB.getlength(l_blob);
 
  -- Open the destination file.
  l_file := UTL_FILE.fopen('/home/x014340/EXPORT_HIST/','test.pdf','w', 32767);
 
  -- Read chunks of the BLOB and write them to the file
  -- until complete.
  WHILE l_pos < l_blob_len LOOP
    DBMS_LOB.read(l_blob, l_amount, l_pos, l_buffer);
    UTL_FILE.put_raw(l_file, l_buffer, TRUE);
    l_pos := l_pos + l_amount;
  END LOOP;
 
  -- Close the file.
  UTL_FILE.fclose(l_file);
 
EXCEPTION
  WHEN OTHERS THEN
    -- Close the file if something goes wrong.
    IF UTL_FILE.is_open(l_file) THEN
      UTL_FILE.fclose(l_file);
    END IF;
    RAISE;
END;

mais l'erreur suivant s'affiche.

Code:

1
2
3
4
5
6
7
l_blob_len := DBMS_BLOB.getlength(l_blob);
  *
ERREUR à la ligne 15 :
ORA-06550: Ligne 15, colonne 3 :
PL/SQL: ORA-00933: la commande SQL ne se termine pas correctement
ORA-06550: Ligne 10, colonne 3 :
PL/SQL: SQL Statement ignored

la version oracle est : 10

Merci d'avance

05/12/2008, 11h55
SheikYerbouti

Bonjour,

le but du forum n'est pas vraiment le débugage de code.
Il parait écident, ici,que l'ordre SELECT précédent ne se termine pas par un point-virgule.
05/12/2008, 12h44
ammah

Lecture d'un fichier BLOB

Je vous remecie
En fait mon but est d'extraire les données d'un BLOB dans un PDF.
J'ai cherché une solution sur INTRNET et j'ai trouvé le code que j'ai mis dans mon message précédent. cependant, ce code ne fonctionne pas.

Je vous serai reconnaissant si vous pouvez me proposer une solution

Bien cordialement
ammah
05/12/2008, 13h03
SheikYerbouti

Citation:

Envoyé par ammah

En fait mon but est d'extraire les données d'un BLOB dans un PDF.

Vous voulez-dire dans un fichier extérieur à la base ? le BLOB contient déjà un fichier au format PDF ?
05/12/2008, 14h05
ammah

Lecture d'un fichier BLOB

Le BLOB contient un fichier PDF zippé. LE zip est fait avec des biliothéque Java.
05/12/2008, 14h10
SheikYerbouti

Donc vous voulez extraire le contenu du BLOB sur le disque, c'est ça ?
05/12/2008, 14h15
ammah

Lecture d'un fichier BLOB

c'est exactement ça

Voici la procédure que j'utilise. Elle utilise les Directories Oracle:

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
61
62
63
64
65
CREATE OR REPLACE PROCEDURE Write_Binary_File
  (
     PC$Directory IN VARCHAR2
    ,PC$File_Name IN VARCHAR2
    ,PC$SQL_Order IN VARCHAR2
    ,PB$Raise     IN BOOLEAN  DEFAULT FALSE
  )
  --  -------------------------------------------
  --  Procedure to dump a BLOB column onto a file
  --  -------------------------------------------
  --  parameters:
  --  PC$Directory : name of an existing Oracle Directory
  --  PC$File_Name : name of the expected output file
  --  PC$SQL_Order : SQL order to select the BLOB column
  --  PB$Raise     : boolean to indicate if the process
  --                 would be stopped after an error
  --
   IS
    src_lob      BLOB;
    buffer       RAW(16384);
    amt          BINARY_INTEGER := 16384;
    pos          INTEGER := 1;
    LF$FicOUT     UTL_FILE.FILE_TYPE ;
    LC$Msg       VARCHAR2(2000) ;
  BEGIN
 
    -- get the BLOB column --
    BEGIN
      EXECUTE IMMEDIATE PC$SQL_Order INTO src_lob ;
    EXCEPTION
      WHEN NO_DATA_FOUND THEN
        LC$Msg := 'Write_Binary_File(): NO_DATA_FOUND' ;
        IF PB$Raise THEN
          RAISE_APPLICATION_ERROR( -20100, LC$Msg ) ;
        END IF ;
        DBMS_OUTPUT.PUT_LINE(LC$Msg) ;
        RETURN ;
    END  ;
 
    -- open the output file --
    LF$FicOUT := UTL_FILE.FOPEN( PC$Directory, PC$File_Name, 'W', 32764 ) ;
 
    -- write the file --
    LOOP
       -- read the chunks --
       Dbms_Lob.READ (src_lob, amt, pos, buffer);
       -- write the chunks --
         UTL_FILE.Put_Raw(LF$FicOut, buffer);
       pos := pos + amt;
    END LOOP;
    -- close the file --
    UTL_FILE.FCLOSE(LF$FicOut);
 
  EXCEPTION
    WHEN NO_DATA_FOUND THEN
        UTL_FILE.FCLOSE(LF$FicOut);
    WHEN OTHERS THEN
      LC$Msg := 'Write_Binary_File() Error : ' || TO_CHAR( SQLCODE ) || ' while managing file ('
       || PC$Directory || ') ' ||  PC$File_Name ;
      IF PB$Raise THEN
         RAISE_APPLICATION_ERROR( -20100, LC$Msg ) ;
      END IF ;
      DBMS_OUTPUT.PUT_LINE(LC$Msg);
  END Write_Binary_File;
/

Citation:

Envoyé par SheikYerbouti

Voici la procédure que j'utilise. Elle utilise les Directories Oracle:

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
61
62
63
64
65
CREATE OR REPLACE PROCEDURE Write_Binary_File
  (
     PC$Directory IN VARCHAR2
    ,PC$File_Name IN VARCHAR2
    ,PC$SQL_Order IN VARCHAR2
    ,PB$Raise     IN BOOLEAN  DEFAULT FALSE
  )
  --  -------------------------------------------
  --  Procedure to dump a BLOB column onto a file
  --  -------------------------------------------
  --  parameters:
  --  PC$Directory : name of an existing Oracle Directory
  --  PC$File_Name : name of the expected output file
  --  PC$SQL_Order : SQL order to select the BLOB column
  --  PB$Raise     : boolean to indicate if the process
  --                 would be stopped after an error
  --
   IS
    src_lob      BLOB;
    buffer       RAW(16384);
    amt          BINARY_INTEGER := 16384;
    pos          INTEGER := 1;
    LF$FicOUT     UTL_FILE.FILE_TYPE ;
    LC$Msg       VARCHAR2(2000) ;
  BEGIN
 
    -- get the BLOB column --
    BEGIN
      EXECUTE IMMEDIATE PC$SQL_Order INTO src_lob ;
    EXCEPTION
      WHEN NO_DATA_FOUND THEN
        LC$Msg := 'Write_Binary_File(): NO_DATA_FOUND' ;
        IF PB$Raise THEN
          RAISE_APPLICATION_ERROR( -20100, LC$Msg ) ;
        END IF ;
        DBMS_OUTPUT.PUT_LINE(LC$Msg) ;
        RETURN ;
    END  ;
 
    -- open the output file --
    LF$FicOUT := UTL_FILE.FOPEN( PC$Directory, PC$File_Name, 'W', 32764 ) ;
 
    -- write the file --
    LOOP
       -- read the chunks --
       Dbms_Lob.READ (src_lob, amt, pos, buffer);
       -- write the chunks --
         UTL_FILE.Put_Raw(LF$FicOut, buffer);
       pos := pos + amt;
    END LOOP;
    -- close the file --
    UTL_FILE.FCLOSE(LF$FicOut);
 
  EXCEPTION
    WHEN NO_DATA_FOUND THEN
        UTL_FILE.FCLOSE(LF$FicOut);
    WHEN OTHERS THEN
      LC$Msg := 'Write_Binary_File() Error : ' || TO_CHAR( SQLCODE ) || ' while managing file ('
       || PC$Directory || ') ' ||  PC$File_Name ;
      IF PB$Raise THEN
         RAISE_APPLICATION_ERROR( -20100, LC$Msg ) ;
      END IF ;
      DBMS_OUTPUT.PUT_LINE(LC$Msg);
  END Write_Binary_File;
/

Attention, sous Windows le fichier peut être corrompé: http://www.developpez.net/forums/d64...ctets-fichier/

05/12/2008, 14h46
ammah

Lecture d'un fichier BLOB

Merci beaucoup pour votre réponse.
Le code que j'utilise maintenant ressemble beaucoup à votre procédure sauf qu'il m'affiche systématiquement "chemin de répertoire non valide" alors que le répertoire existe bel et bien. J'ai également accordé tout les droits sur le répertoire

Merci d'avance
ammah
05/12/2008, 16h16
ammah

Lecture d'un fichier BLOB

Bonjour de nouveau,

Merci pour le code que vous m'avez fourni.
Le problème maintenant vient du fait que Oracle n'arrive pas à accéder au chemin que je lui donne. visiblement, il faut créer un dictionnaire et donner les droits de lecture/écriture sur ce dictionnaire.
pourrez vous me dire si c'est bien ça qu'il faut faire et comment le faire svp?
05/12/2008, 16h27
SheikYerbouti

utiliser l'instruction CREATE DIRECTORY (consultez la doc)
09/12/2008, 09h49
ammah

Lecture d'un fichier BLOB

JE vous remercie Monsieur le DBA