declare
	 v_file varchar2(4000) :=client_get_file_name ('','', 'C:\*.jpg', 'Select STYLE OF THE image', open_file, TRUE);
	 it_image_id ITEM:=FIND_ITEM('IMAGES.IMAGE_FILE_SOURCE_LOCALDATA');
begin
													  
	read_image_file(v_file,'ANY','IMAGES.IMAGE_FILE_SOURCE_LOCALDATA');
	write_image_file(v_file,'ANY' 'IMAGES.IMAGE_FILE_SOURCE_LOCALDATA',maximize_compression,ORIGINAL_DEPTH);
end;

Declare
filename VARCHAR2(256);
begin
filename := GET_FILE_NAME( 'C:\|*.jpg|*.gif|');
READ_IMAGE_FILE(filename, 'ANY', 'IMAGES.IMAGE_FILE_SOURCE_LOCALDATA');
end;

DECLARE
	 v_file varchar2(4000):=client_get_file_name ('','', 'C:\|*.TIFF|*.gif|', 'Select STYLE OF THE image', open_file, TRUE);
	 it_image_id ITEM:=FIND_ITEM('IMAGES.IMAGE_FILE_SOURCE_LOCALDATA');
BEGIN										  
	CLIENT_IMAGE.READ_IMAGE_FILE(v_file,'', it_image_id);
END;