VPF::что значит ошибка ERROR_NO_UNICODE_TRANSLATION

Dreamka

Дата 1.10.2007, 07:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 20.9.2007

Репутация: -1
Всего: нет

функция NewNetFileEnum возвращает ошибку 1113 (No mapping for the Unicode character exists in the target multibyte code page.),как ее побороть?

Alexeis

Дата 1.10.2007, 09:53 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 2
Всего: 459

Dreamka, что это вообще за функция такая? Нет ни где ее описания, ни в хелпе, она не объявлена ни в одном из стандартных делфийских модулей. Даже всезнающий гугл про нее ничего не знает.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

volvo877

Дата 1.10.2007, 09:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 1
Всего: 116

NetFileEnum скорее всего...

Dreamka

Дата 1.10.2007, 10:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 20.9.2007

Репутация: -1
Всего: нет

да, это NetFileEnum,извиняюсь smile

,
спсибо за внимание,но я уже нашел решение проблемы.просто необходимо было конветировать параметры сервер,путь к папке просмотра файлов и имя пользователя в юникод.в инете я нашел очень хорошую ф-цию рабочую для этой цели..каму интересно

Код



{ **** UBPFD *********** by delphibase.endimus.com ****
>> Конвертация String в PWideChar

Зависимости: ???
Автор:       Gua, [email protected], ICQ:141585495, Simferopol
Copyright:   Andre .v.d. Merwe
Дата:        18 июля 2002 г.
***************************************************** }

function StringToPWide(sStr: string; var iNewSize: integer): PWideChar;
var
  pw: PWideChar;
  iSize: integer;
begin
  iSize := Length(sStr) + 1;
  iNewSize := iSize * 2;

  pw := AllocMem(iNewSize);

  MultiByteToWideChar(CP_ACP, 0, PChar(sStr), iSize, pw, iNewSize);

  Result := pw;
end;
Пример использования: 

procedure TForm1.Button1Click(Sender: TObject);
var
  iSize: integer;
begin
  ChangeWallpaper(StringToPWide('C:\1.jpg', iSize));
end;

Добавлено через 4 минуты и 25 секунд
так же есть очень хорошая статья по пробелеме юникода
http://www.delphimaster.ru/books/978527200384/fragment.html

Это сообщение отредактировал(а) Dreamka - 1.10.2007, 10:29

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »