Applet reading and loading Files

Gud Day!!!
Id created a An applet program loading a textFile
from my C:\ directory and when i test it, if the file exists
it gives me a
"security.AccessControlException: access denied(Java.io.FilePermission read)" error
my code is
name = new File("C:\hello.txt");
if ( name.exists() )
/*some code
here */
thanks! For some future help!!!

hum
you should read what security restrictions applets have.
You can make that applet work by signing your applet and then giving it rights.

Similar Messages

Connect to Unix and load files

Can I connect to Unix and load files without using agent on Unix?
what I mean to connect directly to unix to load file from unix to Oracle database without using any agnets on Unix just by using server username and password
Please help !!!
Edited by: user653098 on Sep 5, 2010 11:45 AM

One way i can think of is if the Files are in the same Server where the ODI Server . Launch the ODI Designer of the Server(using VNC or any other application ) and use the Local agent to load the data from Unix to database. Other than this you would need to have an Agent to communicate from your Client windows Machine and Unix box.

Read and write files

i am using IE as brower,. how do i change the properties so that i can let an applet to read and write files on my system? thank you, for help.

DON'T POST MULTIPLE TIMES!
Proper English:
I am using Internet Explorer as my web browser. How do I change the properties so that an applet can read and write files to my local system? Thanks for any help.
Answer) Search on Java and security in the forum search or google. This topic is covered numerous times.
DeltaCoder

Applet read and write

Which possibilities did I have when I want to read and write Files from the harddisk?? ( It must run in an Applet)
Please describe the way(s) to access 'io' in applets.
Thanks a lot!!!

You can't do "normal" io from an applet or japplet. There are ways of getting around it though. Look at this post - it will help:
http://forum.java.sun.com/thread.jsp?forum=5&thread=9769

When will Apple have a searchable text reader and upload file capability?

When will Apple have a searchable text reader and upload file capability? I have a large text file I need to upload to my iPhone, search, and dial.
Anything planned?

I had a Palm the I used for work and travel it had a very nice application called DOCUMENTS TO GO. It allowed you to upload, view, and edit .doc, .xls, and .ppt files. this was very handy when traveling. Also, I could sync my palm with my iMac and work PC using bluetooth, took care of the file transfers as well. I would like to have the same capability on my iPhone. I bought it to replace all of my old stuff i need it to the same as my old stuff. I hope that Apple reads this and gets on the ball. Until then I still have to carry my Palm or thumb drive on trips.

Grant an account rights to read and modify files in all Redirected Documents folders?

We have set up redirected Documents folder with the default recommended permissions that does not grant Administrators any access to the folders. If an administrator needs access to a folder, they take ownership of the folder, grants themselves permissions
and does whatever they need to do with the folder such as delete it or give access to a new person. This is rarely needed so it is not a big deal.
However, we now need to import everyone's Outlook PSTs (stored in their redirected MyDoc's so they are backed up) into their new Exchange Archive mailboxes. We will also need to be able to verify all PSTs are gone from the file server
once the contents are imported into their archive mailbox. We also need to be able to run reports showing which users are storing music and video files in their folders and how much.
When I tried to run Windirstat against the share containing the redirected MyDocs folders to see what file types where taking up space, I got very incomplete results even with using psexec running as system account due to inadequate permissions on the user's
folders.
We also need the PST Capture Tool to have rights to read into their documents folders and move any psts found into the users archive mailbox.
Rather than having to go to each user's redirected documents fiolder one by one and take ownership to change permissions, is there a more efficient way to have an account running the PST Capture Tool and WindirStat have access to read and change files in
the user's redirected documents folders?
I thought of just removing the option in the GPO that says "Grant the user exclusive rights to My Documents," but I don't think that will work on pre-existing
folders that already have permissions set.

Hi,
Based on my research, if you already have a bunch of existing redirected My Documents folders set up with the
Grant the user exclusive rights to My Documents check box selected, the only documented way to regain access to the folders is to take ownership of each individual folder and manually edit the permissions to give the Administrators group full
control.
We can use powershell script to help regain access to the folders, for more details, please go through the below link:
http://mypkb.wordpress.com/2008/12/29/how-to-restore-administrators-access-to-redirected-my-documents-folder/
Regards,
Yan Li
Regards, Yan Li

Quickest method for reading and writing files

Hi
I need help regarding file operations.(Reading and Writing). Currently I am using BufferedReader and BufferedWriter to read and write files. But the files (XML) are very huge files(from 30 -50 mb). This is slowing the application to a great extent. Is there any other approach to perform the above mentioned operations on XML files in a fast manner.
Thank You
Mansoor.

Hi
Can u let me know how to use the java.nio pavkage for primitve data types(int,float..., boolean). I have tried it but found no success.
Thank You
Mansoor

Very high log file sequential read and control file sequential read waits?

I have a 10.2.0.4 database and have 5 streams capture processes running to replicate data to another database. However I am seeing very high
log file sequential read and control file sequential read by the capture procesess. This is causing slowness in the database as the databass is wasting so much time on these wait events. From AWR report
Elapsed: 20.12 (mins)
DB Time: 67.04 (mins)
and From top 5 wait events
Event Waits Time(s) Avg Wait(ms) % Total Call Time Wait Class
CPU time 1,712 42.6
log file sequential read 99,909 683 7 17.0 System I/O
log file sync 49,702 426 9 10.6 Commit
control file sequential read262,625 384 1 9.6 System I/O
db file sequential read 41,528 378 9 9.4 User I/O
Oracle support hasn't been of much help, other than wasting my 10 days and telling me to try this and try that.
Do you have streams running in your environment, are you experiencing this wait. Have you done anything to resolve these waits..
Thanks

Welcome to the forums.
There is insufficient information in what you have posted to know that your analysis of the situation is correct or anything about your Streams environment.
We don't know what you are replicating. Not size, not volume, not type of capture, not rules, etc.
We don't know the distance over which it is being replicated ... 10 ft. or 10 light years.
We don't have any AWR or ASH data to look at.
etc. etc. etc. If this is what you provided Oracle Support it is no wonder they were unable to help you.
To diagnose this problem, if one exists, requires someone on-site or with a very substantial body of data which you have not provided. The first step is to fill in the answers to all of the obvious first level questions. Then we will likely come back with a second level of questioning.
But when you do ... do not post here. Your questions are not "Database General" they are specific to Streams and there is a Streams forum specifically for them.
Thank you.

How to read and XSD file in java prospective in NWDS

Hi !!
anybody can help me that
how to read and XSD file in java prospective in Netweaver developer Studio
Regards
Abhishek Agrahari

I guess you can make it more clear...

What do I need to do to be able to read and write files to a Seagate Backup Plus Slim Portable Drive on BOTH a Mac and a PC? I downloaded "Paragon NTFS for Mac" onto my Mac, so now I can write to the drive, but when I plug it into a PC it won't work.

What do I need to do to be able to read and write files to a Seagate Backup Plus Slim Portable Drive on BOTH a Mac and a PC? I downloaded "Paragon NTFS for Mac" onto my Mac, so now I can write to the drive, but when I plug it into a PC it won't work.

If the HDD is formatted NTFS, then it suggests that there is a problem with the PC. Check with the manufacturer.
Ciao.

I have downloaded adobe reader and my file still wont open

I have downloaded adobe reader and my file still wont open

Have you accepted the license agreement for Reader?
If not, go to C/Program Files (or Program Files (x86))/Adobe/Reader 11.0/Reader
Double click the "eula.exe" file (it may just say "eula")
Accept the license agreement.
Open Reader and you should be able to open PDFs.
If it's another issue, please let us know.

Open an Excel file to read and load it into Oracle - Oracle COM Automation

Hello All,
Please I need your help for this problem:
I need to load Excel sheet data (read the data) and load it into Oracle database (insert into a table), the excel file created and has data before, and saved with xls format. and I need to do that using the Oracle® COM Automation (ordcom package). The examples I found open and create a new workbook and deletes the old saved data, so I need to open (edit) the sheet just for reading.
I appreciate ans sample code to help me do that, Please help me out. This is very urgent.
Thanks alot and best regards,
Nabil

For reading from Excel, there are some easy ways like Oracle Heterogenious Services. If you want to use COM then:
My orawpcom.dll file exists in the directory C:\oracle\product\10.2.0\db_2\bin
C:\oracle\product\10.2.0\db_2\bin>dir orawpco*.dll
Volume in drive C is C_Drive
Volume Serial Number is 8A93-1441
Directory of C:\oracle\product\10.2.0\db_2\bin
03/20/2006 05:06 PM            61,440 orawpcom.dll
10/11/2006 03:20 PM            81,920 orawpcom10.dll
               2 File(s)        143,360 bytes
               0 Dir(s) 65,407,717,376 bytes free
C:\oracle\product\10.2.0\db_2\bin>Information about my database version.
SQL> /* My databaser version */
SQL> SELECT * FROM v$version;
BANNER
Oracle Database 10g Enterprise Edition Release 10.2.0.3.0 - Prod
PL/SQL Release 10.2.0.3.0 - Production
CORE    10.2.0.3.0      Production
TNS for 32-bit Windows: Version 10.2.0.3.0 - Production
NLSRTL Version 10.2.0.3.0 - Production
SQL> Preparing the user SCOTT for COM automation.
Now, I will run comwrap.sql from scott user. I have edited the comwrap.sql to adjust my library path here:
create library utils_lib as 'C:\oracle\product\10.2.0\db_3\bin\orawpcom.dll';Running comwrap.sql and ExcelSolution.sql .....
SQL> conn scott@orclsb
Enter password: *****
Connected.
SQL> @c:\comwrap.sql
drop library utils_lib
ERROR at line 1:
ORA-04043: object UTILS_LIB does not exist
Library created.
drop package ORDCOM
ERROR at line 1:
ORA-04043: object ORDCOM does not exist
drop TYPE OAArgTable
ERROR at line 1:
ORA-04043: object OAARGTABLE does not exist
Type created.
drop TYPE OAArgTypeTable
ERROR at line 1:
ORA-04043: object OAARGTYPETABLE does not exist
Type created.
drop function OAgetNumber
ERROR at line 1:
ORA-04043: object OAGETNUMBER does not exist
Function created.
drop function OAgetStr
ERROR at line 1:
ORA-04043: object OAGETSTR does not exist
Function created.
drop function OAgetBool
ERROR at line 1:
ORA-04043: object OAGETBOOL does not exist
Function created.
drop function OAsetNumber
ERROR at line 1:
ORA-04043: object OASETNUMBER does not exist
Function created.
drop function OAsetString
ERROR at line 1:
ORA-04043: object OASETSTRING does not exist
Function created.
drop function OAsetBoolean
ERROR at line 1:
ORA-04043: object OASETBOOLEAN does not exist
Function created.
drop function OAInvokeDouble
ERROR at line 1:
ORA-04043: object OAINVOKEDOUBLE does not exist
Function created.
drop function OAInvokeBoolean
ERROR at line 1:
ORA-04043: object OAINVOKEBOOLEAN does not exist
Function created.
drop function OAInvokeString
ERROR at line 1:
ORA-04043: object OAINVOKESTRING does not exist
Function created.
drop function OACreate
ERROR at line 1:
ORA-04043: object OACREATE does not exist
Function created.
drop function OADestroy
ERROR at line 1:
ORA-04043: object OADESTROY does not exist
Function created.
drop function OAGetLastError
ERROR at line 1:
ORA-04043: object OAGETLASTERROR does not exist
Function created.
drop function OAQueryMethods
ERROR at line 1:
ORA-04043: object OAQUERYMETHODS does not exist
Function created.
Package created.
Package body created.
SQL>
SQL> @c:\ExcelSolution.sql
drop package ORDExcel
ERROR at line 1:
ORA-04043: object ORDEXCEL does not exist
Package created.
Package body created.
SQL>
I have modified ORDExcel a little bit and renamed it as ORDExcelSB. You need this version for reading the excel.
SQL> @C:\ExcelSolutionSB.sql
Package dropped.
Package created.
Package body created.
SQL> The actual code of ORDExcelSB (ExcelSolutionSB.sql) Is:
set serveroutput on;
drop package ORDExcelSB;
CREATE PACKAGE ORDExcelSB AS
   /* Declare externally callable subprograms. */
   FUNCTION CreateExcelApplication(servername VARCHAR2) RETURN binary_integer;
   FUNCTION OpenExcelFile(filename VARCHAR2, sheetname VARCHAR2) RETURN binary_integer;
   FUNCTION CreateExcelWorkSheet(servername varchar2) return binary_integer;
   FUNCTION InsertData(range varchar2, data binary_integer, type varchar2) return binary_integer;
   FUNCTION InsertDataReal(range varchar2, data double precision, type varchar2) return binary_integer;
   FUNCTION GetDataNum(range varchar2) return binary_integer;
   FUNCTION GetDataStr(range varchar2) return varchar2;
   FUNCTION GetDataReal(range varchar2) return double precision;
   FUNCTION GetDataDate(range varchar2) return date;
   FUNCTION InsertData(range varchar2, data varchar2, type varchar2) return binary_integer;
   FUNCTION InsertData(range varchar2, data Date, type varchar2) return binary_integer;
   FUNCTION InsertChart(xpos binary_integer, ypos binary_integer, width binary_integer,
                              height binary_integer, range varchar2, type varchar2) return binary_integer;
   FUNCTION SaveExcelFile(filename varchar2) return binary_integer;
   FUNCTION ExitExcel return binary_integer;
END ORDExcelSB;
CREATE PACKAGE BODY ORDExcelSB AS
   DummyToken          binary_integer;
   applicationToken binary_integer:=-1;
   WorkBooksToken     binary_integer:=-1;
   WorkBookToken     binary_integer:=-1;
   WorkSheetToken     binary_integer:=-1;
   WorkSheetToken1     binary_integer:=-1;
   RangeToken          binary_integer:=-1;
   ChartObjectToken     binary_integer:=-1;
   ChartObject1          binary_integer:=-1;
   Chart1Token          binary_integer:=-1;
   i                    binary_integer;
   retNum               binary_integer;
   retReal               double precision;
   retStr               varchar2(255);
   retDate               DATE;
error_src varchar2(255);
error_description varchar2(255);
error_helpfile varchar2(255);
error_helpID binary_integer;
FUNCTION CreateExcelApplication(servername VARCHAR2) RETURN binary_integer IS
BEGIN
    dbms_output.put_line('Creating Excel application...');
    i := OrdCOM.CreateObject('Excel.Application',
                             0,
                             servername,
                             applicationToken);
    IF (i != 0) THEN
      ORDCOM.GetLastError(error_src,
                          error_description,
                          error_helpfile,
                          error_helpID);
      dbms_output.put_line(error_src);
      dbms_output.put_line(error_description);
      dbms_output.put_line(error_helpfile);
    END IF;
    dbms_output.put_line('Invoking Workbooks...');
    i := ORDCOM.GetProperty(applicationToken,
                            'WorkBooks',
                            0,
                            WorkBooksToken);
    IF (i != 0) THEN
      ORDCOM.GetLastError(error_src,
                          error_description,
                          error_helpfile,
                          error_helpID);
      dbms_output.put_line(error_src);
      dbms_output.put_line(error_description);
      dbms_output.put_line(error_helpfile);
    END IF;
    RETURN i;
END CreateExcelApplication;
FUNCTION OpenExcelFile(filename VARCHAR2, sheetname VARCHAR2)
    RETURN binary_integer IS
BEGIN
    dbms_output.put_line('Opening Excel file ' || filename || ' ...');
    ORDCOM.InitArg();
    ORDCOM.SetArg(filename, 'BSTR');
    i := ORDCOM.Invoke(WorkBooksToken, 'Open', 1, DummyToken);
    IF (i != 0) THEN
      ORDCOM.GetLastError(error_src,
                          error_description,
                          error_helpfile,
                          error_helpID);
      dbms_output.put_line(error_src);
      dbms_output.put_line(error_description);
      dbms_output.put_line(error_helpfile);
    END IF;
    dbms_output.put_line('Opening WorkBook');
    i := ORDCOM.GetProperty(applicationToken,
                            'ActiveWorkbook',
                            0,
                            WorkBookToken);
    IF (i != 0) THEN
      ORDCOM.GetLastError(error_src,
                          error_description,
                          error_helpfile,
                          error_helpID);
      dbms_output.put_line(error_src);
      dbms_output.put_line(error_description);
      dbms_output.put_line(error_helpfile);
    END IF;
    dbms_output.put_line('Invoking WorkSheets..');
    i := ORDCOM.GetProperty(applicationToken,
                            'WorkSheets',
                            0,
                            WorkSheetToken1);
    IF (i != 0) THEN
      ORDCOM.GetLastError(error_src,
                          error_description,
                          error_helpfile,
                          error_helpID);
      dbms_output.put_line(error_src);
      dbms_output.put_line(error_description);
      dbms_output.put_line(error_helpfile);
    END IF;
    dbms_output.put_line('Invoking WorkSheet');
    ORDCOM.InitArg();
    ORDCOM.SetArg(sheetname, 'BSTR');
    i := ORDCOM.GetProperty(WorkBookToken, 'Sheets', 1, WorkSheetToken);
    IF (i != 0) THEN
      ORDCOM.GetLastError(error_src,
                          error_description,
                          error_helpfile,
                          error_helpID);
      dbms_output.put_line(error_src);
      dbms_output.put_line(error_description);
      dbms_output.put_line(error_helpfile);
    END IF;
    dbms_output.put_line('Opened ');
    RETURN i;
END OpenExcelFile;
* Invoke the Excel Automation Server and create a Workbook object as
* well as a worksheet object
FUNCTION CreateExcelWorkSheet(servername varchar2) return binary_integer IS
BEGIN
     dbms_output.put_line('Creating Excel application...');
     i:=ORDCOM.CreateObject('Excel.Application', 0, servername,applicationToken);
     IF (i!=0) THEN
     ORDCOM.GetLastError(error_src, error_description, error_helpfile, error_helpID);
     dbms_output.put_line(error_src);
     dbms_output.put_line(error_description);
     dbms_output.put_line(error_helpfile);
     END IF;
     dbms_output.put_line('Invoking Workbooks...');
     /*i:=ORDCOM.Invoke(applicationToken, 'WorkBooks',0, WorkBooksToken);*/
     i:=ORDCOM.GetProperty(applicationToken, 'WorkBooks', 0, WorkBooksToken);
     IF (i!=0) THEN
     ORDCOM.GetLastError(error_src, error_description, error_helpfile, error_helpID);
     dbms_output.put_line(error_src);
     dbms_output.put_line(error_description);
     dbms_output.put_line(error_helpfile);
     END IF;
     dbms_output.put_line('Invoking Add to WorkBooks...');
     ORDCOM.InitArg();
     ORDCOM.SetArg(-4167,'I4');
     i:=ORDCOM.Invoke(WorkBooksToken, 'Add', 1, WorkBookToken);
IF (i!=0) THEN
     ORDCOM.GetLastError(error_src, error_description, error_helpfile, error_helpID);
     dbms_output.put_line(error_src);
     dbms_output.put_line(error_description);
     dbms_output.put_line(error_helpfile);
     END IF;
     dbms_output.put_line('Invoking WorkSheets..');
     ORDCOM.InitArg();
     ORDCOM.SetArg('Sheet 1','BSTR');
/*     i:=ORDCOM.Invoke(applicationToken, 'WorkSheets', 1, WorkSheetToken);*/
i:=ORDCOM.GetProperty(applicationToken, 'WorkSheets', 0, WorkSheetToken1);
IF (i!=0) THEN
     ORDCOM.GetLastError(error_src, error_description, error_helpfile, error_helpID);
     dbms_output.put_line(error_src);
     dbms_output.put_line(error_description);
     dbms_output.put_line(error_helpfile);
     END IF;
i:=ORDCOM.Invoke(WorkSheetToken1, 'Add', 0, WorkSheetToken);
IF (i!=0) THEN
     ORDCOM.GetLastError(error_src, error_description, error_helpfile, error_helpID);
     dbms_output.put_line(error_src);
     dbms_output.put_line(error_description);
     dbms_output.put_line(error_helpfile);
     END IF;
     return i;
END CreateExcelWorkSheet;
* Invoke the Range method to obtain a range token. Then set the property value
* at the specified range to the data required
FUNCTION InsertData( range varchar2,
                         data binary_integer,
                         type varchar2)
                         RETURN binary_integer IS
BEGIN
     ORDCOM.InitArg();
     ORDCOM.SetArg(range, 'BSTR');
     i:=ORDCOM.GetProperty(WorkSheetToken, 'Range', 1, RangeToken);
     IF (i!=0) THEN
     ORDCOM.GetLastError(error_src, error_description, error_helpfile, error_helpID);
     dbms_output.put_line(error_src);
     dbms_output.put_line(error_description);
     dbms_output.put_line(error_helpfile);
     END IF;
     i:=ORDCOM.SetProperty(RangeToken, 'Value', data, type);
     IF (i=0) THEN
           i:=ORDCOM.SetProperty(RangeToken, 'ColumnWidth', 15, 'I2');
     END IF;
     i:=ORDCOM.DestroyObject(RangeToken);
     RETURN i;
END InsertData;
* Invoke the Range method to obtain a range token. Then set the property value
* at the specified range to the data required
FUNCTION GetDataNum( range varchar2)
                         RETURN binary_integer IS
BEGIN
     ORDCOM.InitArg();
     ORDCOM.SetArg(range, 'BSTR');
     i:=ORDCOM.GetProperty(WorkSheetToken, 'Range', 1, RangeToken);
     IF (i!=0) THEN
     ORDCOM.GetLastError(error_src, error_description, error_helpfile, error_helpID);
     dbms_output.put_line(error_src);
     dbms_output.put_line(error_description);
     dbms_output.put_line(error_helpfile);
     END IF;
     i:=ORDCOM.GetProperty(RangeToken, 'Value', 0, retNum);
     IF (i!=0) THEN
     ORDCOM.GetLastError(error_src, error_description, error_helpfile, error_helpID);
     dbms_output.put_line(error_src);
     dbms_output.put_line(error_description);
     dbms_output.put_line(error_helpfile);
     END IF;
     i:=ORDCOM.DestroyObject(RangeToken);
     RETURN retNum;
END GetDataNum;
FUNCTION GetDataReal( range varchar2)
                         RETURN double precision IS
BEGIN
     ORDCOM.InitArg();
     ORDCOM.SetArg(range, 'BSTR');
     i:=ORDCOM.GetProperty(WorkSheetToken, 'Range', 1, RangeToken);
     IF (i!=0) THEN
     ORDCOM.GetLastError(error_src, error_description, error_helpfile, error_helpID);
     dbms_output.put_line(error_src);
     dbms_output.put_line(error_description);
     dbms_output.put_line(error_helpfile);
     END IF;
     i:=ORDCOM.GetProperty(RangeToken, 'Value', 0, retReal);
     IF (i!=0) THEN
     ORDCOM.GetLastError(error_src, error_description, error_helpfile, error_helpID);
     dbms_output.put_line(error_src);
     dbms_output.put_line(error_description);
     dbms_output.put_line(error_helpfile);
     END IF;
     i:=ORDCOM.DestroyObject(RangeToken);
     RETURN retReal;
END GetDataReal;
FUNCTION GetDataStr( range varchar2)
                         RETURN varchar2 IS
BEGIN
     ORDCOM.InitArg();
     ORDCOM.SetArg(range, 'BSTR');
     i:=ORDCOM.GetProperty(WorkSheetToken, 'Range', 1, RangeToken);
     IF (i!=0) THEN
     ORDCOM.GetLastError(error_src, error_description, error_helpfile, error_helpID);
     dbms_output.put_line(error_src);
     dbms_output.put_line(error_description);
     dbms_output.put_line(error_helpfile);
     END IF;
     i:=ORDCOM.GetProperty(RangeToken, 'Value', 0, retStr);
     IF (i!=0) THEN
     ORDCOM.GetLastError(error_src, error_description, error_helpfile, error_helpID);
     dbms_output.put_line(error_src);
     dbms_output.put_line(error_description);
     dbms_output.put_line(error_helpfile);
     END IF;
     i:=ORDCOM.DestroyObject(RangeToken);
     RETURN retStr;
END GetDataStr;
FUNCTION GetDataDate( range varchar2)
                         RETURN Date IS
BEGIN
     ORDCOM.InitArg();
     ORDCOM.SetArg(range, 'BSTR');
     i:=ORDCOM.GetProperty(WorkSheetToken, 'Range', 1, RangeToken);
     IF (i!=0) THEN
     ORDCOM.GetLastError(error_src, error_description, error_helpfile, error_helpID);
     dbms_output.put_line(error_src);
     dbms_output.put_line(error_description);
     dbms_output.put_line(error_helpfile);
     END IF;
     i:=ORDCOM.GetProperty(RangeToken, 'Value', 0, retDate);
     IF (i!=0) THEN
     ORDCOM.GetLastError(error_src, error_description, error_helpfile, error_helpID);
     dbms_output.put_line(error_src);
     dbms_output.put_line(error_description);
     dbms_output.put_line(error_helpfile);
     END IF;
     i:=ORDCOM.DestroyObject(RangeToken);
     RETURN retDate;
END GetDataDate;
FUNCTION InsertData( range varchar2,
                         data DATE,
                         type varchar2)
                         RETURN binary_integer IS
BEGIN
     ORDCOM.InitArg();
     ORDCOM.SetArg(range, 'BSTR');
     i:=ORDCOM.GetProperty(WorkSheetToken, 'Range', 1, RangeToken);
     i:=ORDCOM.SetProperty(RangeToken, 'Value', data, type);
     i:=ORDCOM.DestroyObject(RangeToken);
     RETURN i;
END InsertData;
FUNCTION InsertDataReal( range varchar2,
                         data double precision,
                         type varchar2)
                         RETURN binary_integer IS
BEGIN
     ORDCOM.InitArg();
     ORDCOM.SetArg(range, 'BSTR');
     i:=ORDCOM.GetProperty(WorkSheetToken, 'Range', 1, RangeToken);
     i:=ORDCOM.SetProperty(RangeToken, 'Value', data, type);
     i:=ORDCOM.DestroyObject(RangeToken);
     RETURN i;
END InsertDataReal;
FUNCTION InsertData( range varchar2,
                         data varchar2,
                         type varchar2)
                         RETURN binary_integer IS
BEGIN
     ORDCOM.InitArg();
     ORDCOM.SetArg(range, 'BSTR');
     i:=ORDCOM.GetProperty(WorkSheetToken, 'Range', 1, RangeToken);
     i:=ORDCOM.SetProperty(RangeToken, 'Value', data, type);
     i:=ORDCOM.DestroyObject(RangeToken);
     RETURN i;
END InsertData;
* Insert a chart at the x and y position of the spreadsheet with the desired
* height and width. Then also uses the ChartWizard to draw the graph with data
* in a specified range area with a specified charting type.
FUNCTION InsertChart(xpos binary_integer, ypos binary_integer,
                          width binary_integer, height binary_integer,
                          range varchar2, type varchar2) RETURN binary_integer IS
     charttype binary_integer:= -4099;
BEGIN
     ORDCOM.InitArg();
     i:=ORDCOM.GetProperty(WorkSheetToken, 'ChartObjects', 0, ChartObjectToken);
     IF (i!=0) THEN
     ORDCOM.GetLastError(error_src, error_description, error_helpfile, error_helpID);
     dbms_output.put_line(error_src);
     dbms_output.put_line(error_description);
     dbms_output.put_line(error_helpfile);
     END IF;
     ORDCOM.InitArg();
     ORDCOM.SetArg(xpos,'I2');
     ORDCOM.SetArg(ypos,'I2');
     ORDCOM.SetArg(width,'I2');
     ORDCOM.SetArg(height,'I2');
     i:=ORDCOM.Invoke(ChartObjectToken, 'Add', 4, ChartObject1);
     IF (i!=0) THEN
     ORDCOM.GetLastError(error_src, error_description, error_helpfile, error_helpID);
     dbms_output.put_line(error_src);
     dbms_output.put_line(error_description);
     dbms_output.put_line(error_helpfile);
     END IF;
     i:=ORDCOM.GetProperty(ChartObject1, 'Chart', 0,Chart1Token);
     ORDCOM.InitArg();
     ORDCOM.SetArg(range, 'BSTR');
     i:=ORDCOM.GetProperty(WorkSheetToken,'Range', 1, RangeToken);
     ORDCOM.InitArg();
     ORDCOM.SetArg(RangeToken, 'DISPATCH');
     IF type='xlPie' THEN
          charttype := -4102;
     ELSIF type='xl3DBar' THEN
          charttype := -4099;
     ELSIF type='xlBar' THEN
          charttype := 2;
     ELSIF type='xl3dLine' THEN
          charttype:= -4101;
     END IF;
     ORDCOM.SetArg(charttype,'I4');
     i:=ORDCOM.Invoke(Chart1Token,'ChartWizard', 2, DummyToken);
     i:=ORDCOM.DestroyObject(RangeToken);
     i:=ORDCOM.DestroyObject(ChartObjectToken);
     i:=ORDCOM.DestroyObject(ChartObject1);
     i:=ORDCOM.DestroyObject(Chart1Token);
     RETURN i;
END InsertChart;
* Save the Excel File. WARNING: Do not specify a filename that already exist
* since there is no graphical context, Oracle would not be able to pop
* out a warning message for existing file. This causes Excel to hang
FUNCTION SaveExcelFile(filename varchar2) return binary_integer IS
BEGIN
     dbms_output.put_line('Saving Excel file...');
     ORDCOM.InitArg();
     ORDCOM.SetArg(filename,'BSTR');
     i:=ORDCOM.Invoke(WorkBookToken, 'SaveAs', 1, DummyToken);
     IF (i!=0) THEN
     ORDCOM.GetLastError(error_src, error_description, error_helpfile, error_helpID);
     dbms_output.put_line(error_src);
     dbms_output.put_line(error_description);
     dbms_output.put_line(error_helpfile);
     END IF;
     RETURN i;
END SaveExcelFile;
* Close the Excel spreadsheet and exit from it
FUNCTION ExitExcel return binary_integer is
BEGIN
     dbms_output.put_line('Closing workbook and quitting...');
     ORDCOM.InitArg();
     ORDCOM.InitArg();
     ORDCOM.SetArg(FALSE,'BOOL');
     dbms_output.put_line('Closing workbook...');
     i:=ORDCOM.Invoke(WorkBookToken, 'Close', 0, DummyToken);
     IF (i!=0) THEN
     ORDCOM.GetLastError(error_src, error_description, error_helpfile, error_helpID);
     dbms_output.put_line(error_src);
     dbms_output.put_line(error_description);
     dbms_output.put_line(error_helpfile);
     END IF;
     i:=ORDCOM.DestroyObject(WorkBookToken);
     ORDCOM.InitArg();
     dbms_output.put_line('Closing workbooks...');
     i:=ORDCOM.Invoke(WorkBooksToken, 'Close', 0, DummyToken);
     IF (i!=0) THEN
     ORDCOM.GetLastError(error_src, error_description, error_helpfile, error_helpID);
     dbms_output.put_line(error_src);
     dbms_output.put_line(error_description);
     dbms_output.put_line(error_helpfile);
     END IF;
     i:=ORDCOM.DestroyObject(WorkBooksToken);
     i:=ORDCOM.Invoke(applicationToken, 'Quit', 0, DummyToken);
     IF (i!=0) THEN
     ORDCOM.GetLastError(error_src, error_description, error_helpfile, error_helpID);
     dbms_output.put_line(error_src);
     dbms_output.put_line(error_description);
     dbms_output.put_line(error_helpfile);
     END IF;
     i:=ORDCOM.DestroyObject(WorkSheetToken);
     i:=ORDCOM.DestroyObject(WorkSheetToken1);
     i:=ORDCOM.DestroyObject(applicationToken);
     i:=ORDCOM.DestroyObject(ChartObjectToken);
     i:=ORDCOM.DestroyObject(Chart1Token);
     i:=ORDCOM.DestroyObject(ChartObject1);
     i:=ORDCOM.DestroyObject(dummyToken);
     RETURN i;
END ExitExcel;
END ORDExcelSB;
/I have created an excel named as C:\Example.xls.
Name     SlNo     Job     Dept     Salary     Bonus
Saubhik Banerjee     706090     IT Specialist     GBS     100     10
Partha S Mohanty     706091     Pogrmmer     APPS     70     20
Partha Sarkar     889300     Condultant     FIN     200     30
Useless     98009     PM     PM     900     90
SQL> SET SERVEROUT ON
SQL> DECLARE
2
3    v_Name          varchar2(90);
4    v_SlNo          varchar2(100);
5    v_Job           varchar2(200);
6    v_Dept          varchar2(100);
7    v_recon_remark varchar2(50);
8    v_sal_amt_usd   number;
9    v_Bonus_amt_usd number;
10
11    result INTEGER;
12
13    i        binary_integer;
14    filename varchar2(255);
15
16 BEGIN
17
18    filename := 'C:\Example.xls';
19
20    result := ORDExcelSB.CreateExcelApplication('');
21    result := ORDExcelSB.OpenExcelFile(filename, 'Sheet1');
22
23    /* Excluding the header row and reading the first 5 row */
24    FOR n in 2 .. 5 LOOP
25
26      v_Name          := ORDExcelSB.GetDataStr('A' || n);
27      v_SlNo          := ORDExcelSB.GetDataReal('B' || n);
28      v_Job           := ORDExcelSB.GetDataStr('C' || n);
29      v_Dept          := ORDExcelSB.GetDataStr('D' || n);
30      v_sal_amt_usd   := ORDExcelSB.GetDataNum('E' || n);
31      v_Bonus_amt_usd := ORDExcelSB.GetDataNum('F' || n);
32
33      dbms_output.put_line(v_Name || ' ' || v_SlNo || ' ' || v_Job || ' ' ||
34                           v_Dept || ' ' || v_sal_amt_usd || ' ' ||
35                           v_Bonus_amt_usd);
36
37    END LOOP;
38
39    result := ORDExcelSB.ExitExcel();
40 EXCEPTION
41    WHEN OTHERS THEN
42      result := ORDExcelSB.ExitExcel();
43      RAISE;
44 END;
45 /
Creating Excel application...
Invoking Workbooks...
Opening Excel file C:\Example.xls ...
Opening WorkBook
Invoking WorkSheets..
Invoking WorkSheet
Opened
Saubhik Banerjee 706090 IT Specialist GBS 100 10
Partha S Mohanty 706091 Pogrmmer APPS 70 20
Partha Sarkar 889300 Condultant FIN 200 30
Useless 98009 PM PM 900 90
Closing workbook and quitting...
Closing workbook...
Closing workbooks...
PL/SQL procedure successfully completed.
SQL> Although, You haven't asked, but you can use this code to write to excel file (.xls)
DECLARE
CURSOR c1 IS
     SELECT empno, ename, dname, sal, hiredate
     FROM emp e, dept d
     WHERE e.deptno = d.deptno;
error_message varchar2(1200);
n binary_integer:=2;
i binary_integer;
filename varchar2(255);
cellIndex varchar2(40);
cellValue varchar2(40);
cellColumn varchar2(10);
returnedTime varchar2(20);
currencyvalue double precision;
datevalue DATE;
empno binary_integer;
looptext varchar2(20);
error_src varchar2(255);
error_description varchar2(255);
error_helpfile varchar2(255);
error_helpID binary_integer;
begin
filename:='c:\example2.xls';
i:=ORDExcel.CreateExcelWorkSheet('');
i:=ORDExcel.InsertData('A1', 'EmpNo', 'BSTR');
i:=ORDExcel.InsertData('B1', 'Name', 'BSTR');
i:=ORDExcel.InsertData('C1', 'Dept', 'BSTR');
i:=ORDExcel.InsertData('D1', 'Salary', 'BSTR');
i:=ORDExcel.InsertData('E1', 'HireDate', 'BSTR');
For c1_rec IN c1 LOOP
cellColumn:=TO_CHAR(n);
cellIndex:=CONCAT('A',cellColumn);
cellValue:=TO_CHAR(c1_rec.empno);
empno:=cellValue;
i:=ORDExcel.InsertData(cellIndex, empno, 'I2');
cellIndex:=CONCAT('B',cellColumn);
cellValue:=c1_rec.ename;
i:=ORDExcel.InsertData(cellIndex, cellValue, 'BSTR');
cellIndex:=CONCAT('C',cellColumn);
cellValue:=c1_rec.dname;
i:=ORDExcel.InsertData(cellIndex, cellValue, 'BSTR');
cellIndex:=CONCAT('D',cellColumn);
cellValue:=c1_rec.sal;
currencyValue:=cellValue;
i:=ORDExcel.InsertData(cellIndex, currencyValue, 'CY');
cellIndex:=CONCAT('E',cellColumn);
dateValue:=c1_rec.hiredate;
i:=ORDExcel.InsertData(cellIndex, dateValue, 'DATE');
n:=n+1;
END LOOP;
i:=ORDExcel.SaveExcelFile(filename);
i:=ORDExcel.ExitExcel();
EXCEPTION
WHEN OTHERS THEN
i:=ORDExcel.ExitExcel();
RAISE;
END;

Read and Write Files to user from Forms Server

We are developing an application that requires us to rread and write files to the user system. We are deploying using the developer/forms server and this is not happenning. The text_io package and the d2wkutil operate on the application server system, not the user system. So is there a method to read the file contents into the app and write files out to the user system across the web. Thanks.

developer6 can interact with javabeans. the javabean runs as an applet on the client machine. all you have to do is setup a javabean that read and write to your client machine.
when you test your application, work with java console open so you'll be able to debug your appliacion, if you'll receive java security execption you may need to sign this javabean. look at sun site for info regarding the usage of javakey for signing java classes and jars.

How to burn read and write files on DVD

I would like to know how to burn DVDs (image files) with the Read and Write setting. I have changed the settings in Get Info for the image files to Read and Write for Owner, Group and Others and yet when I burn the DVD and try and copy the files back onto the hard drive (to test if it works or not) it won't allow me. When I check the Get Info it says Read and Write for owner (greyed out) and Read Only for Group and Others (greyed out too).
I have also tried to change the status of the blank DVD before adding files and after adding the files (but b4 the burn) to Read and Write, this works but then during the burn process the DVD or burner changes my settings to Read Only.
I am burning with Finder and have tried with Toast 10 Titanium. What am I doing wrong, or not doing at all?! I'm going loopy with frustration!

Kiraly, I agree that the actual problem here might be something else, but as a side issue there seems to be a difference in the way permissions are handled when a file copy is made using Finder compared to when the copy is made using the cp copy in Terminal. At least in my Tiger system, Finder preserved the permission structure, though not the ownership, when it copied a file, whereas cp used the OS defaults.
I tried the following experiment:
From my test user account "t", I created a textfile named ReadWrite.txt, and gave it Read+Write permissions for Owner, Group, and Others. I then burned it using Finder to a DVD which I named PermissionTest, and then unchecked the "Ignore Ownership" box on PermissionTest.
The original ownership and permissions were preserved on the DVD, though of course you couldn't actually write to anything there:
xxG5-Computer:~ t$ ls -l /Volumes/PermissionTest/ReadWrite.txt
-rw-rw-rw- 1 t t 15 Sep 13 18:25 /Volumes/PermissionTest/ReadWrite.txt
I then copied the file from the DVD to the Desktop using Finder, and the permissions were preserved!
Finder copy:
xxG5-Computer:~ t$ ls -l /Users/t/Desktop/ReadWrite.txt
-rw-rw-rw- 1 t t 15 Sep 13 18:25 /Users/t/Desktop/ReadWrite.txt
I then trashed the Finder copy of ReadWrite,txt on the desktop, and made a second copy from the DVD, but this time I used the cp command from Terminal instead of using Finder. This time the permissions were not preserved, but reverted to the OS default:
cp copy:
xxG5-Computer:~ t$ cp /Volumes/PermissionTest/ReadWrite.txt Desktop
xxG5-Computer:~ t$ ls -l /Users/t/Desktop/ReadWrite.txt
-rw-r--r-- 1 t t 15 Sep 13 19:43 /Users/t/Desktop/ReadWrite.txt
I then switched to a different user account "t1", and repeated the above with the same DVD, first copying the ReadWrite.txt file to the desktop using Finder, and then using cp. The ownership of the copied file changed from t to t1 in both cases, but the permission structure again was preserved in the Finder copy but not in the cp copy:
DVD file:
xxG5-Computer:~ t1$ ls -l /Volumes/PermissionTest/ReadWrite.txt
-rw-rw-rw- 1 t t 15 Sep 13 18:25 /Volumes/PermissionTest/ReadWrite.txt
Finder copy:
xxG5-Computer:~ t1$ ls -l /Users/t1/Desktop/ReadWrite.txt
-rw-rw-rw- 1 t1 t1 15 Sep 13 18:25 /Users/t1/Desktop/ReadWrite.txt
cp copy:
xxG5-Computer:~ t1$ cp /Volumes/PermissionTest/ReadWrite.txt Desktop
xxG5-Computer:~ t1$ ls -l /Users/t1/Desktop/ReadWrite.txt
-rw-r--r-- 1 t1 t1 15 Sep 13 19:51 /Users/t1/Desktop/ReadWrite.txt
I got similar results when I tried copying a file with Read+Write permissions for all from a USB flash drive to the Desktop, again with the "Ignore Ownership" box unchecked.

Reading and processing file(s) in a filesystem

I'm fairly new to java programming and need help.
I need to write code which will and read and process 1 or many files from a filesystem. If a file is found, read and process it. Then do same for all files found.
Please help.
Thanks in advance!

Some classes of the package java.io will be used .
http://java.sun.com/j2se/1.4.1/docs/api/java/io/package-tree.html
(The java.io.File has the methods list() and listFiles(), of which the former returns an array String[] and the latter returns an array java.io.File[]. )

Applet reading and loading Files

Similar Messages

Maybe you are looking for