从utf8到文件WE8ISO8859P1的Oracle Sava Clob

时间:2019-08-22 23:16:28

标签: oracle

我正在生成Clob记忆。我想将其以WE8ISO8859P1(8位)加密方式保存在硬盘上,但是它不起作用...;)我尝试了一切

create or replace PROCEDURE A1 AS 
  c clob;
  b blob;
  lDestOffset integer := 1;
  lSrcOffset integer := 1;
  lWarning integer := 0;
  lLangContext INTEGER := DBMS_LOB.DEFAULT_LANG_CTX;
  lAmount integer;
BEGIN
  DBMS_LOB.CREATETEMPORARY(c, TRUE, DBMS_LOB.SESSION); 
  for x in 1..1000
  loop
    dbms_lob.writeappend(c, 10, 'ĄćĄćĄćĄćĄć');
  end loop;

  DBMS_LOB.CREATETEMPORARY(b, TRUE, DBMS_LOB.SESSION);
  DBMS_LOB.CONVERTTOBLOB(b, c, length(c), lDestOffset, lSrcOffset, nls_charset_id('WE8ISO8859P1'), lLangContext, lWarning);

  dbms_output.put_line('Source CLOB UTF8:');
  dbms_output.put_line(dbms_lob.substr(c, 100, 1));
  dbms_output.put_line('Dest BLOB WE8ISO8859P1:');
  dbms_output.put_line(dbms_lob.substr(b, 100, 1));

  /*l_conn := ftp.login('X.X.X.X', 21, 'etykiety', 'ASDFASDFASDFASDF');
  FTP.BINARY(p_conn => l_conn);    

  FTP.PUT_REMOTE_BINARY_DATA(l_conn, 'TEST.TXT', b);

  ftp.logout(l_conn);*/
END A1;

Source CLOB UTF8:
ĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄćĄć
Dest BLOB WE8ISO8859P1:
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF

0 个答案:

没有答案