Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Использование mlang.dll 
:(
    Опции темы
Angel_19
Дата 7.4.2005, 08:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Нашел на форуме пример использования функции ConvertINetString, может у кого есть пример как использовать другие функции. Интересуют функции ConvertINetMultiByteToUnicode и СonvertINetUnicodeToMultiByte.
PM ICQ   Вверх
_hunter
Дата 7.4.2005, 15:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 9
Всего: 98
не совсем понятно что нужно... в мсдн все понятно написанно да и гугл поможет...


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Angel_19
Дата 7.4.2005, 15:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Гугл не всегда помогает... А в МДСН не каждый разберется... Потому и спрашиваю.
PM ICQ   Вверх
Girder
Дата 7.4.2005, 19:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Лентяй 2
***


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

Репутация: 25
Всего: 155
Вот тебе пример для ConvertINetMultiByteToUnicode:
Код
procedure TForm1.Button1Click(Sender: TObject);
type TConvertFunction = function(Mode:PDWORD;
                                 SrcEncoding:DWORD; SrcStr:PChar; var MultiCharCount:integer;
                                 DstStr:PWideChar; var WideCharCount:integer):HRESULT; stdcall;
var MLangHandle:DWord;
    MultiByteToUnicode:TConvertFunction;
    DstStr:WideString;
    s:string;
    i,j:integer;   
begin
 MLangHandle:=LoadLibrary('mlang.dll');
 if MLangHandle<>0 then
  begin
   MultiByteToUnicode:=GetProcAddress(MLangHandle,'ConvertINetMultiByteToUnicode');
   if Assigned(MultiByteToUnicode) then
    begin
     s:='Какой-то текст. Monitor';
     i:=Length(s);
     j:=i+2;
     SetLength(DstStr,j);
     MultiByteToUnicode(nil,1251,PChar(s),i,PWideChar(DstStr),j);
     DstStr:=Copy(DstStr,1,j); //Результат
     Caption:=DstStr;
     SetLength(DstStr,0);
    end;
   FreeLibrary(MLangHandle);
  end;
end;

PS: Для второй функции сам можеш набить по аналогии... smile а мне лень smile

Это сообщение отредактировал(а) Girder - 7.4.2005, 19:53


--------------------
Как слышим, так и пишим.
Истина где-то там...
PM   Вверх
Angel_19
Дата 8.4.2005, 09:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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

Girder - спасибо.

А вот можно ли с помощью mlang.dll определить кодировку текста?
PM ICQ   Вверх
Girder
Дата 8.4.2005, 10:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Лентяй 2
***


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

Репутация: 25
Всего: 155
нет smile

PS: А вообще... почитай: http://www.mozilla.org/projects/intl/Unive...tDetection.html

Это сообщение отредактировал(а) Girder - 8.4.2005, 10:11


--------------------
Как слышим, так и пишим.
Истина где-то там...
PM   Вверх
Angel_19
Дата 8.4.2005, 10:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Поделитесь опытом, как можно определить кодировку...
PM ICQ   Вверх
_hunter
Дата 8.4.2005, 15:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 9
Всего: 98
статистически smile
т.е. поиском в словаре слова


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Angel_19
Дата 8.4.2005, 15:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
А поподробнее о "Статистическом методе" можно ...?
PM ICQ   Вверх
_hunter
Дата 8.4.2005, 15:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 9
Всего: 98
http://www.google.com.ua/search?as_q=%D0%B...&as_sitesearch=
Добавлено @ 16:03
и в догонку:
неблагодарное это занятие... (потому никто на авто-определение не заморачивается)


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1526 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.