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; |
Partager