Не работает WideCharToString - вместо букв квадратики

[calypso]

Ну собственно,в миллионный раз на эти грабли наступаем и опять получаем по лбу:

 AdapterName: array [0..MAX_ADAPTER_NAME_LENGTH + 3] of Char;
    Description: array [0..MAX_ADAPTER_DESCRIPTION_LENGTH + 3] of Char;

Embarcadero XE2 юникодная,поэтому Char=WideChar что логично.

TmpPointer: PIP_ADAPTER_INFO;
showmessage(WideCharToString(TmpPointer^.AdapterName)+' '+AnsiString(TmpPointer^.Description));

Выдает квадратики. А если Char заменить на AnsiChar, а WideCharToString на String, то работает.
Но почему не хочет с WideChar конвертить? На другой программе этот метод отлично работал. Даже так не помогает:
WideCharToString(PWideChar(WideChar ToString(....)))

[Stilet]

Открой для себя класс TEncoding, он специально предназначен для конвертации.

[calypso]

Там проблема похоже в другом.А именно,структура PIP_ADAPTER_INFO и её параметры AdapterName и Description являются строго ANSI строками. Так написано в MSDN. Маразм Microsoft в том,что у них часть функций работает только с PChar,часть только с ANSI, а апишные функции все данные берут в Юникоде.
И приходится 10% посвящать самому алгоритму проги,а 90% сидеть переводить строки из одного типа в другой

[Avazart]

Так чем не устраивает перевод c помощью VCL ?

[Vapaamies]

Сообщение от calypso

Но почему не хочет с WideChar конвертить? На другой программе этот метод отлично работал.

Внимательно подумай, что ты написал в своем коде. Только что сам говоришь, что Char = WideChar и что данные поступают в виде AnsiChar, но в коде их упорно пытаешься выдать за WideChar. Чуда не бывает, оттого и квадратики.

Должно сработать так:

begin
  ShowMessage(AnsiString(@TmpPointer.AdapterName)+ ' ' + AnsiString(@TmpPointer.Description));
end;

Можешь посмотреть в ассемблерном подстрочнике, что получится. Поскольку в Delphi все строковые типы имеют дополнительную поддержку со стороны компилятора, при передаче AnsiString в UnicodeString будет вызвана библиотечная процедура перевода символов в нужное представление.

[calypso]

Должно сработать так:
Код:
begin
ShowMessage(AnsiString(@TmpPointer. AdapterName)+ ' ' + AnsiString(@TmpPointer.Description) );
end;

Не работает,выводится пустота. Скорее всего,в эти переменные попросту не записывается информация когда они юникодные. Раз в MSDN указано ANSI,это наверно не просто так. Вопрос конечно интересный,хотелось бы докопаться до истины.

[Larboss]

Скорее всего,в эти переменные попросту не записывается информация когда они юникодные.

Что-то из области фантастического программирования, кажется...

[calypso]

Что-то из области фантастического программирования, кажется...

Как знать, Борландовский компилятор иногда и не такие косяки пропускает.Это на Visual Studio всё строго по MSDN,если хоть шаг в сторону - файл не скомпилируется