InitializeIso ??

[bulutsuzluk_35]

arkadaşlar merhaba

programdan mail gönderern bir programım var ve şöyle bir sorun var

body kısmının chatset'ini iso-8859-9 yapıyorum ama subject'i yapamıyorum.Forumda idsmtp componentinin isoinitialize event'ının altına

VCharSet:='iso-8859-9' yazın deniyor yazın deniliyor ama ben runtime anında oluşturuyorum componenti.isoinitialize prosedürü'nü kullanıyorum ancak oda işe yaramıyor

Kod: Tümünü seç

procedure TSendMail.Execute;
var
  FIdMessage: TIdMessage;
  Wparam:Word;
  TransferHeader:TTransfer;
  HeaderTransfer:Char;
  CharSet:String;
begin
  FIdMessage:=TIdMessage.Create(nil);
  if FHareket='Gönder' then
  begin
    try
      try
        TransferHeader:=bit8;
        HeaderTransfer:='B';
        CharSet:='iso-8859-9';
        FIdMessage.CharSet:=CharSet;
        FIdMessage.Encoding:=meMIME;
        FIdMessage.ContentType:='text/plain';
        FIdMessage.From.Address:=FFromAddress;
        FIdMessage.Subject:=FSubject;
        FIdMessage.Body.Assign(FBodyMessage);
        FIdMessage.ReplyTo.EMailAddresses:=FFromAddress;
        FIdMessage.Recipients.EMailAddresses:=FRecipientsList;
        InitializeISO(TransferHeader,HeaderTransfer,CharSet);
        FIdSMTP.Send(FIdMessage);

InitializeISO(TransferHeader,HeaderTransfer,CharSet);
yazdığım kod bu.Ama olmuyor
YArdımlarınızı bekliyorum

İyi Çalışmalar....

[conari]

Indy10 problem yok.
Farklı olarak codda şunu kullanıyorum.
bileşenin özelliklerinde de var.

Kod: Tümünü seç

ContentTransferEncoding:= 'iso-8859-9';