1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
|
declare
l_file varchar2(1000);
l_server_file VARCHAR2 (1000);
l_file_name VARCHAR2 (64);
l_success BOOLEAN;
return_status PLS_INTEGER;
begin
l_file := client_get_file_name( directory_name => 'E:\'
,file_name => null
,file_filter => null
,message => null
,dialog_type => null
,select_file => null
);
MESSAGE('Début du transfert');
l_file_name := SUBSTR (l_file, INSTR (l_file, '\', -1) + 1);
l_server_file := '/ora/monapplication/data/'||l_file_name;
l_success := webutil_file_transfer.client_to_as_with_progress
(clientfile => l_file,
serverfile => l_server_file,
progresstitle => 'Transfert du fichier en cours',
progresssubtitle => 'Veuillez patienter',
asynchronous => NULL,
callbacktrigger => NULL
);
IF not l_success
THEN
MESSAGE('le transfert n''est pas réussi', '');
END IF;
end; |