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

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

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

Код: 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
20.11.2002, 22:29
| Ответить | Цитировать | Написать  
Win1251 в KOI8-R
    #32070649
Фотография tygra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tygra
Участник
http://www.ararat.cz/synapse/

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

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


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