Subir archivos al servidor
Estoy intentando hacer un form donde un usuario pueda subir archivos al servidor, ¿cómo podría hacer esto en forms? He pensado en hacerlo via FTP, pero no se me ocurre la idea feliz. SI alguien me pudiera echar una mano, le estaria muy agradecido.
3 Respuestas
Respuesta de thetaurus
1
Si piensas usar via ftp
Puedes usar el comando de forms "hosts"
El cual permite ejecutar desde forms comandos del sistema operativo, no importando si es unix o windows, claro respetando la sintaxis de cada plataforma...
Anexo va un example:
/*
** built-in: HOST
** Example: Execute an operating system command in a
** subprocess or subshell. Uses the
** 'Get_Connect_Info' procedure from the
** GET_APPLICATION_PROPERTY example.
*/
PROCEDURE Mail_Warning( send_to VARCHAR2) IS
the_username VARCHAR2(40);
the_password VARCHAR2(40);
the_connect VARCHAR2(40);
the_command VARCHAR2(2000);
BEGIN
/*
** Get Username, Password, Connect information
*/
Get_Connect_Info(the_username,the_password,the_connect);
/*
** Concatenate together the static text and values of
** local variables to prepare the operating system command
** string.
*/
the_command := 'orasend '||
' to='||send_to||
' std_warn.txt '||
' subject="## LATE PAYMENT ##"'||
' user='||the_username||
' password='||the_password||
' connect='||the_connect;
Message('Sending Message...', NO_ACKNOWLEDGE);
Synchronize;
/*
** Execute the command string as an O/S command The
** NO_SCREEN option tells forms not to clear the screen
** while we do our work at the O/S level "silently".
*/
Host( the_command, NO_SCREEN );
/*
** Check whether the command succeeded or not
*/
IF NOT Form_Success THEN
Message('Error -- Message not sent.');
ELSE
Message('Message Sent.');
END IF;
END;
Cualquier cosa no dudes en escribir
Puedes usar el comando de forms "hosts"
El cual permite ejecutar desde forms comandos del sistema operativo, no importando si es unix o windows, claro respetando la sintaxis de cada plataforma...
Anexo va un example:
/*
** built-in: HOST
** Example: Execute an operating system command in a
** subprocess or subshell. Uses the
** 'Get_Connect_Info' procedure from the
** GET_APPLICATION_PROPERTY example.
*/
PROCEDURE Mail_Warning( send_to VARCHAR2) IS
the_username VARCHAR2(40);
the_password VARCHAR2(40);
the_connect VARCHAR2(40);
the_command VARCHAR2(2000);
BEGIN
/*
** Get Username, Password, Connect information
*/
Get_Connect_Info(the_username,the_password,the_connect);
/*
** Concatenate together the static text and values of
** local variables to prepare the operating system command
** string.
*/
the_command := 'orasend '||
' to='||send_to||
' std_warn.txt '||
' subject="## LATE PAYMENT ##"'||
' user='||the_username||
' password='||the_password||
' connect='||the_connect;
Message('Sending Message...', NO_ACKNOWLEDGE);
Synchronize;
/*
** Execute the command string as an O/S command The
** NO_SCREEN option tells forms not to clear the screen
** while we do our work at the O/S level "silently".
*/
Host( the_command, NO_SCREEN );
/*
** Check whether the command succeeded or not
*/
IF NOT Form_Success THEN
Message('Error -- Message not sent.');
ELSE
Message('Message Sent.');
END IF;
END;
Cualquier cosa no dudes en escribir
Respuesta de jack smith
ank you so much for this. I was into this issue and tired to tinker around to check if its possible but couldnt get it done. Now that i have s https://vidmate.onl/download/ een the way you did it, thanks guys
with
Regards
Respuesta de Acacia Hary
Your article is really interesting and meaningful, I have read many articles but none of them persuaded me, thank you for sharing.
Wuxiaworld