Discussion :

[krilas]

Bonjour à tous,

Je travaille avec DevSuite 10g et j'ai un problème avec des affichages.

J'essaye d'affiché des messges dans un Item Text à des moment de l'execution, mais ca ne marche pas.

Avec un Bouton je lance de traitement avec le code suivant :

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
 
IF Webutil_file.Delete_file(v_FileN) THEN
	:BOCLK_MIDDLE.TEXT_MSG := 'Fichier supprimé !' ;
	DBMS_LOCK.SLEEP(5);
 
	:BOCLK_MIDDLE.TEXT_MSG := 'Creation du fichier ...' ;
	DBMS_LOCK.SLEEP(5);
 
             v_File := Text_IO.Fopen(vFileN, 'W');
	FOR i in (select ligne from tab)
		Text_IO.Put_Line(v_File,i.ligne);
		Text_IO.New_Line;
	END LOOP;
	Text_IO.Fclose(v_File); 
	:BOCLK_MIDDLE.TEXT_MSG := 'Fichier créé. ' ;
END IF;

Les 2 premiers messages ne s'affichent pas, apres une recherche je ne vois comment je peux faire.

Merci d'avance de votre aide.

[SheikYerbouti]

Bonjour,

Remplacez:

Code :

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

Sleep()

par

Code :

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

Synchronize;

[krilas]

Merci pour votre reponse, ca marche