Java bean to get information from serial port

Question

we are migrating from 6i to 10g. In 6i, we used mscomm32.ocx to access to com port. Now in 10g we need a java bean. Anybody has a java bean to access to serial port or anything similar?
My email is [email protected]
Thanks in advance.

Answer 1

we set properties to the serial port, open the port, read (listen) from port, ... Here there are some pieces of code to you see it:
-- Si está abierto el puerto puedo leer
IF (MsCommLib_ImsComm.PortOpen(:ITEM('IF_OCX_COM').INTERFACE)=-1) THEN
-- Miro si hay caracteres
a:=MsCommLib_ImsComm.InBufferCount(:ITEM('IF_OCX_COM').INTERFACE);
IF a>0 THEN
set_item_property('COMUNICACION_ICS.ESPERA',DISPLAYED,PROPERTY_FALSE);
--Datos de un bloque nuevo, hay que insertar la fecha
IF :global.estado = 0 THEN
--Leo la fecha en la que se ha leído los datos
--SELECT SYSDATE INTO fecha
--FROM DUAL;   
fecha := To_Date(:System.Current_Datetime,'dd-mon-yyyy hh24:mi:ss');
-- Borro la pantalla si hay mas de 1920 caracteres
:global.tc := :global.tc + 21;
IF :global.tc > 1920 then
:comunicacion_ics.if_txt_com_rec :='';
:global.tc := 0;
end if;
--Introduzco la fecha en el control de texto, para su posterior proceso
:comunicacion_ics.if_txt_com_rec := :comunicacion_ics.if_txt_com_rec||CHR(10)
||'__' || To_Char(fecha,'DD-MM-YYYY,HH24:Mi:SS')||chr(10);
guarda := Fichero.Escribe(:global.fic,CHR(10)||'__' || To_Char(fecha,'DD-MM-YYYY,HH24:Mi:SS')
||chr(10));
if guarda < 0 then
raise e;
end if;
END IF;
-- Indico que se están recibiendo datos de este bloque
:global.estado := 2;
--Leo la cadena
linea_ics := Var_To_Char(MsCommLib_ImsComm.Input(:item('IF_OCX_COM').INTERFACE));
linea_ics := replace(linea_ics,chr(13),CHR(10)); -- CHR(10)
--La añado al control de texto para que se vea
-- Borro la pantalla si hay mas de 1920 caracteres
:global.tc := :global.tc + a;
IF :global.tc > 1920 then
:comunicacion_ics.if_txt_com_rec :='';
:global.tc := 0;
end if;
:comunicacion_ics.if_txt_com_rec := :comunicacion_ics.if_txt_com_rec||
linea_ics;
--Escribo la linea en el fichero
-- Propiedades de Buffers
-- Tamaño del Buffer de Entrada
:prop_com.txt_in_buf := MsCommLib_ImsComm.InBufferSize(:ITEM('IF_OCX_COM').INTERFACE);
-- Tamaño del Buffer de Salida
:prop_com.txt_out_buf := MsCommLib_ImsComm.OutBufferSize(:ITEM('IF_OCX_COM').INTERFACE);
-- Tamaño de la cadena de Entrada
:prop_com.txt_input_len := MsCommLib_ImsComm.InputLen(:ITEM('IF_OCX_COM').INTERFACE);
-- RThreshold
:prop_com.txt_rthres := MsCommLib_ImsComm.RThreshold(:ITEM('IF_OCX_COM').INTERFACE);
-- SThreshold
:prop_com.txt_sthres := MsCommLib_ImsComm.SThreshold(:ITEM('IF_OCX_COM').INTERFACE);
-- EOF Enable
:prop_com.chk_eof_enable := MsCommLib_ImsComm.EOFEnable(:ITEM('IF_OCX_COM').INTERFACE);
-- Propiedades Hardware
-- Parity replace
:prop_com.txt_par_repl := MsCommLib_ImsComm.ParityReplace(:ITEM('IF_OCX_COM').INTERFACE);
-- NULL Discard
:prop_com.chk_null_discard := MsCommLib_ImsComm.NULLDiscard(:ITEM('IF_OCX_COM').INTERFACE);
-- RTS Enable
:prop_com.chk_rts := MsCommLib_ImsComm.RTSEnable(:ITEM('IF_OCX_COM').INTERFACE);
-- NULL DTR
:prop_com.chk_dtr := MsCommLib_ImsComm.DTREnable(:ITEM('IF_OCX_COM').INTERFACE);
Thanks. Inma