Oracle Forms

Hi ..

I am use the package
var_resultado := WEBUTIL_FILE_TRANSFER.CLIENT_TO_DB('c:\testprep.exe','EJEMPLO_UPLOAD','ARCHIVO','id='||valor_id,FALSE,null);

var_resultado is TRUE "The operation is success"

I see the bar progress correctly...

But , i want verify the large of blob , for to make sure it insert (the object blob) , but , the blob object it not insert in the DataBase , in SQL*PLUS i execute the next code :


declare
var_archivo_blob blob;
var_largo number;
begin
select archivo
into var_archivo_blob
from ejemplo_upload
where id = &1
;
var_largo := dbms_lob.getlength(var_Archivo_blob);
dbms_output.put_line('Largo del blob : '||var_largo);
end;
/


And the all blob , not exists , her larges are 0 , why?

And in the Forms , when use the package var_largo := dbms_lob.getlength(var_Archivo_blob);

The conecction is crashed , see :

Loading http://wp_hulloa.metlife.cl:8888/forms90/webutil/webutil.jar from JAR cache

Loading http://wp_hulloa.metlife.cl:8888/forms90/webutil/jacob.jar from JAR cache

Loading http://wp_hulloa.metlife.cl:8888/forms90/java/f90all_jinit.jar from JAR cache

Loading http://wp_hulloa.metlife.cl:8888/forms90/java/iconic_files.jar from JAR cache

RegisterWebUtil - Loading Webutil Version 1.0.2 Beta

connectMode=HTTP, native.

Forms Applet version is : 90290

oracle.forms.net.ConnectionException: Se ha abortado la sesión de Forms <58>: No se ha podido establecer comunicación con el proceso de tiempo de ejecución.

at oracle.forms.net.ConnectionException.createConnectionException(Unknown Source)

at oracle.forms.net.HTTPNStream.getResponse(Unknown Source)

at oracle.forms.net.HTTPNStream.doFlush(Unknown Source)

at oracle.forms.net.HTTPNStream.flush(Unknown Source)

at java.io.DataOutputStream.flush(Unknown Source)

at oracle.forms.net.StreamMessageWriter.run(Unknown Source)


I don't know .....

Why ?

The code in the forms is :

**********************************************
declare
var_resultado boolean;
valor_id number;
var_archivo_blob blob;
var_largo number;
begin

--Inserto un registro para actualizarlo con un archivo


select seq_webutil.nextval
into valor_id
from ejemplo_upload
;

insert into ejemplo_upload values (valor_id,'TESTPREP.EXE',empty_blob());

commit;

if :webutil_api.rg_client_to_db = 'S' then
var_resultado := WEBUTIL_FILE_TRANSFER.CLIENT_TO_DB('c:\testprep.exe','EJEMPLO_UPLOAD','ARCHIVO','id='||valor_id,FALSE,null);
else
var_resultado := WEBUTIL_FILE_TRANSFER.CLIENT_TO_DB_WITH_PROGRESS('c:\testprep.exe','EJEMPLO_UPLOAD','ARCHIVO','id='||valor_id,'Sistema SVT WEB','Transfiriendo archivo a la Base de Datos');
end if;

if var_resultado then

commit;

-- Con la sentencia de abajo obtengo el largo del campo BLOB, para así verificar que fue insertado


select archivo
into var_archivo_blob
from ejemplo_upload
where id = valor_id
;

var_largo := DBMS_LOB.GETLENGTH(var_archivo_blob);


else
message('Problemas en la transferencia de datos');
end if;
end;


**********************************************
Saludos

Hector

PD : Sorry my english