Discussion :

[Lust14]

Bonjour à tous

voilà, je travaille avec oracle 9i et Forms 5 , j'ai developpé une petite application qui telecharge un fichier donné

Voici le code de mon application

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
Declare
   lv_sqlcode number;
   lv_sqlerrm varchar2(240);
   lv_constr varchar2(41);
   alert_button number ;
   cd_agc varchar2(6);
   nb_ag number;
   nbr number;
   ip varchar2(20);
   user varchar2(15);
   pwd varchar2(15);
   fichier varchar2(40);
   fichier1 varchar2(40);
   chemin varchar2(100);
   date_ses varchar2(8);
   date1 date;
   l_conn utl_tcp.connection;
 
BEGIN
  cd_agc :='00'|| :num_agc;
  select count(*) into nb_ag from agence t where t.code_agc=cd_agc;
  if (nb_ag=0 )then
      Alert_button:= Show_Alert('AGC');
        else
      select t.ip_agc into ip from agence t where t.code_agc = cd_agc;
   user :=mon_user;
   pwd :=mon_pwd ;
   fichier := 'fichier'|| :num_agc;
   select date_c_jc into date1 from session_cpte where date_o_jc = :dat_ses;
   date_ses := to_char(date1,'ddmmyyyy');
   fichier1:= fichier ||date_ses ||'.txt';
   nbr :=length(fichier1);
   if (nbr=27) then
        fichier1 := fichier ||'0'||date_ses||'.txt';
   else
           fichier1 :=fichier1;
   end if;  
   chemin :='/out/'||fichier1;
   l_conn :=ftp.login(ip,'21',user,pwd); 
   ftp.ascii(p_conn => l_conn);
   ftp.get(p_conn =>l_conn,
           p_from_file =>chemin,
           p_to_dir =>'MY_DOCS',
           p_to_file => fichier1 );
   ftp.logout(l_conn);
   utl_tcp.close_all_connections;
   Alert_button:= Show_Alert('FIN');
   exit_form;
   end if;
 exception
   when others then
     lv_sqlcode :=SQLCODE;
     lv_sqlerrm :=SQLERRM;
END;

L'application marche tres bien, seulement voilà apres les testes effectués le temps du chargement est un peu long, du coup je dois mettre une progress bar pour faire attendre le user, leproblème c'est que je ne sais pas comment faire ça,
mon second problème, c'est qu'a la fin du telechargement lorsque l'alerte FIN s'affiche , je dois mettre un bouton pour visiualiser le fichier, comment je procède a ça ????

Merci du coup de main

[SheikYerbouti]

Bonjour,

Vous n'avez pas la main pendant l'exécution de la commande get, donc une barre de progression sera parfaitement inutile.
Pour visualiser le fichier, utilisez l'instruction Host() en conjonction avec la commande Windows start()

Code :

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

Host( 'cmd /c start "" "c:\...\fichier.truc"' ) ;

[Lust14]

Bonjour
en premier lieu, merci pour votre reponse.
Pour le problème d’affichage du répertoire, j’ai réussi a régler le problème et ceci en utilisant la commande

Code :

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

1
2
 
Win_api_shell.winExec ('explorer.exe E :\teste', win_api_sw_shownormal, false) ;

Mais avant cela, il faut d’abord importer la bibliothèque D2KWUTIL
Du coup quand je clique sur visualiser il ouvre directement le répertoire demandé.

En revanche pour le problème du progresse bar, j’ai trouvé le code suivant que j’essaye d’appliquer (j’ai trouvé ça sur le help de Forms)

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Declare
  X NUMBER := Set_Item_property (‘PROGRESS.PLAIN’,WIDTH) ;
Begin
  If X < 120 then 
     Set_Item_property ('PROGRESS.PLAIN', WIDTH,  X+5 );
 Else
     Delete_Timer ('PROGRESS');
 End if;
END;

Et dans la forme TESTE lors de la connexion ftp, je fais appel a cette form et je fais un SYNCHRONISE

Mais lors de la compilation, il m’affiche l’erreur suivante :

Code :

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

1
2
3
 
ERREUR 306 Ligne2,colonne16
  Numero ou type d’arguemnts erronés dans appel à 'Set_Item_Property'

Le problème c'est que l'utilisateur doit avoir quelque chose a l'ecran durant le transfert, que faire dans ce cas

[SheikYerbouti]

Ondéfinit les valeurs avec Set_Item_Property() mais on les récupère avec Get_Item_Property().

Encore une fois, laissez tomber la barre de progression. Avec ou sans Timer, vous n'avez pas la main dès que vous exécutez une boucle, une procédure ou une fonction externe. Vous n'aurez donc jamais la possibilité de faire progresser votre barre, en dehors de 0% avant l'appel et 100% au retour de la fonction.