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閱讀 228,739評論 6贊 534
死咒
序言：濱河連續發生了三起死亡事件，死亡現場離奇詭異，居然都是意外死亡，警方通過查閱死者的電腦和手機，發現死者居然都...
沈念sama閱讀 98,634評論 3贊 419
救了他兩次的神仙讓他今天三更去死
文/潘曉璐我一進店門，熙熙樓的掌柜王于貴愁眉苦臉地迎上來，“玉大人，你說我怎么就攤上這事。” “怎么了？”我有些...
開封第一講書人閱讀 176,653評論 0贊 377
道士緝兇錄：失蹤的賣姜人
文/不壞的土叔我叫張陵，是天一觀的道長。經常有香客問我，道長，這世上最難降的妖魔是什么？我笑而不...
開封第一講書人閱讀 63,063評論 1贊 314
?港島之戀（遺憾婚禮）
正文為了忘掉前任，我火速辦了婚禮，結果婚禮上，老公的妹妹穿的比我還像新娘。我一直安慰自己，他們只是感情好，可當我...
茶點故事閱讀 71,835評論 6贊 410
惡毒庶女頂嫁案：這布局不是一般人想出來的
文/花漫我一把揭開白布。她就那樣靜靜地躺著，像睡著了一般。火紅的嫁衣襯著肌膚如雪。梳的紋絲不亂的頭發上，一...
開封第一講書人閱讀 55,235評論 1贊 324
城市分裂傳說
那天，我揣著相機與錄音，去河邊找鬼。笑死，一個胖子當著我的面吹牛，可吹牛的內容都是我干的。我是一名探鬼主播，決...
沈念sama閱讀 43,315評論 3贊 442
雙鴛鴦連環套：你想象不到人心有多黑
文/蒼蘭香墨我猛地睜開眼，長吁一口氣：“原來是場噩夢啊……” “哼！你這毒婦竟也來了？” 一聲冷哼從身側響起，我...
開封第一講書人閱讀 42,459評論 0贊 289
萬榮殺人案實錄
序言：老撾萬榮一對情侶失蹤，失蹤者是張志新（化名）和其女友劉穎，沒想到半個月后，有當地人在樹林里發現了一具尸體，經...
沈念sama閱讀 49,000評論 1贊 335
?護林員之死
正文獨居荒郊野嶺守林人離奇死亡，尸身上長有42處帶血的膿包…… 初始之章·張勛以下內容為張勛視角年9月15日...
茶點故事閱讀 40,819評論 3贊 355
?白月光啟示錄
正文我和宋清朗相戀三年，在試婚紗的時候發現自己被綠了。大學時的朋友給我發了我未婚夫和他白月光在一起吃飯的照片。...
茶點故事閱讀 43,004評論 1贊 370
活死人
序言：一個原本活蹦亂跳的男人離奇死亡，死狀恐怖，靈堂內的尸體忽然破棺而出，到底是詐尸還是另有隱情，我是刑警寧澤，帶...
沈念sama閱讀 38,560評論 5贊 362
?日本核電站爆炸內幕
正文年R本政府宣布，位于F島的核電站，受9級特大地震影響，放射性物質發生泄漏。R本人自食惡果不足惜，卻給世界環境...
茶點故事閱讀 44,257評論 3贊 347
男人毒藥：我在死后第九天來索命
文/蒙蒙一、第九天我趴在偏房一處隱蔽的房頂上張望。院中可真熱鬧，春花似錦、人聲如沸。這莊子的主人今日做“春日...
開封第一講書人閱讀 34,676評論 0贊 26
一樁弒父案，背后竟有這般陰謀
文/蒼蘭香墨我抬頭看了看天上的太陽。三九已至，卻和暖如春，著一層夾襖步出監牢的瞬間，已是汗流浹背。一陣腳步聲響...
開封第一講書人閱讀 35,937評論 1贊 288
情欲美人皮
我被黑心中介騙來泰國打工，沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留，地道東北人。一個月前我還...
沈念sama閱讀 51,717評論 3贊 393
代替公主和親
正文我出身青樓，卻偏偏與公主長得像，于是被迫代替她去往敵國和親。傳聞我的和親對象是個殘疾皇子，可洞房花燭夜當晚...
茶點故事閱讀 48,003評論 2贊 374

三个男躁一个女,国精产品一区一手机的秘密,麦子交换系列最经典十句话,欧美国产综合欧美视频

ORACLE HTTP & HTTPS 訪問

ORACLE HTTP & HTTPS 訪問

推薦閱讀更多精彩內容

三个男躁一个女,国精产品一区一手机的秘密,麦子交换系列最经典十句话,欧美 国产 综合 欧美 视频

ORACLE HTTP & HTTPS 訪問

推薦閱讀更多精彩內容

三个男躁一个女,国精产品一区一手机的秘密,麦子交换系列最经典十句话,欧美国产综合欧美视频