create or replace type str_arr as table of varchar2(255)

  function Test_arr(a_in in str_arr,s_in in varchar2) return PLS_INTEGER as
  language C
	library my_lib
	name "Test_arr"
  with context parameters 
  (CONTEXT,
     a_in  OCIColl, a_in  INDICATOR short,
     s_in  string , s_in  INDICATOR short, return int);

function test return number is 
ret number;
ar1_in str_arr:=str_arr();
str_in  varchar2(255):='ФF0';
begin
ar1_in.extend(3);
ar1_in(1):='ФF1';
ar1_in(2):='ФF2';
ar1_in(3):='ФF3';
ret:=Test_arr(ar1_in,str_in);
return ret;
end test;

extern "C" __declspec(dllexport) int Test_arr
(
 OCIExtProcContext * ctx,

 OCIColl *       a_in,
 short         a_in_i,

 OCIString* s_in 
 short*    s_in_i
 )
{
  
  /*работаем со скалярным параметром s_in*/

  CString s=(wchar_t*)s_in;
  CA2W sw((LPCSTR)s.GetBuffer(), CP_UTF8); // sw = "ФF0", всё нормально
  
  /*работаем с параметром-массивом a_in*/
  /*напомню, массив состоит из "ФF1" "ФF2" "ФF3", индексы 0,1,2 */

  OCI_func OF(ctx); // класс для рутинных операций инициализации контекста
  OCIString** ocistring;
  boolean exists;
  text* txt;

  //получаем указатель на 2й элемент массива
  OCICollGetElem(OF.m_myCtx->envhp,OF.m_myCtx->errhp,a_in,1/*номер элемента*/,&exists,(dvoid**)&ocistring,0); 

  txt=OCIStringPtr(OF.m_myCtx->envhp,*ocistring); // txt="?F2", "?" перевёрнут, с кодом 191
  
  CA2W sa((LPCSTR)txt, CP_UTF8); // sa="<>F0", ромбик "<>" с кодом 65533 - нераспознанный символ
  
  return 0;
}

USES_CONVERSION;
setlocale(LC_ALL,"Russian");

extern "C" __declspec(dllexport) int Test_arr
(
...
// OCIColl *       a_in,
 OCIArray *    a_in,
 short         a_in_i,
...
 )
{
...

status = OCIIterCreate(m_myCtx->envhp, m_myCtx->errhp, a_in, &iterator);
status = OCIIterNext(m_myCtx->envhp, m_myCtx->errhp, iterator, &elem,(dvoid **) &elemind, &eoc);
my_ocistring_elem = *((OCIString **)elem);
txt = OCIStringPtr(m_myCtx->envhp, my_ocistring_elem);

OCICollAssign(m_myCtx->envhp,m_myCtx->errhp,a_in,a_out);