Категория Internet

Здесь всего три — типовых для пользователя Сети — действия.

Действие TBrowseURL открывает URL, заданный в одноименном свойстве. Поскольку это происходит при помощи функции shellExecute, для просмотра открывается браузер, зарегистрированный в системе по умолчанию.

Действие TSendMail запускает программу — почтового клиента для отправки письма (с помощью интерфейса MAPI). Текст письма вы можете задать в свойстве Text. Но! Ни получателя, ни тему, ни вложений задать нельзя — это придется делать вручную в почтовой программе. При желании полностью автоматизировать процесс отправки вам придется породить дочерний компонент от действия TSendMail, где и перекрыть метод ExecuteTarget.

Исходные тексты — в модуле ExtActns.

Наконец, самый сложный компонент TDownloadURL. Он позволяет загрузить содержимое с адреса URL и сохранить его на локальной машине под именем FileName.

Поскольку загрузка — процесс долгий, в то время, пока она происходит, периодически возникает событие

property OnDownloadProgress: TDowriloadProgressEvent; 

TDownloadProgressEvent = procedure(Sender: TDownLoadURL; 

Progress,

ProgressMax: Cardinal; StatusCode: TURLDownloadStatus; 

StatusText: String;

var Cancel: Boolean) of object;

Параметры обработчика этого события следующие.

Примечание 

Значение ProgressMax может быть равно нулю. В этом случае о ходе загрузки численно судить нельзя. Информацию несут другие параметры события.