Изпращане на поща Delphi средства

Изпращане на поща Delphi означава.

Ние започваме да осъзнаваме наш клиент, това ще постави на форма idSMTP на. Просто се уверете, форма вид настройка (име, размер и т.н.). Ако е необходимо, можете да промените порта, но най-важното, не забравяйте, че пристанището трябва да бъдат отключени в защитната стена. За да се свържете със сървъра за SMTP, трябва да укажете хост (домакин имота). Например: IdSMTP1.Host:= "SMTP .mail .ru"; Или (както и ние), за да постави на етикета форма iEdit. Малко Гледайки напред да кажа, че връзката със сървъра се извършва от Connect.

procedureConnect (constATimeout: цяло число); замени;

където ATimeout - незадължителен параметър определя максималното време в милисекунди да се чака отговор от SMTP сървъра, след което се прекратява опит да се установи връзка. Например: IdSMTP1.Connect (5000);

След прилагане метод Connect, за да проверите резултата от неговото изпълнение. Това се прави с имота е свързано, ако е вярно. След това връзката е нормално.

За да се изпращат през Изпрати функция.

Сега по-отблизо в структурата на писмото. Както бе споменато по-рано, метод за изпращане изпраща текста на съобщението, е тип структура TIdMessage. Отвесните писма структура Delphi реализира TIdMessage отделни компоненти. Тя се намира на компонент палитра Indy Разни.

Пример определяне TIdMessage структура:

Msg.Recipients.EMailAddresses: = 'строител @ mail.ru, [email protected];

От имота е вид TIdEmailAddressItem на обект съдържа информация за изпращача. Този имот се състои от три свойства: име, адрес, Текст. Адрес имот съдържа информация за електронна пощенска кутия на подателя, че е от тип String.

Имотът Името е името на подателя има тип String.

Имотът текстът съдържа текущо обобщена информация от тези две качества. Сега стигаме до писмо тяло, то е от тип TStrings. Сега нека да поговорим за придържане към буквата на файлове, което е, прикачените файлове. Ако се нуждаете от прикачите файл към, ще трябва да се създаде клас обект TidAttachment. За да направите това, ще бъде необходимо да се използва конструктора на формата:

конструктор Създаване (Колекция: TIdMessageParts; Конст AFileName: TFileName = ''); повторно въвеждане;

където колекцията е колекция от приложения към писмото, TIdMessageParts на типа. AFileName Kontstanta има TFileName тип yavlyaetsya обикновен текстов низ. Необходимо е да се уточни правилния път до файла.

След изпращане на съобщението, че е желателно да се прекъсне връзката към сървъра, че няма да превозва канал. комуникация празнина произведен от Прекъсване.