Discussion :

[krilas]

Bonjour,

Je travaille avec DevSuite 10g sous XP.

J'ai une Form qui me permet de faire un transfert de fichier du Serveur vers le Client. Ce fichier est alimenté par un Curseur.

Quant je n'ai pas d'enregistrements, j'ai une erreur de transfert. Pourtant le fichier est créé sur le AS avec 0 Ko

Mon code :

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
 
declare
	cursor cur is 	SELECT champ_1 	FROM table_1; 
 
begin
	-- creation fichier sur le AS
	v_File := text_io.Fopen('c:\temp\FileSrv.txt','W');  	-- ouverture fichier
	FOR i IN cur LOOP		-- cur				
		text_io.Put_Line(v_File, i.ligne);			
	END LOOP;
	text_io.Fclose(v_File);     							-- fermeture de fichier
 
	-- transfert fichier du Serveur AS vesr client
	IF WEBUTIL_FILE_TRANSFER.AS_to_client( 'c:\temp\FileClient.txt', 'c:\temp\FileSrv.txt' )  
	Then
		  message('!!! Download OK ' || 'c:\temp\FileSrv.txt' || ' !!!');
	Else
		  message('!!! Download error KO ' || 'c:\temp\FileClient.txt' || ' !!!');
	End IF ; 
 
	-- suppression fichier sur AS
	UTL_FILE.FREMOVE('c:\temp','FileSrv.txt');
end;

Alors j'ai l'ERREUR : !!! Download OK c:\temp\FileSrv.txt !!!

Comment je peux faire un teste sur le CURSEUR quand il est vide ?

Merci d'avance de votre aide

[SheikYerbouti]

Incrémentez une variable dans le Loop.

[krilas]

merci du conseil