Ver Mensaje Individual
  #4 (permalink)  
Antiguo 14/01/2009, 08:49
fcalderon
 
Fecha de Ingreso: enero-2009
Mensajes: 2
Antigüedad: 15 años, 3 meses
Puntos: 0
Respuesta: Subir un archivo desde forms 10g a Unix

Cita:
Iniciado por kikolice Ver Mensaje
tienes que utilizar la libreria webutil, dentro incluye funciones para seleccionar un archivo del lado del cliente

El problema que tengo es que yo lo tenía programado en forms6i y me funcionaba perfectamente, es en la versión 10g que no me funciona.

Te paso que te tenía programado. Lo que pasa es que el crea un archivo de texto local para luego ejecutar los comandos y no se como hacer lo mismo en un OAS

DECLARE
ftp_host varchar2(200) := '172.xx.xx.x';
ftp_port varchar2(10) := '21';
ftp_user varchar2(32) := 'xxx';
ftp_pwd varchar2(32) := 'xxx';
ftp_script_file varchar2(255);
file_dir varchar2(255);
file_handle client_text_io.file_type;

BEGIN

/* ftp_script_file := file_dir||'ftp_script.txt';

file_handle := client_TEXT_IO.FOPEN(ftp_script_file,'W');
client_TEXT_IO.PUT_LINE(file_handle,'OPEN'||' '||ftp_host|| ' '||ftp_port);
client_TEXT_IO.PUT_LINE(file_handle,'USER'||' '||ftp_user|| ' '||ftp_pwd);
client_TEXT_IO.PUT_LINE(file_handle,'!cls');
client_TEXT_IO.PUT_LINE(file_handle,'LCD' ||' '||'c:\');
client_TEXT_IO.PUT_LINE(file_handle,'mput' ||' '||'X* ');
client_TEXT_IO.PUT_LINE(file_handle,'CLOSE');
client_TEXT_IO.PUT_LINE(file_handle,'BYE');
client_TEXT_IO.FCLOSE(file_handle);

client_HOST('FTP -i -v -d -n -s:' ||ftp_script_file);