|
#1
|
|||
|
|||
INDY attach
Дайте пожалуйста пример прикрепления файла к письму, просто встрял и не могу растормозиться, есть IdSMTP,IdMessage -просто письмо отрправляется без проблем, а для присоединения файла нужен constructor, в инете все ссылки на одну и ту же статью, не могу самостоятельно разобраться, может есть у кого готовый unit , приведите пример, пожалуйста!
|
#2
|
||||
|
||||
Посмотри этот пример: http://www.delphisources.ru/pages/so...et/e-mail.html
|
#3
|
|||
|
|||
проблемы с constract. я так понял что вся тема заключается в :
msg : TIdMessage; file : TIdMessagePart; file := TIdAttachment.Create(msg.MessageParts, путь до attachfile); но нужно создать конструктор, если можно расскажите как это правильно сделать!!! |
#4
|
|||
|
|||
разобрался, если кому пригодится то выход следующий(ни каких конструкторов не нужно(в bds2006))
uses .....IdAttachmentFile,IdMessageParts; procedure TForm5.Button1Click(Sender: TObject); var file_ : TIdMessagePart; begin IdSMTP1.Disconnect; // msg := TIdMessage.Create(nil); IdSMTP1.Connect; file_ := TIdAttachmentFile.Create(IdMessage1 .MessageParts, 'c:\1\1.zip'); ////Вот сдесь ошибка!!!!!!! IdSMTP1.Send(IdMessage1); end; |
#5
|
|||
|
|||
ОЙ!!!!!!
uses .....IdAttachmentFile,IdMessageParts; procedure TForm5.Button1Click(Sender: TObject); var file_ : TIdMessagePart; begin IdSMTP1.Connect; file_ := TIdAttachmentFile.Create(IdMessage1 .MessageParts, 'c:\1\1.zip'); IdSMTP1.Send(IdMessage1); IdSMTP1.Disconnect; end; |