Upload Files To FTP in Oracle Forms D2k
Use following procedure to upload files to Ftp.
PROCEDURE Ftp_Upload IS
outfile text_io.file_type;
BEGIN
-- write a ftp script
outfile := text_io.fopen(‘D:\ftpsendsource.ftp‘, ‘w‘);
text_io.put_line(outfile, ‘open yourftpurl‘);
text_io.put_line(outfile, ‘youruser‘);
text_io.put_line(outfile, ‘yourpassword‘);
text_io.put_line(outfile,‘binary‘);
text_io.put_line(outfile,‘send D:\Temp\Test1.txt‘);
text_io.put_line(outfile,‘send D:\Temp\Test2.abc‘);
text_io.put_line(outfile,‘disconnect‘);
text_io.put_line(outfile,‘bye‘);
text_io.fclose(outfile);
host(‘cmd /c ftp -s:d:\ftpsendsource.ftp‘);
exception
when others then
if text_io.is_open(outfile) then
text_io.fclose(outfile);
end if;
message(sqlerrm);
END;
Upload Files To FTP in Oracle Forms D2k
原文：http://www.cnblogs.com/quanweiru/p/6220780.html
