Indyde birden fazla attach dosya

[naile]

indy componentlerini kullanarak mail gönderiorum, attach için kullandığım kod:

Kod: Tümünü seç

    IdAttach := TIdAttachment.Create(IdMessage1.MessageParts,OpenDialog1.FileName);

ama burda birtane dosya yazabiliyorum, birden fazla dosya eklemek istiyorum aynı maile, her dosya için yeniden create etmem mi gerekiyor? Helpe baktım bulamadım bişey, indynin demosu da yok bende, kurulmamaış delphi ile birlikte. Daha önce kullanan oldu mu böyle bişey?

[vedatkaba]

Kod: Tümünü seç

private
    { Private declarations }
      procedure ResetAttachmentListView;

Kod: Tümünü seç

procedure TfrmMessageEditor.btnAttachmentClick(Sender: TObject);
begin
   if OpenDialog1.Execute then
      begin
         TIdAttachment.Create(IdMsgSend.MessageParts, OpenDialog1.FileName);
         ResetAttachmentListView;
      end;
end;

procedure TfrmMessageEditor.ResetAttachmentListView;
var li: TListItem;
   idx: Integer;
begin
   lvFiles.Items.Clear;
   for idx := 0 to Pred(IdMsgSend.MessageParts.Count) do
      begin
         li := lvFiles.Items.Add;
         if IdMsgSend.MessageParts.Items[idx] is TIdAttachment then
            begin
               li.ImageIndex := 0;
               li.Caption := TIdAttachment(IdMsgSend.MessageParts.Items[idx]).Filename;
               li.SubItems.Add(TIdAttachment(IdMsgSend.MessageParts.Items[idx]).ContentType);
            end
         else
            begin
               li.ImageIndex := 1;
               li.Caption := IdMsgSend.MessageParts.Items[idx].ContentType;
            end;
      end;
end;

eğer işinize yararsa bende böyle bir kod vardı arşivde belki yararlı olur..

kolay gelsin

[naile]

Teşekkürler ama bu tam olarak istediğim şey değil. tamaracka.com da biraz araştırma yaptım, orda da benim dediğim gibi yapmış biri, bende 3 dosya sınırı koyarak şu şekilde yaptım:

Kod: Tümünü seç

var
IdAttach1,IdAttach2: TIdAttachment;
try
...
    IdAttach1 := TIdAttachment.Create(IdMessage1.MessageParts,edit2.Text);
    IdAttach2 := TIdAttachment.Create(IdMessage1.MessageParts,edit3.Text);
finally
    IdAttach1.Destroy; 
    IdAttach2.Destroy;
end;

[husonet]

Neden Destroy Free daha sağlıklı olmazmı?

[fduman]

Arkadaşlar Destroy kullanmayın, yanlış bir kullanım, Free kullanın.

Bir de bildiğim kadarıyla IdMessage Attachment'ları kendisi Free ediyor. Free etmeye gerek yok yani. Çok zaman oldu. Emin değilim.

[fduman]

Borland'ın söylediği de bu. Bakın ne demiş...

To destroy an object, however, you should call the Free method (also inherited from TObject), because Free checks for a nil reference before calling Destroy. For example,

Employee.Free;

[naile]

Arkadaşlar Destroy kullanmayın, yanlış bir kullanım, Free kullanın.

Bir de bildiğim kadarıyla IdMessage Attachment'ları kendisi Free ediyor. Free etmeye gerek yok yani. Çok zaman oldu. Emin değilim.

Ya aslında orda da

Kod: Tümünü seç

TIdAttachment.Create(IdMessage1.MessageParts,edit2.Text);

şeklinde kullanmışlar ben tekrar free etmek için bu şekil yaptım, edip etmediğini bilmiyorum. Bu şekil free etmeden de düzgün gönderdi ama emin olamadığımda yapmıştım. Destroy pek kullanmam ben de aslında ama bunu biyerden almıştım sanırım ordan dolayı destroy kullanmışım. free yaptım.

[dilekdurgun]

elimde söle ir kod var ama ben 1 değil 1den fazla dosya eklemk istiyorum mailime örnek aşağıda yardım ederseniz sevinirim

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Ek1.Text:=OpenDialog1.FileName;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
IdMessage1.Clear;
IdMessage1.From.Text :=Edit1.Text;  // kimden geldiği
IdMessage1.ReplyTo.EMailAddresses:=Edit1.Text; // gönderenin mail adresi
IdMessage1.Recipients.EMailAddresses:=Edit2.Text; // gönderilecek adres
IdMessage1.Date:=Date;  //günün tarihi
IdMessage1.Subject:=Edit4.Text;  // konu su
IdMessage1.Body.Text := memo1.Text; // mesajınız buraya
IdMessage1.Priority:=mpNormal;
// eklenecek dosyalar
if not (Ek1.Text='') then TIdAttachment.Create(IdMessage1.MessageParts,Ek1.Text);
IdMessage1.Body.Assign(Memo1.Lines);

try
IdSMTP1.Send(IdMessage1);  // bağlı mesajların gönderimi
finally 
IdSMTP1.Disconnect; // bağlantını kesilmesi
end;
end;