Мастера DELPHI, Delphi programming community Рейтинг@Mail.ru Титульная страница Поиск, карта сайта Написать письмо 
| Новости |
Новости сайта
Поиск |
Поиск по лучшим сайтам о Delphi
FAQ |
Огромная база часто задаваемых вопросов и, конечно же, ответы к ним ;)
Статьи |
Подборка статей на самые разные темы. Все о DELPHI
Книги |
Новинки книжного рынка
Новости VCL
Обзор свежих компонент со всего мира, по-русски!
|
| Форумы
Здесь вы можете задать свой вопрос и наверняка получите ответ
| ЧАТ |
Место для общения :)
Орешник |
Коллекция курьезных вопросов из форумов
KOL и MCK |
KOL и MCK - Компактные программы на Delphi
Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / rsdn.org

 
Чтобы не потерять эту дискуссию, сделайте закладку « предыдущая ветвь | форум | следующая ветвь »

Перекодировка текста2


Pavia ©   (20.03.18 19:33

Отвечаю что проверенной является iconv - жаль что Си++. Другие имеют застарелые косяки которые не обновляются годами.


Pavia ©   (20.03.18 19:33[1]

Удалено модератором


Kerk ©   (20.03.18 20:04[2]

http://docwiki.embarcadero.com/CodeExamples/Tokyo/en/TEncoding_(Delphi)

Это не подойдет?


ado ©   (20.03.18 20:20[3]

через COM. пример на vbs

function ADOStrConv(ByVal AText, ByVal ASourceCharset, ByVal ADestCharset)
dim stream : set stream = CreateObject("ADODB.Stream")
stream.Type = 2
stream.Mode = 3
stream.Open
stream.Charset = ASourceCharset
stream.WriteText AText
stream.Position = 0
stream.Charset = ADestCharset
ADOStrConv = stream.ReadText
end function


aka ©   (23.03.18 11:39[4]


> http://docwiki.embarcadero.com/CodeExamples/Tokyo/en/TEncoding_(Delphi)
>
> Это не подойдет?

попробую


kashey ©   (27.03.18 13:57[5]


> http://docwiki.embarcadero.com/CodeExamples/Tokyo/en/TEncoding_(Delphi)
>
> Это не подойдет?


Я сейчас тоже пока пишу на Delphi7. И одного не никак не могу понять - это как может старая версия Delphi, где строки [i] = 1 байт гранит строки в Unicode???


aka ©   (27.03.18 14:55[6]

procedure Find(str: String);
procedure SetSelection(SelFrom, SelTo: TPoint);
Danielle Derek, Kinzie Kenner, Shannon Kelly, Carly Kaleb, Gianna


> Я сейчас тоже пока пишу на Delphi7. И одного не никак не
> могу понять - это как может старая версия Delphi, где строки
> [i] = 1 байт гранит строки в Unicode???

Все преобразуется к win-1251 и хранится в ANSI, точнее к той кодовой странице, которая текущая в ОС, в нашем случае к win-1251. Так что если в Unicode файле будут не русские символы, мы увидим ???????????


kashey ©   (27.03.18 15:22[7]

Теперь ясно.

А как в новый версиях будет вести себя Canvas.TextOut, или все равно нужно все будет переписывать на Canvas.TextOutW ???


kilkennycat ©   (28.03.18 20:15[8]


> А как в новый версиях будет вести себя Canvas.TextOut

а посмотреть, что сейчас он вызывает ????


Саня ©   (02.04.18 11:57[9]

А какой смысл его перекодировать в новый версиях Delphi если все в Unicode? Ведь все и всегда должно отображаться корректно, ну перекодировать можно разве что для того, чтобы просто сохранить файл в другой кодировке?
Мастера поправьте если не прав. Данный вопрос тоже заинтересовал.


kilkennycat ©   (02.04.18 20:55[10]


> Саня ©   (02.04.18 11:57) [9]
> А какой смысл его перекодировать в новый версиях Delphi
> если все в Unicode?

Например, есть версия 1.0 программы, написанная без юникода. Потом выпустили версию 2.0, с юникодом. Если смысла в перекодировании никакого, то данные версии 1.0 версия 2.0 использовать не сможет. А еще могут два пользователя быть, у одного 1.0, у другого 2.0, и второй отдает данные первому, и привет.


aka ©   (03.04.18 09:40[11]


> http://docwiki.embarcadero.com/CodeExamples/Tokyo/en/TEncoding_(Delphi)
>
> Это не подойдет?

Не определяет UTF-8 без BOM, а так нормально


версия для печати

Написать ответ

Ваше имя (регистрация  E-mail 







Разрешается использование тегов форматирования текста:
<b>жирный</b> <i>наклонный</i> <u>подчеркнутый</u>,
а для выделения текста программ, используйте <code> ... </code>
и не забывайте закрывать теги! </b></i></u></code> :)


Наверх

  Рейтинг@Mail.ru     Титульная страница Поиск, карта сайта Написать письмо