How to upload employees picture thru API

Question

Hi All,
Can anybody say me how to upload the employees pictures thru PER_IMAGE_UPLOAD_PKG.LOAD(). Here i am having 2500 employees photos.
and if it is step wise manner it will be more helpful and where we have to place the pictures in server , in which location

Answer 1

Okay. This is pretty old code, and I don't quite remember how it works entirely, but here it is. I created a Formbuilder form with some custom java beans to read the directory where the badge photos resided, and create a SQL*Loader control file for each .jpg file. Here is the main code, from the client_pkg package and the OK button when-button-pressed trigger:
PACKAGE client_pkg IS
staging_dir varchar2(200) := 'c:\userapps\empphotos';
photo_dir varchar2(200) := '\\Netser1\server dir\APPD\Human Resources Badging System\Photos';
template varchar2(2000) := 'options (bindsize 400000)' || chr(10)
     ||'load data' || chr(10)
     ||'infile ''$INFILE$'' "fix $FILESIZE$"' || chr(10)
     ||'$OPERATION$' || chr(10)
     ||'into table per_images' || chr(10)
     ||'(image raw ($FILESIZE$), -- filesize' || chr(10)
     ||'parent_id constant $PERSON_ID$,' || chr(10)
     ||'table_name constant "PER_PEOPLE_F",' || chr(10)
     ||'image_id char "hr.per_images_s.nextval")' || chr(10)
missing_template varchar2(2000) := 'options (bindsize 400000)' || chr(10)
     ||'LOAD DATA' || chr(10)
     ||'INFILE ''$INFILE$'' "fix $FILESIZE$"' || chr(10)
     ||'$OPERATION$' || chr(10)
     ||'INTO TABLE lac.lac_photo_dir' || chr(10)
     ||'     (IMAGE raw($FILESIZE$) -- filesize' || chr(10)
     ||' , FILENAME constant "$FILENAME$"' || chr(10)
     ||'     , FILESIZE constant $FILESIZE$' || chr(10)
     ||'     , FILEDATE constant "$FILEDATE$"' || chr(10)
     ||'     )' || chr(10)
END client_pkg;
--OK Button - When-Button-Pressed
declare
     alert_msg varchar2(2000);
     button_pressed number;
     in_file Text_IO.File_Type;
     out_file Text_IO.File_Type;
     log_file Text_IO.File_Type;
     v_buffer varchar2(200);
     v_ctl_txt varchar2(2000);
     v_dir_find_string varchar2(20) := 'Directory of ';
     v_dirstring varchar2(200);
     v_pos integer;
     v_slash varchar2(2) := '\';
     v_filesize varchar2(20);
     v_filename varchar2(20);
     v_ctl_filename varchar2(120);
     v_log_filename varchar2(120);
     v_operation varchar2(20);
     v_emp_num varchar2(20);
     v_emp_name varchar2(80);
     v_payroll_id number;
     v_person_id number;
     v_load_count integer;
     v_qry_count integer;
     v_instance varchar2(20);
     v_username varchar2(20);
     v_password varchar2(20);
     v_connect_string varchar2(100);
     v_exec_string varchar2(200);
     v_success_count integer;
     v_beg_pos integer;
     v_end_pos integer;
     cursor c_badges(p_payroll_id in number) is
          select xref.emp_num
          , ppf.employee_number || ' - ' || ppf.full_name emp_name
          , xref.filename
          , ppf.person_id
, decode(pi.image_id, null, 'N', 'Y') image_exists_yn
from hr.per_all_people_f ppf
          , hr.per_all_assignments_f paf
          , lac.lac_emp_badge_xref xref
, hr.per_images pi
          where paf.person_id=ppf.person_id
          and xref.emp_num = ppf.employee_number
          and sysdate between ppf.effective_start_date and ppf.effective_end_date
          and sysdate between paf.effective_start_date and paf.effective_end_date
          and paf.assignment_type<>'B'
--          and paf.payroll_id = p_payroll_id
          and lower(filename) like '%.jpg'
--          and ppf.employee_number in ('00012','08278') -- Temp debugging line
and pi.parent_id(+) = paf.person_id
          order by emp_num
     cursor c_photo_dir is
     select xr.emp_num
     , pd.filename
     , pd.filesize
     , pd.filedate
     from lac.lac_emp_badge_xref xr
     , lac.lac_photo_dir pd
     where xr.filename(+) = pd.filename
     and xr.emp_num is null
     and lower(pd.filename) like '%.jpg'
     order by pd.filename
begin
break;
:System.Message_Level := '5';
     v_instance := get_application_property(CONNECT_STRING);
     v_username := get_application_property(USERNAME);
     v_password := get_application_property(PASSWORD);
     v_connect_string := v_username || '/' || v_password || '@' || v_instance;
if :replace_cb = 'Y' then
          v_operation := 'Replace';
else
     v_operation := 'Append';
end if;
     v_load_count := 0;
set_custom_property('FILEIO_BEAN',1,'SOURCEDIR',:photo_file_dir);
     set_custom_property('EXEC_BEAN',1,'CMDSTRING','echo TEST');
for v_badges in c_badges(to_number(:payroll_list))
loop
          :work_file := v_badges.filename;
set_custom_property('FILEIO_BEAN',1,'SOURCEFNAME',:work_file);
v_filesize := get_custom_property('FILEIO_BEAN',1,'FILELENGTH');
--          alert_msg := 'File Size for ' || :work_file || ' = ' || v_filesize || chr(10);
--          SET_ALERT_PROPERTY('GENERIC_ALERT',ALERT_MESSAGE_TEXT, alert_msg);
--          button_pressed := Show_Alert('GENERIC_ALERT');
          if v_badges.image_exists_yn = 'Y' then
               delete from hr.per_images
               where parent_id = to_number(v_badges.person_id);
               commit;
          end if;
          v_ctl_txt := client_pkg.template;
          v_ctl_txt := replace(v_ctl_txt, '$OPERATION$', v_operation);
          v_ctl_txt := replace(v_ctl_txt, '$INFILE$', :photo_file_dir || v_slash || v_badges.filename);
          v_ctl_txt := replace(v_ctl_txt, '$FILESIZE$', v_filesize);
          v_ctl_txt := replace(v_ctl_txt, '$PERSON_ID$', v_badges.person_id);
          v_ctl_filename := 'sqlldr' || v_badges.emp_num || '.ctl';
          v_ctl_filename := :staging_dir || v_slash || v_ctl_filename;
          v_log_filename := replace(v_ctl_filename,'.ctl','.log');
          out_file := Text_IO.Fopen(v_ctl_filename, 'w');
          text_io.put_line(out_file, v_ctl_txt);
          text_io.fclose(out_file);
          v_exec_string := 'sqlldr ' || v_connect_string || ' control=' || v_ctl_filename
          || ' log=' || v_log_filename;
--          alert_msg := 'before, v_exec_string= ' || v_exec_string || chr(10);
--          SET_ALERT_PROPERTY('GENERIC_ALERT',ALERT_MESSAGE_TEXT, alert_msg);
--          button_pressed := Show_Alert('GENERIC_ALERT');
          :emp_name := v_emp_name;
          synchronize;
          set_custom_property('EXEC_BEAN',1,'CMDSTRING',v_exec_string);
--          alert_msg := 'after, v_exec_string= ' || v_exec_string || chr(10);
--          SET_ALERT_PROPERTY('GENERIC_ALERT',ALERT_MESSAGE_TEXT, alert_msg);
--          button_pressed := Show_Alert('GENERIC_ALERT');
          v_operation := 'Append';
          v_load_count := v_load_count + 1;
          exit when v_load_count >= nvl(:proc_limit,99999);
end loop;
     set_custom_property('EXEC_BEAN',1,'CMDSTRING','echo TEST');
if false then     
v_operation := 'Append';
     for v_photo_dir in c_photo_dir
     loop
          v_pos := instr(v_photo_dir.filename,'.jpg');
          v_end_pos := v_pos - 1;
          v_pos := instr(v_photo_dir.filename,'-',-1,1);
          if v_pos > 0 then
               v_beg_pos := v_pos + 1;
          else
               v_beg_pos := 1;
          end if;
          v_emp_num := lpad(substr(v_photo_dir.filename,v_beg_pos, v_end_pos + 1 - v_beg_pos),5,'0');
          v_payroll_id := to_number(:payroll_list);
          begin          
               select ppf.employee_number || ' - ' || ppf.full_name
                    , ppf.person_id
                    into v_emp_name
                    , v_person_id
          from hr.per_all_people_f ppf
                    , hr.per_all_assignments_f paf
          , hr.per_images pi
                    where paf.person_id=ppf.person_id
                    and sysdate between ppf.effective_start_date and ppf.effective_end_date
                    and sysdate between paf.effective_start_date and paf.effective_end_date
                    and paf.assignment_type<>'B'
          and pi.parent_id(+) = paf.person_id
          and decode(pi.image_id, null, 'N', 'Y')='N'
          and ppf.employee_number = v_emp_num
--          and paf.payroll_id = v_payroll_id
          exception
               when no_data_found then
               v_emp_name := null;
               v_person_id := null;
               when others then
                    alert_msg := 'Error looking up Employee: ' || v_emp_num || chr(10) || sqlerrm;
                    SET_ALERT_PROPERTY('GENERIC_ALERT',ALERT_MESSAGE_TEXT, alert_msg);
                    button_pressed := Show_Alert('GENERIC_ALERT');
               raise form_trigger_failure;
     end;
          if v_person_id is not null then
               :work_file := v_photo_dir.filename;
               v_ctl_txt := client_pkg.template;
               v_ctl_txt := replace(v_ctl_txt, '$OPERATION$', v_operation);
               v_ctl_txt := replace(v_ctl_txt, '$INFILE$', :photo_file_dir || v_slash || v_photo_dir.filename);
               v_ctl_txt := replace(v_ctl_txt, '$FILESIZE$', v_photo_dir.filesize);
               v_ctl_txt := replace(v_ctl_txt, '$PERSON_ID$', v_person_id);
               v_ctl_filename := 'sqlldr' || v_emp_num || '.ctl';
               v_ctl_filename := :staging_dir || v_slash || v_ctl_filename;
               v_log_filename := replace(v_ctl_filename,'.ctl','.log');
               out_file := Text_IO.Fopen(v_ctl_filename, 'w');
               text_io.put_line(out_file, v_ctl_txt);
               text_io.fclose(out_file);
               v_exec_string := 'sqlldr ' || v_connect_string || ' control=' || v_ctl_filename
               || ' log=' || v_log_filename;
     --          alert_msg := 'before, v_exec_string= ' || v_exec_string || chr(10);
     --          SET_ALERT_PROPERTY('GENERIC_ALERT',ALERT_MESSAGE_TEXT, alert_msg);
     --          button_pressed := Show_Alert('GENERIC_ALERT');
               :emp_name := v_emp_name;
               synchronize;
               set_custom_property('EXEC_BEAN',1,'CMDSTRING',v_exec_string);
     --          alert_msg := 'after, v_exec_string= ' || v_exec_string || chr(10);
     --          SET_ALERT_PROPERTY('GENERIC_ALERT',ALERT_MESSAGE_TEXT, alert_msg);
     --          button_pressed := Show_Alert('GENERIC_ALERT');
               v_operation := 'Append';
               v_load_count := v_load_count + 1;
     --          exit when v_load_count >= nvl(:proc_limit,99999);
          end if;
     end loop;     
     set_custom_property('EXEC_BEAN',1,'CMDSTRING','echo TEST');
return;
end if;
exit_form;
exception
     when no_data_found then
          Text_IO.Fclose (in_file);
     exit_form;
when others then
text_io.fclose(in_file);
text_io.fclose(out_file);
          alert_msg := 'Error outside loop: ' || chr(10) || sqlerrm;
          SET_ALERT_PROPERTY('GENERIC_ALERT',ALERT_MESSAGE_TEXT, alert_msg);
          button_pressed := Show_Alert('GENERIC_ALERT');
          raise form_trigger_failure;          
end;
Hope that helps.............Dave