Здравствуйте!
Подскажите, пробовал ли кто-нибудь использовать функцию MultiByteToWideChar WinAPI из 1С 8? Если да - с какими типами параметров регистрировали?
Поясняю:
Мне нужно считать данные из таблицы Paradox. Там используется кодировка ANSI. Пытался перекодировать в OEM вот так:

ApiFunctions = Новый COMОбъект ("DynamicWrapper");
ApiFunctions.Register("kernel32.DLL", "MultiByteToWideChar", "i=udpupu" , "f=s", "r=c");
wch = " ";
ch = СимволИзParadox; //символ, считанный из поля таблицы БД Paradox
ApiFunctions.MultiByteToWideChar(КодировкаТекста.ANSI,КодировкаТекста.OEM , ch, 1, wch, 1);

В результате 1С выдала сообщение о неизвестной ошибке.

Или подскажите другое решение, пожалуйста.

Спасибо

можно таблицу сделать - коды символов и сами символы

Я уже думал об этом. Но хочется сделать все по-нормальному :-)

Как бы MultiByteToWideChar()
это для перевода из "многобайт" в unicode.
Какие OEM?

ApiFunctions.MultiByteToWideChar(КодировкаТекста.ANSI,КодировкаТекста.OEM

Нормально так.
В API функцию (пусть и в обертке) отправили гулять COM объекты.

Аутор, че надо то?
Как paradox читаешь то?
Код покажи.

Перем ch, wch;


СтрокаСоединения = "Provider=Microsoft.Jet.OLEDB.4.0;
|Jet OLEDB:Database Password="""";
|Data Source=" + "\\192.168.0.50\Orion762\base"  + ";
|Extended Properties=Paradox 3.x;";

Connect=Новый ComОбъект("ADODB.Connection");
Connect.ConnectionString=СтрокаСоединения;    
Connect.Open();                                



ApiFunctions = Новый COMОбъект ("DynamicWrapper");
ApiFunctions.Register("kernel32.DLL", "MultiByteToWideChar", "i=udpupu" , "f=s", "r=c");

wch = " ";

Попытка
   rs = Connect.Execute("SELECT Plist.*, pLogData.* FROM pList right join    plogdata on plist.id = pLogData.HozOrgan where plogdata.timeval >= #2011/07/01# and  plogdata.timeval < #2011/07/2# and plist.name is not null");
   rs.MoveFirst();
   Пока не rs.EOF()
       Цикл
       ch = Лев((rs.Fields("name").Value),1);
       ApiFunctions.MultiByteToWideChar(КодировкаТекста.OEM,КодировкаТекста.ANSI , ch, 1, wch, 1);
       rs.MoveNext();
   КонецЦикла;
   rs.Close();
   Connect.Close();
Исключение
   // Не удалось выполнить операции с внешней компонентой
   Сообщить(ОписаниеОшибки(), СтатусСообщения.Важное);;
КонецПопытки;

Почитай тама
Еще один метод преобразования в UTF-8 (с побочным явлением)

У мя 1С выдала
{Форма.Форма.Форма(15)}: Ошибка при вызове метода контекста (Execute): Произошла исключительная ситуация (Microsoft JET Database Engine): Внешняя таблица не имеет предполагаемый формат.
на строчке
rs = Connect.Execute

Хотя Дельфя нормально ADO запрос отрабатывает через JET.

Табличка - Paradox 3.5 (где вы такое старье откопали).

(0), (6) А что за странный второй параметр: КодировкаТекста.OEM ?
Там должно битовое поле флагов идти. Обычно используют MB_PRECOMPOSED

#define MB_PRECOMPOSED            0x00000001

Да для первого параметра стоит использовать CP_OEMCP
#define CP_OEMCP 1
Чему там равно КодировкаТекста.OEM еще ХЗ.

Четвертым параметром для null-terminated строк обычно передают -1. А для приемного буфера стоит выделить места побольше, т.к. будет еще попытка записать конечный ноль, а он тоже места просит. Т.е.
wch = "    ";

+(9)
Для первого параметра: CP_ACP, конечно
#define CP_ACP                    0

(8) В BDE надо поменять язык драйвера на "Pdox ANSI Cyrillic"

(9) где вы видели #define в 1с 8?

(12) Нигде, так же как и функцию MultiByteToWideChar
это способ показать, чему должен быть равен параметр.

(12) прошу прощения, не понял сначала

(13) и мне интересно, какое значение во второй параметр пихать.

(0) gherkin >> MultiByteToWideChar

осторожно с этой функцией, ей надо подавать готовый буфер, иначе отгребешь.

(8) строку подключения заменить на

СтрокаСоединения = "Provider=Microsoft.Jet.OLEDB.4.0;
|Jet OLEDB:Database Password="""";
|Data Source=" + "\\192.168.0.50\Orion762\base"  + ";
|Extended Properties=Paradox 7.x;";

но сразу говорю - ничего не изменится )

(11) Тех же щей.

(7) попробовал так:

Перем ch, wch;


СтрокаСоединения = "Provider=Microsoft.Jet.OLEDB.4.0;
|Jet OLEDB:Database Password="""";
|Data Source=" + "\\192.168.0.50\Orion762\base"  + ";
|Extended Properties=Paradox 7.x;";

Connect=Новый ComОбъект("ADODB.Connection");
Connect.ConnectionString=СтрокаСоединения;    
Connect.Open();                                



//ApiFunctions = Новый COMОбъект ("DynamicWrapper");
//ApiFunctions.Register("kernel32.DLL", "MultiByteToWideChar", "i=udpupu" , "f=s", "r=c");
ApiFunctions = Новый COMОбъект ("OlePrn.OleCvt");
wch = " ";                                    

Попытка
   rs = Connect.Execute("SELECT Plist.*, pLogData.* FROM pList right join    plogdata on plist.id = pLogData.HozOrgan where plogdata.timeval >= #2011/07/01# and  plogdata.timeval < #2011/07/2# and plist.name is not null");
   rs.MoveFirst();
   Пока не rs.EOF()
       Цикл
       ch = Лев((rs.Fields("name").Value),1);
       //ApiFunctions.MultiByteToWideChar(КодировкаТекста.OEM,КодировкаТекста.ANSI , ch, 1, wch, 1);
       wch = ApiFunctions.ToUnicode(rs.Fields("name").Value,1251);
      Сообщить(wch);
       rs.MoveNext();
   КонецЦикла;
   rs.Close();
   Connect.Close();
Исключение
   // Не удалось выполнить операции с внешней компонентой
   Сообщить(ОписаниеОшибки(), СтатусСообщения.Важное);;
КонецПопытки;


выдает кракозябры.

может, надо не 1251, а что-то другое подставить. Если да - подскажите, что?

(18) у меня такая ошибка была именно из-за языка. Больше ничего в голову не приходит. Код рабочий, проверено

Так.
Все работает.
Таблица Paradox 7, язык драйвера pdox ansi cyrilic
Колонка Name, значение в ней - "Тест"

1С-ка выводит "Тест" при
Сообщить(rs.Fields("name").Value);

ОК?

1С сама в utf8 перевела.

ппц

снова попробовал, уже без перекодировки. У меня все по-прежнему - кракозябры. Может, ODBC не тот? У меня не стоит MS Office.

(21) 22 пост был к 21

(24) 23 к 21

Пришли обработку и db-шник (хоть бы и с 1 записью).

Кодировку нужно указывать в строке соединения

попробуй так:
Connect.ConnectionString=СтрокаСоединения;    
Connect.LocaleIdentifier = 1251;//может быть 1049
Connect.Open();

и еще поколдуй в строке подключения с параметром Character Encoding
СтрокаСоединения = "Provider=Microsoft.Jet.OLEDB.4.0;
|Jet OLEDB:Database Password="""";
|Data Source=" + "\\192.168.0.50\Orion762\base"  + ";
|Character Encoding=UTF-8;";//может быть |Character Encoding=""UTF-8"";";
|Extended Properties=Paradox 7.x;";

(28) такая строка подключения не работает (оба варианта)

(26) выслал

|Jet OLEDB:Character Encoding=UTF-8;";//может быть |Jet OLEDB:Character Encoding=""UTF-8"";";

(31) все равно не работает. И просто через драйвер тоже