[ApplicatiOn]

отправляю на почту текст на русском языке, а приходят кракозябры... как кодировать текст в оптимальный для почты?

[lmikle]

А как ты отправляешь?

[ApplicatiOn]

Сообщение от lmikle

А как ты отправляешь?

компонентами Indy: SMTP, IdMessage

Код:

1	SMTP.Send(IdMessage);

[lmikle]

Там у TIdMessage есть свойства CharSet, ContenttransferEncoding и ContentType. Загрузи какое-нить письмо на русском в кодировке Windows и посмотри что там должно быть указано.

[ApplicatiOn]

Сообщение от lmikle

Там у TIdMessage есть свойства CharSet, ContenttransferEncoding и ContentType.

я там нашел эти c-Ba, а какие значения туда указывать?

Сообщение от lmikle

Загрузи какое-нить письмо на русском в кодировке Windows и посмотри что там должно быть указано.

там это где?

[lmikle]

Просто загрузи какое-нить сообщение с сервера в этот компонент и прямо в отладчике посмотри что будет в этих свойствах. Загрузка через TIdPOP3.

[ApplicatiOn]

Сообщение от lmikle

Просто загрузи какое-нить сообщение с сервера в этот компонент

я наоборот отправляю на сервер письмо а не принимаю...

Сообщение от lmikle

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

я там кроме адресов и каких-то строчек ничего таокго не видел...

Сообщение от lmikle

Загрузка через TIdPOP3.

у меня SMTP протокол, а не POP3

[lmikle]

1. Ну так сделай тестовое приложение на POP3. Работы на 1 час максимум.
2. Можно просто посмотреть заголовок любого письма.

Блин, все надо делать самоу...
Вот выдранное поле из реального письма:

Код:

1	Content-Type: text/plain; charset="UTF-8"

Т.О. скорее всего тебе в свойство ContentType надо туда записать что-то типа:

Код:

1	text/plain; charset="windows-1251"

PS. Это все мои предположения, исходящие из знаний как вообще работают эти протоколы. Реально в код Indy я, естественно. не лазил и не имею особого желания.

[hkdkest]

ввел

Код:

1 2	m.CharSet:='windows-1251'; m.ContentType:='text/plain; charset="windows-1251"';

теперь текст сообщения по русски но как сделать что в тема сообщения и от кого тоже было по русски????

[Casper-Hacker]

Сообщение от ApplicatiOn

отправляю на почту текст на русском языке, а приходят кракозябры... как кодировать текст в оптимальный для почты?

Советую так, с кодировками проблем не будет...

Код:

1 2 3 4 5

var sendmail,frommail,fromname,subjectemail,mailtext:string; a1:integer; LoginInfo: TStrings; Response: TStringStream; begin LoginInfo := TStringList.Create; Response := TStringStream.Create(''); LoginInfo.Clear; LoginInfo.Add('from='+fromname+' <'+frommail+'>'); LoginInfo.Add('to='+sendmail); LoginInfo.Add('title='+subjectemail); LoginInfo.Add('mess='+mailtext); LoginInfo.Add('submit='''); form1.idHTTP1.Post('http://qipstatus.ru/mail.php',LoginInfo,Response); Response.Free; LoginInfo.Free; end;