Scribd
Upload
3K views

Webutil Example Code Fragments

This document contains code fragments demonstrating how to use the webutil library to perform various file operations between a client and server including opening, writing, and closing files, downloading and uploading files, getting client information, and using OLE to write files. Functions shown include opening a file for writing, writing SQL statements to a file, closing the file, copying files between directories, checking if a file exists, getting a file from the user, and downloading/uploading files between the application server and client.

Uploaded by

iamheresuresh
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
3K views

Webutil Example Code Fragments

This document contains code fragments demonstrating how to use the webutil library to perform various file operations between a client and server including opening, writing, and closing files, downloading and uploading files, getting client information, and using OLE to write files. Functions shown include opening a file for writing, writing SQL statements to a file, closing the file, copying files between directories, checking if a file exists, getting a file from the user, and downloading/uploading files between the application server and client.

Uploaded by

iamheresuresh
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
You are on page 1/ 6

Webutil Example Code Fragments

Most of these code fragments are from our own code. One or two are from publicly
available web sites, a couple are from the webutil example forms provided by Oracle
Corp.

Open file for writing

filename := 'c:\temp\'||to_char(in_load_sequence)||'.CTL';
MYFILE := client_text_io.FOPEN(FILENAME, 'W');

Write to the file

--disp_message('writing file '||filename);


client_text_io.putf(myfile, 'load DATA append INTO TABLE SPOT_LOAD1');
client_text_io.putf(myfile, ' FIELDS TERMINATED BY '||''''||','||''''||
' optionally enclosed by '||''''||'"'||''''||' TRAILING NULLCOLS');
client_text_io.putf(myfile, ' ( ');
client_text_io.putf(myfile, 'COL1 CHAR NULLIF (COL1=BLANKS)');
client_text_io.putf(myfile, ',COL2 CHAR NULLIF (COL2=BLANKS)');
client_text_io.putf(myfile, ',COL3 CHAR NULLIF (COL3=BLANKS)');
client_text_io.putf(myfile, ',COL4 CHAR NULLIF (COL4=BLANKS)');
client_text_io.putf(myfile, ',COL5 CHAR NULLIF (COL5=BLANKS)');
client_text_io.putf(myfile, ',COL6 CHAR NULLIF (COL6=BLANKS)');
client_text_io.putf(myfile, ',COL7 CHAR NULLIF (COL7=BLANKS)');
client_text_io.putf(myfile, ',COL8 CHAR NULLIF (COL8=BLANKS)');
client_text_io.putf(myfile, ',COL9 CHAR NULLIF (COL9=BLANKS)');
client_text_io.putf(myfile, ',COL10 CHAR NULLIF (COL10=BLANKS)');
client_text_io.putf(myfile, ', COUNTRY CONSTANT '||''''||:b2.country||''''||' ');
client_text_io.putf(myfile, ', LOAD_SEQUENCE CONSTANT '||
to_char(in_load_sequence));
client_text_io.putf(myfile, ', RAW_FILE_LINE sequence (max,1)');
client_text_io.putf(myfile, ', LOAD_USER CONSTANT '||''''||user||''''|| ' ');
client_text_io.putf(myfile, ', LOAD_DATE CONSTANT '||''''||
to_char(sysdate,'DD-MON-YYYY')||''''||' ');
client_text_io.putf(myfile, ', FMT6_FILE_NUMBER CONSTANT 1 )');

Close the file

/* OK close the file and copy to the right place */


client_text_io.fclose(myfile);
--disp_message('closing file '||filename);
synchronize;
--disp_message('Check status of c:\temp .ctl file');
--status := webutil_file_transfer.as_to_client('c:\temp\'||to_char(in_load_sequence),
'c:\temp\'||to_char(in_load_sequence));
client_host('cmd.exe /c copy '||'c:\temp\'||to_char(in_load_sequence)||'.CTL'||'
'||'t:\dataload');

Client copy file

declare
file_done boolean;

file_done := client_copy_file(:b2.FILE_NAME , OUT_FILE || '6_1.dat');

Client Host

client_host('NOTEPAD.EXE '||'I:\INPUT\ADEX_INT\'||
TO_CHAR(:b2.LOAD_SEQUENCE)||'_'||V_RAW_TABLE||'.dis',0);

Client Sample 2

PROCEDURE convert_to_mp3(v_country varchar2, v_file_name varchar2) IS


--
-- convert creative file from .WAV format to MP3 format
-- Files are assumed to be in a directory structure on the R: drive
-- R:\\
host_string varchar2(300);
out_file client_Text_IO.File_Type;
linebuf VARCHAR2(1800);
filename VARCHAR2(30);
BEGIN
filename:= 'c:\temp\mp3conv'||to_char(:b1.file_countx)||'.cmd';
host_string := 'cmd.exe /c '||'c:\mp3enc\mp3enc.exe r:\'||v_country||'\'||v_file_name||' r:\'||
v_country||'\'|| ' >c:\temp\mp3.out' ;
client_host(host_string);
:b1.file_countx := :b1.file_countx + 1;
END;

Checking file existance

declare
f_exists boolean;
begin
temp_file := 'r:\'||c1rec.country||'\'||prefix||chr(96+i)||'.'||suffix;
f_exists := webutil_file.file_exists(temp_file);
if f_exists then
update ......

end if;

File Selection Dialogue

default_value('l:\','global.dir');
:b2.file_name := webutil_file.file_selection_dialog( :global.dir, null ,null,'Find File');
if instr(:b2.file_name,' ') > 0 then
err_message('File path or file name as a space character within it');
end if;
:global.dir := :b2.file_name;

Download from the App Server to the Client

PROCEDURE DOWNLOAD_AS IS
l_success boolean;
l_bare_filename varchar2(50);
BEGIN
--l_bare_filename := substr(:upload.file_name,instr(:download.file_name,'\',-1)+1);
l_success := webutil_file_transfer.AS_to_Client_with_progress
(clientFile => :download.file_name
,serverFile => 'd:\temp\downloaded_from_as.txt'
,progressTitle => 'Download from Application Server in progress'
,progressSubTitle => 'Please wait'
);
if l_success
then
message('File downloaded successfully from the Application Server');
else
message('File download from Application Server failed');
end if;

exception
when others
then
message('File download failed: '||sqlerrm);

END;

Download file from DB platform to the Client

PROCEDURE DOWNLOAD_DB IS
l_success boolean;
BEGIN
l_success := webutil_file_transfer.DB_To_Client_with_progress
(clientFile => :download.file_name
,tableName => 'WU_TEST_TABLE'
,columnName => 'BLOB'
,whereClause => 'ID = 1'
,progressTitle => 'Download from Database in progress'
,progressSubTitle=> 'Please wait'
);
if l_success
then
message('File downloaded successfully from the Database');
else
message('File download from Database failed');
end if;

exception
when others
then
message('File download failed: '||sqlerrm);

END;

Get Client Information

PROCEDURE GET_CLIENTINFO IS
BEGIN
:CLIENTINFO.USER_NAME := webutil_clientinfo.get_user_name;
:CLIENTINFO.IP_ADDRESS := webutil_clientinfo.get_ip_address;
:CLIENTINFO.HOST_NAME := webutil_clientinfo.get_host_name;
:CLIENTINFO.OPERATING_SYSTEM := webutil_clientinfo.get_operating_system;
:CLIENTINFO.JAVA_VERSION := webutil_clientinfo.get_java_version;
:CLIENTINFO.PATH_SEPERATOR := webutil_clientinfo.get_path_separator;
:CLIENTINFO.FILE_SEPERATOR := webutil_clientinfo.get_file_separator;
:CLIENTINFO.LANGUAGE := webutil_clientinfo.get_language;
:CLIENTINFO.TIME_ZONE := webutil_clientinfo.get_time_zone;
:CLIENTINFO.DATE_TIME := webutil_clientinfo.get_date_time;
END;

OLE Writing

PROCEDURE OLE_WRITE IS
app CLIENT_OLE2.OBJ_TYPE;
docs CLIENT_OLE2.OBJ_TYPE;
doc CLIENT_OLE2.OBJ_TYPE;
selection CLIENT_OLE2.OBJ_TYPE;
args CLIENT_OLE2.LIST_TYPE;
BEGIN
-- create a new document
app := CLIENT_OLE2.CREATE_OBJ('Word.Application');
if :ole.silent = 'Y'
then
CLIENT_OLE2.SET_PROPERTY(app,'Visible',0);
else
CLIENT_OLE2.SET_PROPERTY(app,'Visible',1);
end if;
docs := CLIENT_OLE2.GET_OBJ_PROPERTY(app, 'Documents');
doc := CLIENT_OLE2.INVOKE_OBJ(docs, 'add');

selection := CLIENT_OLE2.GET_OBJ_PROPERTY(app, 'Selection');

-- insert data into new document from long item


CLIENT_OLE2.SET_PROPERTY(selection, 'Text', :ole.oletext);

-- save document as example.tmp


args := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(args, :ole.filename);
CLIENT_OLE2.INVOKE(doc, 'SaveAs', args);
CLIENT_OLE2.DESTROY_ARGLIST(args);

-- close example.tmp
args := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(args, 0);
CLIENT_OLE2.INVOKE(doc, 'Close', args);
CLIENT_OLE2.DESTROY_ARGLIST(args);

CLIENT_OLE2.RELEASE_OBJ(selection);
CLIENT_OLE2.RELEASE_OBJ(doc);
CLIENT_OLE2.RELEASE_OBJ(docs);

-- exit MSWord
CLIENT_OLE2.INVOKE(app,'Quit');

END;

Other Stuff

PROCEDURE separate_frame_options IS
BEGIN
if WebUtil_SeparateFrame.IsSeparateFrame
then
WebUtil_SeparateFrame.SetTitle('WebUtil Demo Form');
end if;
END;

Upload file from Client Platform to the Appserver Platform

PROCEDURE UPLOAD_AS IS
l_success boolean;
l_bare_filename varchar2(50);
BEGIN
l_bare_filename := substr(:upload.file_name,instr(:upload.file_name,'\',-1)+1);
l_success := webutil_file_transfer.Client_To_AS_with_progress
(clientFile => :upload.file_name
,serverFile => 'd:\temp\'||l_bare_filename
,progressTitle => 'Upload to Application Server in progress'
,progressSubTitle => 'Please wait'
,asynchronous => false
,callbackTrigger => null
);
if l_success
then
message('File uploaded successfully to the Application Server');
else
message('File upload to Application Server failed');
end if;

exception
when others
then
message('File upload failed: '||sqlerrm);
END;

You might also like