|
|
| Re: Communication form Serial / Parallel port via Oracle Forms [message #124029 is a reply to message #123665] |
Wed, 15 June 2005 20:02   |
 |
djmartin
Messages: 10181
Registered: March 2005
Location: Surges Bay TAS Australia
|
Senior Member
Account Moderator |
|
|
If the device can be plugged between the keyboard and the PC then Oracle Forms can handle it eg bar-code reader, if not then you will have to search the main Oracle sites or google it. Unfortunately, sometimes it takes a couple of days searching and a bit of lateral thinking (or a synonyms list) to find information. Have you contacted the supplier or manufacturer of the device? Can you think of alternate devices and searched on their name / equipment? Can you communicate with it via Java? Can you get it to simulate a flat file and read it using utl_file or text_io? Does it come with a 'dll' which can be talked to using ora_ffi?
David
[Updated on: Wed, 15 June 2005 20:15] Report message to a moderator |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| Re: Communication form Serial / Parallel port via Oracle Forms [message #490510 is a reply to message #490508] |
Tue, 25 January 2011 06:05 |
owais_baba
Messages: 289
Registered: March 2008
Location: MUSCAT
|
Senior Member |
|
|
and here is a pkg to send sms
PACKAGE sms IS
procedure SetServer (v_server varchar);
procedure SetPort (v_port number);
procedure SetUser (v_user varchar) ;
procedure SetPassword (v_password varchar);
procedure login;
procedure SendMsg(v_msg varchar,v_num number,v_lang number, v_company varchar, v_date varchar);
procedure logout;
END;
----------------------------------------------------------
PACKAGE BODY sms IS
sms_lhandle Ora_Ffi.Libhandletype ;
SetServer_fhandle Ora_Ffi.Funchandletype ;
Setport_fhandle Ora_Ffi.Funchandletype ;
Setuser_fhandle Ora_Ffi.Funchandletype ;
SetPassword_fhandle ora_ffi.Funchandletype;
login_fhandle ora_ffi.Funchandletype;
SendMsg_fhandle ora_ffi.Funchandletype;
logout_fhandle ora_ffi.Funchandletype;
procedure ff_SetServer(fhandle ora_ffi.funchandletype, v_server varchar);
PRAGMA interface(C, ff_SetServer, 11265);
procedure ff_setPort(fhandle ora_ffi.funchandletype, v_port number);
PRAGMA interface(C, ff_setPort, 11265);
procedure ff_setUser(fhandle ora_ffi.funchandletype, v_user varchar);
PRAGMA interface(C, ff_setUser, 11265);
procedure ff_setPassword(fhandle ora_ffi.funchandletype, v_password varchar);
PRAGMA interface(C, ff_setPassword, 11265);
procedure ff_login(fhandle ora_ffi.funchandletype);
PRAGMA interface(C, ff_login, 11265);
procedure ff_send_msg(fhandle ora_ffi.funchandletype,v_msg varchar,v_num number,v_lang number, v_company varchar, v_date varchar);
PRAGMA interface(C, ff_send_msg, 11265);
procedure ff_logout(fhandle ora_ffi.funchandletype);
PRAGMA interface(C, ff_logout, 11265);
-----------------------------------------------------------------------procedures
procedure SetServer (v_server varchar) IS
BEGIN
ff_SetServer(SetServer_fhandle,v_server) ;
END SetServer;
procedure setPort (v_port number) IS
BEGIN
ff_setPort(setPort_fhandle,v_port) ;
END setPort;
procedure setUser (v_user varchar) IS
BEGIN
ff_setUser(setUser_fhandle,v_user) ;
END setUser;
procedure setPassword (v_password varchar) IS
BEGIN
ff_setPassword(setPassword_fhandle,v_password) ;
END setPassword;
procedure login IS
BEGIN
ff_login(login_fhandle) ;
END login;
procedure SendMsg (v_msg varchar,v_num number,v_lang number, v_company varchar, v_date varchar) IS
BEGIN
ff_send_msg(SendMsg_fhandle,v_msg ,v_num,v_lang, v_company, v_date);
END sendmsg;
procedure logout IS
BEGIN
ff_logout(logout_fhandle) ;
END logout;
--------------------------------------------------------------------------------------
begin
sms_lhandle := Ora_Ffi.Load_Library('C:\', 'SmsPro.dll');
SetServer_fhandle := Ora_Ffi.Register_Function(sms_lhandle, 'SetServer', Ora_Ffi.C_Std);
Ora_Ffi.Register_Parameter (SetServer_fhandle,Ora_Ffi.C_char);
SetPort_fhandle := Ora_Ffi.Register_Function(sms_lhandle, 'SetPort', Ora_Ffi.C_Std);
Ora_Ffi.Register_Parameter (SetPort_fhandle,Ora_Ffi.C_Int);
SetUser_fhandle := Ora_Ffi.Register_Function(sms_lhandle, 'Set_User', Ora_Ffi.C_Std);
Ora_Ffi.Register_Parameter (SetUser_fhandle,Ora_Ffi.C_char);
SetPassword_fhandle := Ora_Ffi.Register_Function(sms_lhandle, 'SetPassword', Ora_Ffi.C_Std);
Ora_Ffi.Register_Parameter (SetPassword_fhandle,Ora_Ffi.C_char);
login_fhandle := Ora_Ffi.Register_Function(sms_lhandle, 'login', Ora_Ffi.C_Std);
Ora_Ffi.Register_Parameter (login_fhandle,Ora_Ffi.C_char);
SendMsg_fhandle := Ora_Ffi.Register_Function(sms_lhandle, 'SendMsg', Ora_Ffi.C_Std);
Ora_Ffi.Register_Parameter (SendMsg_fhandle,Ora_Ffi.C_Char);
Ora_Ffi.Register_Parameter(SendMsg_fhandle,Ora_Ffi.C_int);
Ora_Ffi.Register_Parameter(SendMsg_fhandle,Ora_Ffi.c_int);
Ora_Ffi.Register_Parameter(SendMsg_fhandle,Ora_Ffi.c_char);
Ora_Ffi.Register_Parameter(SendMsg_fhandle,Ora_Ffi.c_char);
logout_fhandle := Ora_Ffi.Register_Function(sms_lhandle, 'logout', Ora_Ffi.C_Std);
Ora_Ffi.Register_Parameter(logout_fhandle,Ora_Ffi.C_char);
EXCEPTION
WHEN Ora_Ffi.Ffi_Error THEN
/* print error message */
message(tool_err.message);
message(tool_err.message);
tool_err.pop;
END;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
] 
Blog
Search
Help
Members
Register
Login
Home
