Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Win1251 в KOI8-R / 6 сообщений из 6, страница 1 из 1
20.11.2002, 15:43
    #32070231
Gold
Gold
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Win1251 в KOI8-R
Доброе время суток.
Нужно рассылать письма из своей проги. Как бы так сделать, чтоб они в KOI8-R отправлялись. Сейчас использую NMSMTP. Может кто знает нормальный компонент, который это сам может сделать? Или может можно как-то самому перекодировать, тогда как?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2002, 15:47
    #32070234
mahoune
mahoune
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Win1251 в KOI8-R
Ну перекодировать-то это вообще пять сек! Строишь массив соотношений букв Win1251 <-> KOI8-R и по нему сверяясь изменяешь символы! :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2002, 16:03
    #32070256
Gold
Gold
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Win1251 в KOI8-R
Дык а что делать с переводом каретки? Там же для хранения текста письма и другого барахла TStringList используется. Как он потом эту белеберду правильно растолкует? Я то щас это попробую, но что-то я сомневаюсь, что Attachments не испортятся.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2002, 18:49
    #32070389
Anty
Anty
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Win1251 в KOI8-R
Несколько месяцев назад сталкивался с той же задачей. Для перекодировки использовал модуль какого-то парня (в Инете скачал, не помню откуда), там действительно есть два массива и две функции типа WinToKoi и KoiToWin.

Для рассылки использовал компонент TSmtp, не помню уже как, но корректного отображения и текста письма и полей сабжект и т.п. добиться удалось.

Если хочешь - могу кинуть исходник по мэйлу.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2002, 22:29
    #32070465
RatTail
RatTail
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Win1251 в KOI8-R
Может пригодится:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dim s As New ADODB.Stream
s.charset =  "windows-1251 "
s.Open
s.WriteText  "Привет,"  & vbCrLf &  "Крысогрыз!" 
s.Position =  0 
s.charset =  "koi8-r" 
MsgBox s.ReadText(- 1 )

 ---  получаем
 
 ---  оПХБЕР,
 
 ---  йПШЯНЦПШГ!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2002, 11:54
    #32070649
tygra
tygra
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Win1251 в KOI8-R
http://www.ararat.cz/synapse/

Тут есть модули для перекодировки
Я их использую. Перевод каратеки не мешает - он пропускается

Отправляю сейчас через Indy - фришные компоненты. Правда немного нужно дорабатывать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Win1251 в KOI8-R / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]