sauvegarder un blob dans un fichier coté client

Salut

J'ai une fonction qui me retourne un BLOB. Et je cherche un moyen pour sauvegarder ce BLOB sous un fichier.
J'ai trouvé une procédure du package WEB_UTIL, mais il ne m'arrange pas, car, dans ses arguments, il demande le nom de la table, la colonne ainsi la clause where.
Je travaille sous Oracle Forms 10g.

Il faut passer par une table (car tu ne peux pas utiliser du PUT_LINE qui est en varchar et pas en RAW).

Ce que je fais pour récupérer des images créées par la base :

Une table temporaire

Code:

1
2
3
4
CREATE GLOBAL TEMPORARY TABLE WTT_UPLOAD
( ID       	NUMBER NOT NULL,
  THE_BLOB  BLOB,
  CONSTRAINT WTT_UPLOAD_PK PRIMARY KEY(ID)) ON COMMIT PRESERVE ROWS;

Ma procédure qui génère le BMP, l'insère/Maj dans la table temporaire (id 101)

Code:

1
2
3
4
5
6
7
8
9
10
v_lob :=  GENERER_BMP(v_size, v_size);
 
  MERGE INTO WTT_UPLOAD w
  USING (SELECT 101 ID FROM DUAL) p ON (w.ID = p.ID)
  WHEN MATCHED THEN UPDATE Set the_blob = v_lob
  WHEN NOT MATCHED THEN INSERT (ID, the_blob) VALUES(101, v_lob);
 
  COMMIT;
 
  dbms_lob.freetemporary( v_lob );

Puis sous Forms on transfère l'image et on ouvre le dossier de copie.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
DECLARE
	v_rep VARCHAR2(500);
BEGIN
	v_rep := NVL(client_win_api_environment.get_temp_directory(false) ||'\McM\', 'C:\'); -- '
 
	IF WEBUTIL_FILE_TRANSFER.DB_To_Client_With_Progress
	( v_rep || 'QScan.bmp',
	  'WTT_UPLOAD',  'THE_BLOB',
	  'id = 101',
	  'Récupération de l''image', 'avancement')
	THEN
		WEBUTIL_HOST.nonblocking('cmd /c explorer "' || v_rep || '"'); 
	END IF;
 
END;

merci pour la réponse.