Stockage d'un fichier dans un champ BLOB par passage de paramètres à procédures stockées

**BaldeckJ** · 04/12/2012, 10h15

Le but est de mémoriser des fichiers en BD dans un champ de type BLOB sous Oracle 10g
Pour cela on passe par la procédure stockée suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
create or replace
PROCEDURE   AJOUT_PJ (pID_PJ IN INTEGER, pPJ IN BLOB DEFAULT NULL) 
IS
BEGIN
 BEGIN
   INSERT INTO TABLE_PJ  ID_PJ, PJ ) VALUES ( pID_PJ, pPJ );
  EXCEPTION
    when OTHERS then
    raise_application_error(-20294, '{8}-Erreur lors de l''ajout d''une PJ de la documentation commerciale n° ['||pID_PJ||'] ' ||SQLERRM);
  END;   
END;

et le code delphi est des plus simple (composant ODAC):

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
 
begin
  if OpenDialog1.Execute = true
  then
  begin
    OraStoredProc1.Params.Clear;
    OraStoredProc1.StoredProcName := 'AJOUT_PJ';
    OraStoredProc1.Params.CreateParam(ftInteger,'pID_PJ',ptinput);
    OraStoredProc1.Params.CreateParam(ftBlob,'pPJ',ptinput);
    OraStoredProc1.ParamByName('pID_PJ').AsInteger := pID_PJ;
    OraStoredProc1.ParamByName('pPJ').LoadFromFile(OpenDialog1.FileName, ftBlob);
    try
      OraStoredProc1.ExecProc;
    except
      on E : Exception do
      ShowMessage(e.Message);
    end;
end;

Pour des fichiers < 32k, cela fonctionne correctement,
pour des fichiers > 32k j'ai le message d'erreur suivant :

ORA-01460: unimplemented or unreasonable conversion requested

merci pour toute réponse de solution pour éviter cette erreur

**Garuda** · 04/12/2012, 10h33

Il faut télécharger le fichier à partir du serveur ORACLE, aprés l'avoir copié dans un répertoire du même serveur (DIRECTORY)

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
CREATE OR REPLACE PROCEDURE AJOUT_PJ (pID_PJ      IN INTEGER,
                              pFilename   IN VARCHAR2)
IS
fils   BFILE;
amt    INTEGER;
lobd BLOB;
BEGIN
BEGIN
BEGIN
  INSERT INTO TABLE_PJ (ID_PJ, PJ)
       VALUES (pID_PJ, EMPTY_BLOB ());
  SELECT pj
    INTO lobd
    FROM table_pj
   WHERE id_pj = pId_pj;
  fils := BFILENAME ('MY_IMAGE_DIR', pfilename);
  DBMS_LOB.fileopen (fils, DBMS_LOB.file_readonly);
  amt := DBMS_LOB.getlength (fils);
  DBMS_LOB.loadfromfile (lobd, fils, amt);
  DBMS_LOB.fileclose (fils);
EXCEPTION
  WHEN OTHERS
  THEN
     IF (DBMS_LOB.fileisopen (fils) = 1)
     THEN
        DBMS_LOB.fileclose (fils);
     END IF;
     RAISE;
END;
EXCEPTION
WHEN OTHERS
THEN
  raise_application_error (
     -20294,
        '{8}-Erreur lors de l''ajout d''une PJ de la documentation commerciale n° ['
     || pID_PJ
     || '] '
     || SQLERRM);
END;

**BaldeckJ** · 04/12/2012, 11h14

Merci pour votre réponse.

Ne peut-on pas passer directement le fichier en paramètre BLOB pour éviter la copie du fichier sur le serveur ?

Le programme exemple fonctionne bien pour des fichiers de taille < 32k, comment faire pour s'affranchir de cette limitation sous Oracle?

**Garuda** · 04/12/2012, 11h22

Ne peut-on pas passer directement le fichier en paramètre BLOB pour éviter la copie du fichier sur le serveur ?

Je pense que non, mais je peux me tromper.
En tous cas, je fait toujours comme indiqué et ca marche sans problème
(dans le programme appelant je copie le fichier vers le serveur oracle avant d'appeler la procédure)

**BaldeckJ** · 04/12/2012, 15h18

En fait, cela fonctionne parfaitement si l'on ne passe pas par une procédure stockée mais par un TOraQuery

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
 
OraQuery3 : TOraQuery;
 
begin
  IF OpenDialog1.Execute = true
  then
  begin
    OraQuery3.SQL.Clear;
    OraQuery3.SQL.Add('INSERT INTO TABLE_PJ  (ID_PJ, PJ) VALUES (:pID_PJ, :pPJ)');
    OraQuery3.Prepare;
    OraQuery3.ParamByName('pID_PJ').AsInteger := 1;
    OraQuery3.ParamByName('pPJ').LoadFromFile(OpenDialog1.FileName, ftBlob);
    try
      OraQuery3.ExecSQL;
    except
      on E : Exception do ShowMessage(e.Message);
    end;
  end;
end;

**mnitu** · 04/12/2012, 15h53

There is no piecewise INSERT, UPDATE, or fetch routine in PL/SQL. Therefore, the amount of data that can be accessed from a LOB column or attribute is limited by the maximum character buffer size. PL/SQL supports character buffer sizes up to 32KB - 1 (32767 bytes). For this reason, only LOBs less than 32K bytes in size can be accessed by PL/SQL applications using the data interface for persistent LOBs.

Clobs larger than 32k