How to use Client_Host without the exe file path

Question

Hi,
i'm using oracle forms 10g,
in my application the users can upload any type of files (doc,xls,pdf,avi ,.. etc) and any user can download and open any of these files.
i implement this using client_host and including the path of winword.exe or AcroRd32.exe ,...
in many cases i don't know where these exe files are installed in the client side or whether it is installed or not.
i tried this command : client_host('calc.exe') it works and show me the calc without including the path of this exe file.
what i want to do is to just call the target file(doc,pdf,avi,..) in the client_host without having to precede this with the exe and path like the calc.exe example.
if you go to start->run and write for example c:\ahmed.mpeg , windows automatically call the real player or any other video software installed and open the movie.
can we implement this in oracle forms? and how?

Answer 1

Hi, you attach a procedure to download a file in the local runs from Windows and to close it updates in the database and then delete the local directory
PROCEDURE OPEN_FILE (V_ID_DOC IN VARCHAR2)
IS
-- Open a stored document --
LC$Cmd Varchar2(1280) ;
LC$Nom Varchar2(1000) ;
LC$Fic Varchar2(1280);
LC$Path Varchar2(1280);
LC$Sep Varchar2(1) ;
LN$But Pls_Integer ;
LB$Ok Boolean ;
-- Current Process ID --
ret WEBUTIL_HOST.PROCESS_ID ;
     V_FICHERO VARCHAR2(500);
     COMILLA VARCHAR2(4) := '''';
     BOTON     NUMBER;
     MODO     VARCHAR2(50);
     URL     VARCHAR2(500);
Begin
     V_FICHERO := V_ID_DOC;
          -- Ruta y nombre del fichero temporal --
          LC$Sep := '\';--WEBUTIL_FILE.Get_File_Separator ; -- 10g
          LC$Nom := V_FICHERO;--Substr( V_FICHERO, instr( V_FICHERO, LC$Sep, -1 ) + 1, 100 ) ;
          --LC$Path := CLIENT_WIN_API_ENVIRONMENT.Get_Temp_Directory ;
          LC$Path := 'C:';
          LC$Fic := LC$Path || LC$Sep || LC$Nom ;
          -- Descargamos el fichero --
          If Not webutil_file_transfer.DB_To_Client
          LC$Fic,
          'TABLE_NAME',
          'ITEM_NAME',
          'WHERE'
          ) Then
          Raise Form_trigger_Failure ;
          End if ;
          -- Abrimos el fichero temporal en local --
          LC$Cmd := 'cmd /c start "" /MAX /WAIT "' || LC$Fic || '"' ;
          Ret := WEBUTIL_HOST.blocking( LC$Cmd ) ;
          LN$But := WEBUTIL_HOST.Get_return_Code( Ret ) ;
          If LN$But <> 0 Then
               Set_Alert_Property( 'ALER_STOP_1', TITLE, 'Host() command' ) ;
     Set_Alert_Property( 'ALER_STOP_1', ALERT_MESSAGE_TEXT, 'Host() command error : ' || To_Char( LN$But ) ) ;
     LN$But := Show_Alert( 'ALER_STOP_1' ) ;
     LB$Ok := WEBUTIL_FILE.DELETE_FILE( LC$Fic ) ;
     Raise Form_Trigger_Failure ;
          End if ;
          -- Actualizamos el fichero en la BBDD --
     If Not webutil_file_transfer.Client_To_DB
          LC$Fic,
          'TABLE_NAME',
          'ITEM_NAME',
          'WHERE'
          ) Then     
          NULL;     
          Else
               Commit ;
          End if ;     
     -- Eliminamos el fichero temporal local --
          LB$Ok := WEBUTIL_FILE.DELETE_FILE( LC$Fic ) ;
Exception
          When Form_Trigger_Failure Then
          Raise ;
End ;