Oracle存儲過程使用FTP上傳文件

create or replace function uploadFileByFtp (p_srcFilePath in varchar2,
                                           p_srcFileName in varchar2,
                                           p_disFilePath in varchar2,
                                           p_disFileName in varchar2)
  return integer is

  l_result   integer := 0;
  l_url      varchar2(200);
  l_ip       varchar2(200);
  l_port     varchar2(200);
  l_username varchar2(200);
  l_password varchar2(200);
  l_conn UTL_TCP.connection;
begin
--url格式 ftp://XXX:[email protected]:21/
  l_url := p_disFilePath;
  --去掉末尾/
    select substr(l_url, 1, length(l_url) - 1) into l_url from dual;
        select substr(l_url,7, length(l_url)) into l_url from dual;
  select substr(l_url, 1, instr(l_url, ':', 1) - 1) into l_username from dual;
  select substr(l_url, instr(l_url, ':', 1) + 1) into l_url from dual;
  select substr(l_url, 1, instr(l_url, '@', 1) - 1) into l_password from dual;
  select substr(l_url, instr(l_url, '@', 1) + 1) into l_url from dual;
  select substr(l_url, 1, instr(l_url, ':', 1) - 1) into l_ip from dual;
  select substr(l_url, instr(l_url, ':', 1) + 1) into l_port from dual;
l_conn := ftp.login(l_ip, l_port, l_username, l_password);
 ftp.ascii(l_conn);

ftp.put(p_conn => l_conn,
  p_from_dir => 'DATA_PUMP_DIR',--這裏的路徑名注意要用大寫,寫路徑無效
  p_from_file => 'XXX.txt',--服務器上的文件名
  p_to_file => 'XXX.txt');--想要在11.11這臺機器上生成的文件

  ftp.logout(l_conn);
  utl_tcp.close_all_connections;
return 1;
end;