Re: E-Mail ����������

Wed, 13 Dec 2006 04:21:14 -0800 

> ÷ÒÏÄÅ, ÌÅÞÉÔÓÑ
>  with IdMsgSend do
>  begin
>    Body.Clear;
>    ContentType := 'text/plain; charset=windows-1251; format=flowed';
>    ContentTransferEncoding := '8bit';
>  end;
>
> éÌÉ ÎÅ ÔÏ ÉÍÅÌÏÓØ × ×ÉÄÕ?

ÞÅÓÔÎÏ ÓËÁÖÕ, ÄÅÌÁÌ ÜÔÉ ÐÒÁ×ËÉ ÄÏÓÔÁÔÏÞÎÏ ÄÁ×ÎÏ, Á ÐÏÔÏÍÕ ÐÒÏÓÔÏ ÎÅ ÐÏÍÎÀ 
ÄÅÔÁÌÅÊ, ÎÏ × Ó×ÏÅ ×ÒÅÍÑ ÓÄÅÌÁÌ ÄÌÑ ÓÅÂÑ ÐÁÍÑÔËÕ:

{
äÌÑ ÔÏÇÏ ÞÔÏ ÂÙ ÐÒÏÇÒÁÍÍÁ ÐÏÚ×ÏÌÑÌÁ ÏÔÐÒÁ×ÌÑÔØ ÐÉÓØÍÁ × ËÏÄÉÒÏ×ËÅ 
windows-1251
ÂÙÌÉ ×ÎÅÓÅÎÙ ÓÌÅÄÕÀÝÉÅ ÉÚÍÅÎÅÎÉÑ:

×  ÍÏÄÕÌÅ 
IdGlobal -------------------------------------------------------------

× ÔÉÐ TIdCharSet ÂÙÌ ÄÏÂÁ×ÌÅÎ ÎÏ×ÙÊ ÜÌÅÍÅÎÔ csWIN1251
++++++
TIdCharSet = (csGB2312, csBig5, csIso2022jp, csEucKR, csIso88591, 
csWIN1251);
++++++

× ÆÕÎËÃÉÉ GetSystemLocale (function GetSystemLocale: TIdCharSet) × ÏÓÎÏ×ÎÏÊ 
CASE
ÂÙÌÁ ÄÏÂÁ×ÌÅÎÁ ÓÔÒÏËÁ:
++++++
LANG_RUSSIAN: Result := csWIN1251;
++++++


× ÍÏÄÕÌÅ 
IdCoderHeader ---------------------------------------------------------

× ÐÒÏÃÅÄÕÒÅ InitializeISO (procedure InitializeISO(var TransferHeader: 
TTransfer; var HeaderEncoding: char; var CharSet: string) )
× ÏÓÎÏ×ÎÏÊ CASE ÂÙÌÁ ÄÏÂÁ×ÌÅÎÁ ÓÔÒÏËÁ
++++++
csWIN1251: CharSet := 'windows-1251';
++++++

ÔÅÐÅÒØ ÐÒÏÇÒÁÍÍÁ ÓÁÍÁ ÏÐÒÅÄÅÌÑÅÔ, ÅÓÌÉ × ÓÉÓÔÅÍÅ ÕÓÔÁÎÏ×ÌÅÎÁ ÌÏËÁÌØ WIN1251
ÔÏ ÐÉÓØÍÏ ËÏÒÒÅËÔÎÏ ÆÏÒÍÉÒÕÅÔÓÑ É ÏÔÐÒÁ×ÌÑÅÔÓÑ Ó ÞÁÒÓÅÔÏÍ windows-1251
}

Ответить