Discussion :

[satanas]

Bonjour à tous,

J'utilise FORM 6i Version 6.0.8.21.3 (Production).

Je voudrai pouvoir créer un écran qui me permette de choisir un fichier sur n'importe quel lecteur réseau.

Existe-t-il une librairie .pll ou autre chose qui permette de faire cela ?

Merci d'avance pour vos réponses.

[Nounoursonne]

bonjour,

dans la bibliotheque D2KWUTIL, il y a une function : Win_API_Dialog.Open_File
qui permet d'ouvrir une boite de dialogue pour selectionner un fichier
regardes de ce coté

[orafrance]

il n'y a pas d'infos intéressantes dans ce tutoriel : http://sheikyerbouti.developpez.com/webutil/ ?

[plaineR]

Sinon tu as la fonction standard get_file_name.

[Nounoursonne]

Fred,

Webutil n'est pas utilisable sur Forms 6.
Il faudrait peut être préciser si l'appli est en mode WEB ou client serveur

[satanas]

Merci à tous pour vos réponses,

C'est Nounoursonne qui me permet de solutionner mon problème.

En effet, cela marche très bien si j'utilise la pll D2KWUTIL et la fonction Win_Api_Dialog.Open_File comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
32
 
PROCEDURE WHEN_NEW_FORM IS
  w_title      VARCHAR2(200) := 'Choisissez un fichier';
  w_directory  VARCHAR2(200) := '\\10.61.40.18\FBConverter\Buchlieferungen\Export\';
  w_filefilter VARCHAR2(200) := 'LSOut_|*.*|';
  w_file       VARCHAR2(200);
BEGIN
 
  --show_view('CANVAS20');
  CGDV$POPULATE_DYNAMIC_LISTS;
  :blk_mod.w_nom_fic := 'LSOut_';
  Go_Block('BLK_MOD');
 
  :blk_mod.w_nom_fic := Win_Api_Dialog.Open_File(  
       w_title               -- Title            IN  VARCHAR2     DEFAULT 'Open File'
     , w_directory           -- StartDirectory   IN  VARCHAR2     DEFAULT '$WINDIR$'
     , w_filefilter          -- FileFilter       IN  VARCHAR2     DEFAULT 'All files(*.*)|*.*|'
     , TRUE                  -- Modal            IN  BOOLEAN      DEFAULT TRUE
     , WIN_API.OFN_EXPLORER  -- AdvancedFlags    IN  PLS_INTEGER  DEFAULT WIN_API.OFN_FLAG_DEFAULT
     , FALSE);               -- RaiseExceptions  IN  BOOLEAN      DEFAULT FALSE
                    --)  RETURN VARCHAR2;
  :blk_mod.w_nom_fic := REPLACE(:blk_mod.w_nom_fic,w_directory);
  :blk_mod.w_nom_fic := REPLACE(:blk_mod.w_nom_fic,'.txt');
EXCEPTION
  WHEN form_trigger_failure THEN
    Show_Message_Param('AMI',600040,'WHEN form_trigger_failure THEN');
    RAISE form_trigger_failure;
  WHEN OTHERS THEN
    Show_Message_Param('AMI',600040,'WHEN OTHERS THEN');
    Insert_Error_Form(SQLERRM);
    RAISE form_trigger_failure;
END;

Encore merci à Nounoursonne