ORACLE HTTP & HTTPS 訪問

1.1 普通 get 測試1

DECLARE
  req   UTL_HTTP.REQ;
  resp  UTL_HTTP.RESP;
  v_result VARCHAR2(1024);  
  v_url varchar2(50);
BEGIN 
  v_url:='http://192.168.52.43/myweb/test/ds?n=xag';   

  req := UTL_HTTP.BEGIN_REQUEST (url=> v_url, method => 'GET');
  UTL_HTTP.SET_BODY_CHARSET('UTF-8');
  resp := UTL_HTTP.GET_RESPONSE(req);
  LOOP
    UTL_HTTP.READ_LINE(resp, v_result, TRUE);
    DBMS_OUTPUT.PUT_LINE(v_result);
  END LOOP;
  UTL_HTTP.END_RESPONSE(resp);
EXCEPTION
  WHEN UTL_HTTP.END_OF_BODY THEN
    UTL_HTTP.END_RESPONSE(resp);
END;

--輸出： Hello xag From Dubbo2Service

1.2 普通 get 測試2

declare 
v_req utl_http.req;v_resp utl_http.resp;
v_parts utl_http_multipart.parts := utl_http_multipart.parts();
v_result VARCHAR2(1024);v_url varchar2(50);v_n varchar2(100);
begin  
 v_n:='xag';
 v_url:='http://192.168.52.43/myweb/test/hs'; 
    
 utl_http_multipart.add_param(v_parts, 'n',v_n);
 v_req := utl_http.begin_request(v_url, 'GET', 'HTTP/1.1');
 utl_http_multipart.send(v_req, v_parts);
 v_resp := utl_http.get_response(v_req);
 dbms_output.put_line(v_resp.status_code);
 LOOP
    UTL_HTTP.READ_LINE(v_resp, v_result, TRUE);
    DBMS_OUTPUT.PUT_LINE(v_result);
  END LOOP;
  UTL_HTTP.END_RESPONSE(v_resp);
EXCEPTION
  WHEN UTL_HTTP.END_OF_BODY THEN
    UTL_HTTP.END_RESPONSE(v_resp); 
end;

--輸出：200
--      Hello xag From HessianService

2.1 https ACL環境準備（以下腳本 SYS 登錄執行）

#清除 acl_myweb
callDBMS_NETWORK_ACL_ADMIN.drop_acl('acl_myweb');

#創建 acl_myweb
begin
  DBMS_NETWORK_ACL_ADMIN.CREATE_ACL(acl=> 'acl_myweb',description => 'acl myweb',principal=> 'MON',is_grant=> true,privilege =>'connect');
  DBMS_NETWORK_ACL_ADMIN.ADD_PRIVILEGE(acl=>'acl_myweb',principal => 'MON',is_grant  => true,privilege => 'resolve');
end; 

#增加主機到 acl_myweb 中
begin
  DBMS_NETWORK_ACL_ADMIN.ASSIGN_ACL(acl  => 'acl_myweb',host => '192.168.52.43');
  DBMS_NETWORK_ACL_ADMIN.ASSIGN_ACL(acl  => 'acl_myweb',host => '192.168.52.44');
end;

#授權訪問 UTL_HTTP
grant execute on UTL_HTTP to MON;

Select t.acl,t.principal,t.privilege,t.is_grant,t.invert 
From dba_network_acl_privileges t where t.acl=upper('acl_myweb');
------------------------------------------------------------------------------------
    ACL PRINCIPAL   PRIVILEGE   IS_GRANT    INVERT
1   ACL_MYWEB   MON resolve true    false
2   ACL_MYWEB   MON connect true    false

select * from dba_network_acls t where t.acl=upper('acl_myweb');
------------------------------------------------------------------------------------
   HOST         LOWER_PORT  UPPER_PORT  ACL     ACLID               ACL_OWNER
192.168.52.43                         ACL_MYWEB 00000000800027B0    SYS
192.168.52.44                         ACL_MYWEB 00000000800027B0    SYS

2.2 https 證書環境準備

[oracle@ORACLE122 ~]$ mkdir /home/oracle/wallet
[oracle@ORACLE122 ~]$ mkdir /home/oracle/cer

#1通過瀏覽器 https方式訪問網站，導出網站的根證書（base64 格式） xagca.cer
#2將xagca.cer 複製到 oracle 所在服務器的  /home/orace/cer/ 目錄下
#3 清理
orapki wallet remove -wallet /home/oracle/wallet -trusted_cert_all -pwd Xag##123
#4初始化目錄（僅首次需要）
orapki wallet create -wallet /home/oracle/wallet -pwd Xag##123 -auto_login
#5 顯示證書列表（暫無，因未加證書進入）
orapki wallet display -wallet /home/oracle/wallet

#6 新加證書到 wallet 中（後續有其他證書可再次追加）
orapki wallet add -wallet /home/oracle/wallet -trusted_cert -cert /home/oracle/cer/xagca.cer -pwd Xag##123

[oracle@ORACLE122 ~]$ orapki wallet display -wallet /home/oracle/wallet
Subject: EMAIL=xuaiguo@163.com,CN=xagca,OU=IT,O=XagCompany,L=zhuhai,ST=GuangDong,C=CN

2.3 普通 get https 測試

declare 
v_req utl_http.req;v_resp utl_http.resp;
v_parts utl_http_multipart.parts := utl_http_multipart.parts();
v_result VARCHAR2(1024);v_url varchar2(50);v_n varchar2(100);
l_wallet_path VARCHAR2(128);l_wallet_password VARCHAR2(128);
begin  
 l_wallet_path := 'file:/home/oracle/wallet';
 l_wallet_password := 'Xag##123';
 utl_http.set_wallet(l_wallet_path, l_wallet_password);
 
 v_n:='xag';
 v_url:='https://192.168.52.43/myweb/test/hs'; 
    
 utl_http_multipart.add_param(v_parts, 'n',v_n);
 v_req := utl_http.begin_request(v_url, 'GET', 'HTTP/1.1');
 utl_http_multipart.send(v_req, v_parts);
 v_resp := utl_http.get_response(v_req);
 dbms_output.put_line(v_resp.status_code);
 LOOP
    UTL_HTTP.READ_LINE(v_resp, v_result, TRUE);
    DBMS_OUTPUT.PUT_LINE(v_result);
  END LOOP;
  UTL_HTTP.END_RESPONSE(v_resp);
EXCEPTION
  WHEN UTL_HTTP.END_OF_BODY THEN
    UTL_HTTP.END_RESPONSE(v_resp); 
end;

3.1 普通post https測試1

DECLARE
  req   UTL_HTTP.REQ;resp UTL_HTTP.RESP;v_result VARCHAR2(1024);  
  v_chatid varchar2(100);v_msg varchar2(4000);v_url varchar2(50);
  v_paramer varchar2(4000);l_wallet_path VARCHAR2(128);l_wallet_password VARCHAR2(128);
begin  
  l_wallet_path := 'file:/home/oracle/wallet';
  l_wallet_password := 'Xag##123';
  utl_http.set_wallet(l_wallet_path, l_wallet_password);
 
  v_url:='https://192.168.52.43/myweb/send/msg';   
  v_chatid:='chat23a91fa8ea51b8b26d1f7bcde7afc76b';  
  v_msg:='測試:' || to_char(sysdate,'yyyy-mm-dd hh24:mi:ss');
  
  v_paramer:='chatid=' || v_chatid || chr(38) || 'msg=' || v_msg; 

  req := UTL_HTTP.BEGIN_REQUEST (url=> v_url, method => 'POST');
  UTL_HTTP.SET_BODY_CHARSET('UTF-8');
  UTL_HTTP.SET_HEADER (r=>  req,name=>  'Content-Type',value=>  'application/x-www-form-urlencoded');
  UTL_HTTP.SET_HEADER (r=>  req,name=>   'Content-Length',value=>   LENGTHB(v_paramer));
  UTL_HTTP.WRITE_RAW (r=> req,data=>UTL_RAW.CAST_TO_RAW(v_paramer)); 
  resp := UTL_HTTP.GET_RESPONSE(req);
  LOOP
    UTL_HTTP.READ_LINE(resp, v_result, TRUE);
    DBMS_OUTPUT.PUT_LINE(v_result);
  END LOOP;
  UTL_HTTP.END_RESPONSE(resp);
EXCEPTION
  WHEN UTL_HTTP.END_OF_BODY THEN
    UTL_HTTP.END_RESPONSE(resp);
END;

3.2 普通post https 測試 2

declare v_req utl_http.req;v_resp utl_http.resp;
v_parts utl_http_multipart.parts := utl_http_multipart.parts();
v_result VARCHAR2(1024);v_url varchar2(50);v_chatid varchar2(100);
v_msg varchar2(4000);l_wallet_path VARCHAR2(128);l_wallet_password VARCHAR2(128);
begin  
 l_wallet_path := 'file:/home/oracle/wallet';
 l_wallet_password := 'Xag##123';
 utl_http.set_wallet(l_wallet_path, l_wallet_password);
   
 v_url:='https://192.168.52.43/myweb/send/msg';   
 v_chatid:='chat23a91fa8ea51b8b26d1f7bcde7afc76b';  
 v_msg:='測試:' || to_char(sysdate,'yyyy-mm-dd hh24:mi:ss');
  
 utl_http_multipart.add_param(v_parts, 'chatid',v_chatid);
 utl_http_multipart.add_param(v_parts, 'msg',v_msg);
 v_req := utl_http.begin_request(v_url, 'POST', 'HTTP/1.1');
 utl_http_multipart.send(v_req, v_parts);
 v_resp := utl_http.get_response(v_req);
 --dbms_output.put_line(v_resp.status_code);
 LOOP
    UTL_HTTP.READ_LINE(v_resp, v_result, TRUE);
    DBMS_OUTPUT.PUT_LINE(v_result);
  END LOOP;
  UTL_HTTP.END_RESPONSE(v_resp);
EXCEPTION
  WHEN UTL_HTTP.END_OF_BODY THEN
    UTL_HTTP.END_RESPONSE(v_resp); 
end;

普通 https 文件測試

declare v_req utl_http.req;v_resp utl_http.resp;
v_parts utl_http_multipart.parts := utl_http_multipart.parts();
v_file blob;v_result VARCHAR2(1024);v_url varchar2(50);
v_chatid varchar2(100);v_filename varchar2(50);
l_wallet_path VARCHAR2(128);l_wallet_password VARCHAR2(128);
begin  
 l_wallet_path := 'file:/home/oracle/wallet';
 l_wallet_password := 'Xag##123';
 utl_http.set_wallet(l_wallet_path, l_wallet_password);
   
 v_url:='https://192.168.52.43/myweb/send/file'; 
 v_chatid:='chat23a91fa8ea51b8b26d1f7bcde7afc76b';  
 as_xlsx.query2sheet('select t.table_name,t.num_rows from tabs t where t.num_rows>0 order by t.num_rows desc',p_start_rownum => 3 );
 v_file:=as_xlsx.finish();
 
 v_filename:='tabs_num_rows.xlsx';
 
 utl_http_multipart.add_param(v_parts, 'chatid',v_chatid);
 utl_http_multipart.add_file(v_parts, 'file', v_filename, 'application/pdf', v_file);
 v_req := utl_http.begin_request(v_url, 'POST', 'HTTP/1.1');
 utl_http_multipart.send(v_req, v_parts);
 v_resp := utl_http.get_response(v_req);

 LOOP
    UTL_HTTP.READ_LINE(v_resp, v_result, TRUE);
    DBMS_OUTPUT.PUT_LINE(v_result);
  END LOOP;
  UTL_HTTP.END_RESPONSE(v_resp);
EXCEPTION
  WHEN UTL_HTTP.END_OF_BODY THEN
    UTL_HTTP.END_RESPONSE(v_resp); 
end;

人面猴
序言：七十年代末，一起剥皮案震惊了整个滨河市，随后出现的几起案子，更是在滨河造成了极大的恐慌，老刑警刘岩，带你破解...
沈念sama阅读 212,080评论 6赞 493
死咒
序言：滨河连续发生了三起死亡事件，死亡现场离奇诡异，居然都是意外死亡，警方通过查阅死者的电脑和手机，发现死者居然都...
沈念sama阅读 90,422评论 3赞 385
救了他两次的神仙让他今天三更去死
文/潘晓璐我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
开封第一讲书人阅读 157,630评论 0赞 348
道士缉凶录：失踪的卖姜人
文/不坏的土叔我叫张陵，是天一观的道长。经常有香客问我，道长，这世上最难降的妖魔是什么？我笑而不...
开封第一讲书人阅读 56,554评论 1赞 284
港岛之恋（遗憾婚礼）
正文为了忘掉前任，我火速办了婚礼，结果婚礼上，老公的妹妹穿的比我还像新娘。我一直安慰自己，他们只是感情好，可当我...
茶点故事阅读 65,662评论 6赞 386
恶毒庶女顶嫁案：这布局不是一般人想出来的
文/花漫我一把揭开白布。她就那样静静地躺着，像睡着了一般。火红的嫁衣衬着肌肤如雪。梳的纹丝不乱的头发上，一...
开封第一讲书人阅读 49,856评论 1赞 290
城市分裂传说
那天，我揣着相机与录音，去河边找鬼。笑死，一个胖子当着我的面吹牛，可吹牛的内容都是我干的。我是一名探鬼主播，决...
沈念sama阅读 39,014评论 3赞 408
双鸳鸯连环套：你想象不到人心有多黑
文/苍兰香墨我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
开封第一讲书人阅读 37,752评论 0赞 268
万荣杀人案实录
序言：老挝万荣一对情侣失踪，失踪者是张志新（化名）和其女友刘颖，没想到半个月后，有当地人在树林里发现了一具尸体，经...
沈念sama阅读 44,212评论 1赞 303
护林员之死
正文独居荒郊野岭守林人离奇死亡，尸身上长有42处带血的脓包…… 初始之章·张勋以下内容为张勋视角年9月15日...
茶点故事阅读 36,541评论 2赞 327
白月光启示录
正文我和宋清朗相恋三年，在试婚纱的时候发现自己被绿了。大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
茶点故事阅读 38,687评论 1赞 341
活死人
序言：一个原本活蹦乱跳的男人离奇死亡，死状恐怖，灵堂内的尸体忽然破棺而出，到底是诈尸还是另有隐情，我是刑警宁泽，带...
沈念sama阅读 34,347评论 4赞 331
日本核电站爆炸内幕
正文年R本政府宣布，位于F岛的核电站，受9级特大地震影响，放射性物质发生泄漏。R本人自食恶果不足惜，却给世界环境...
茶点故事阅读 39,973评论 3赞 315
男人毒药：我在死后第九天来索命
文/蒙蒙一、第九天我趴在偏房一处隐蔽的房顶上张望。院中可真热闹，春花似锦、人声如沸。这庄子的主人今日做“春日...
开封第一讲书人阅读 30,777评论 0赞 21
一桩弑父案，背后竟有这般阴谋
文/苍兰香墨我抬头看了看天上的太阳。三九已至，却和暖如春，着一层夹袄步出监牢的瞬间，已是汗流浃背。一阵脚步声响...
开封第一讲书人阅读 32,006评论 1赞 266
情欲美人皮
我被黑心中介骗来泰国打工，没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留，地道东北人。一个月前我还...
沈念sama阅读 46,406评论 2赞 360
代替公主和亲
正文我出身青楼，却偏偏与公主长得像，于是被迫代替她去往敌国和亲。传闻我的和亲对象是个残疾皇子，可洞房花烛夜当晚...
茶点故事阅读 43,576评论 2赞 349

ORACLE HTTP & HTTPS 訪問

推荐阅读更多精彩内容