Bonjour!

J'essaie d'ajouter une image depuis mon PC à l'aide de pl sql (sans webutil), j'ai copier un code que j'ai tjrs utilisée ds 6i, mais ça marche pas

voici le code:

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
declare
   dirname     varchar2(255);
   v_filename  varchar2(255);
   i number;
   k varchar2(1);
	 l number;
	 j number;
begin
 
   dirname := 'c:\';
 
   v_filename := get_file_name(dirname,NULL,
   'All Files (*.*)|*.*|'               ||
   'JPEG Files (*.jpeg)|*.jpeg|'          ||
   'Bitmap Files (*.bmp)|*.bmp|'        ||
   'TIFF Files (*.tif)|*.tif|'          ||
   'CompuServe Files (*.gif)|*.gif|'    ||
   'PC Paintbrush Files (*.pcx)|*.pcx|' );
 
   if v_filename is not null then
   	begin
    	l := (length(v_filename)-4);
	    j := 0; i := 1;
  	while i > 0 
	  loop
		k:=substr(v_filename,l-j,1);
		j:=j+1;
		if k='\' then i:=-1;end if;
		end loop;
  	end;
      read_image_file(v_filename,'ANY','LAMIAA.PHOTO');
      /* :catalogue.ref_catalogue := substr(v_filename,(l-j+2),j-1);*/
      /* :article.emplac_fichier := v_filename; */
      end if;
end;