ORACLE中的FTP例子代码

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了ORACLE中的FTP例子代码，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含3827字，纯文字阅读大概需要6分钟。

内容图文

http://blog.csdn.net/mashengwang/article/details/5982663

CREATE OR REPLACE DIRECTORY my_docs AS ‘/u01/app/oracle/‘;
SET SERVEROUTPUT ON SIZE 1000000
@c:/ftp.pks
@c:/ftp.pkb

-- Retrieve an ASCII file from a remote FTP server.
DECLARE
  l_conn  UTL_TCP.connection;
BEGIN
  l_conn := ftp.login(‘ftp.company.com‘, ‘21‘, ‘ftpuser‘, ‘ftppassword‘);
  ftp.ascii(p_conn => l_conn);
  ftp.get(p_conn      => l_conn,
          p_from_file => ‘/u01/app/oracle/test.txt‘,
          p_to_dir    => ‘MY_DOCS‘,
          p_to_file   => ‘test_get.txt‘);
  ftp.logout(l_conn);
  utl_tcp.close_all_connections;
END;
/

-- Send an ASCII file to a remote FTP server.
DECLARE
  l_conn  UTL_TCP.connection;
BEGIN
  l_conn := ftp.login(‘ftp.company.com‘, ‘21‘, ‘ftpuser‘, ‘ftppassword‘);
  ftp.ascii(p_conn => l_conn);
  ftp.put(p_conn      => l_conn,
          p_from_dir  => ‘MY_DOCS‘,
          p_from_file => ‘test_get.txt‘,
          p_to_file   => ‘/u01/app/oracle/test_put.txt‘);
  ftp.logout(l_conn);
  utl_tcp.close_all_connections;
END;
/

-- Retrieve a binary file from a remote FTP server.
DECLARE
  l_conn  UTL_TCP.connection;
BEGIN
  l_conn := ftp.login(‘ftp.company.com‘, ‘21‘, ‘ftpuser‘, ‘ftppassword‘);
  ftp.binary(p_conn => l_conn);
  ftp.get(p_conn      => l_conn,
          p_from_file => ‘/u01/app/oracle/product/9.2.0.1.0/sysman/reporting/gif/jobs.gif‘,
          p_to_dir    => ‘MY_DOCS‘,
          p_to_file   => ‘jobs_get.gif‘);
  ftp.logout(l_conn);
  utl_tcp.close_all_connections;
END;
/

-- Send a binary file to a remote FTP server.
DECLARE
  l_conn  UTL_TCP.connection;
BEGIN
  l_conn := ftp.login(‘ftp.company.com‘, ‘21‘, ‘ftpuser‘, ‘ftppassword‘);
  ftp.binary(p_conn => l_conn);
  ftp.put(p_conn      => l_conn,
          p_from_dir  => ‘MY_DOCS‘,
          p_from_file => ‘jobs_get.gif‘,
          p_to_file   => ‘/u01/app/oracle/jobs_put.gif‘);
  ftp.logout(l_conn);
  utl_tcp.close_all_connections;
END;
/

-- Get a directory listing from a remote FTP server.
DECLARE
  l_conn  UTL_TCP.connection;
  l_list  ftp.t_string_table;
BEGIN
  l_conn := ftp.login(‘ftp.company.com‘, ‘21‘, ‘ftpuser‘, ‘ftppassword‘);
  ftp.list(p_conn   => l_conn,
           p_dir   => ‘/u01/app/oracle‘,
           p_list  => l_list);
  ftp.logout(l_conn);
  utl_tcp.close_all_connections;
  
  IF l_list.COUNT > 0 THEN
    FOR i IN l_list.first .. l_list.last LOOP
      DBMS_OUTPUT.put_line(i || ‘: ‘ || l_list(i));
    END LOOP;
  END IF;
END;
/

-- Rename a file on a remote FTP server.
DECLARE
  l_conn  UTL_TCP.connection;
BEGIN
  l_conn := ftp.login(‘ftp.company.com‘, ‘21‘, ‘ftpuser‘, ‘ftppassword‘);
  ftp.rename(p_conn => l_conn,
             p_from => ‘/u01/app/oracle/dba/shutdown‘,
             p_to   => ‘/u01/app/oracle/dba/shutdown.old‘);
  ftp.logout(l_conn);
  utl_tcp.close_all_connections;
END;
/

-- Delete a file on a remote FTP server.
DECLARE
  l_conn  UTL_TCP.connection;
BEGIN
  l_conn := ftp.login(‘ftp.company.com‘, ‘21‘, ‘ftpuser‘, ‘ftppassword‘);
  ftp.delete(p_conn => l_conn,
             p_file => ‘/u01/app/oracle/dba/temp.txt‘);
  ftp.logout(l_conn);
  utl_tcp.close_all_connections;
END;
/

-- Create a directory on a remote FTP server.
DECLARE
  l_conn  UTL_TCP.connection;
BEGIN
  l_conn := ftp.login(‘ftp.company.com‘, ‘21‘, ‘ftpuser‘, ‘ftppassword‘);
  ftp.mkdir(p_conn => l_conn,
            p_dir => ‘/u01/app/oracle/test‘);
  ftp.logout(l_conn);
  utl_tcp.close_all_connections;
END;
/

-- Remove a directory from a remote FTP server.
DECLARE
  l_conn  UTL_TCP.connection;
BEGIN
  l_conn := ftp.login(‘ftp.company.com‘, ‘21‘, ‘ftpuser‘, ‘ftppassword‘);
  ftp.rmdir(p_conn => l_conn,
            p_dir  => ‘/u01/app/oracle/test‘);
  ftp.logout(l_conn);
  utl_tcp.close_all_connections;
END;
/

ORACLE中的FTP例子代码

标签：

本文系统来源：http://www.cnblogs.com/xiaoL/p/4793881.html

内容总结

以上是互联网集市为您收集整理的ORACLE中的FTP例子代码全部内容，希望文章能够帮你解决ORACLE中的FTP例子代码所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---