我正在生成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