Вверх ↑
Пакеты 
HiAsm4
Windows 
Компоненты 
Интepнeт 
Общие - POP3

POP3
Краткое описание
   Компонент позволяет принимать почту по протоколу POP3.
Параметры
  • Server - POP3 сервер приёма почты
  • Login - Имя пользователя (логин)
  • Password - Пароль
  • Port - Порт сервера
  • Count - Чтение первых N строк письма
  • Методы
  • doConnect - Осуществляет соединение с сервером
  • doRead - Скачивает письмо с сервера (определяется индексом из потока от 1 до Count)
  • doDelete - Удаляет письмо с сервера (определяется индексом из потока от 1 до Count)
  • doClose - Закрывает соединение с сервером
  • doTop - Читает только заголовок и первые N строк (определяется индексом из потока от 1 до Count)
  • События
  • onConnect - Событие происходит всякий раз после успешного соединения с сервером и выдает в поток кол-во писем в ящике.
  • onRead - Событие происходит после закачки письма и выдает в поток его содержимое
  • onError - Событие происходит после возникновения ошибки в работе компонента и выдает в поток её код
  • Свойства
  • Count - Содержит кол-во писем в почтовом ящике
  • Пример
    Пример использования компонента POP3 для чтения первого письма с почтового ящика

    
    Add(MainForm,19160,84,154)
    {
    Left=21
    Top=105
    Width=402
    Height=338
    Font=[Arial,8,0,0,1]
    Caption="Пример POP3"
    }
    Add(Button,87804,84,63)
    {
    Left=10
    Top=10
    Font=[Arial,8,0,0,1]
    Caption="Connect"
    link(onClick,34270:doConnect,[(135,69)(135,104)])
    }
    Add(Memo,37677,273,147)
    {
    Left=10
    Top=35
    Width=370
    Height=100
    Font=[Arial,8,0,0,1]
    ScrollBars=3
    }
    Add(POP3,34270,154,98)
    {
    Server="pop.yandex.ru."
    Point(onError)
    link(onConnect,1969106:doStrCat,[])
    link(onRead,14704815:doEvent1,[(205,111)(205,174)])
    link(onError,8367749:doMessage,[])
    }
    Add(Label,2225581,329,98)
    {
    Left=145
    Top=15
    Caption="Count:"
    }
    Add(Button,24970,84,105)
    {
    Left=70
    Top=10
    Font=[Arial,8,0,0,1]
    Caption="Read"
    Data=Integer(1)
    link(onClick,34270:doRead,[])
    }
    Add(StrCat,1969106,273,98)
    {
    Str1="Count: "
    link(onStrCat,2225581:doText,[])
    }
    Add(POP3_Parse,2707666,273,217)
    {
    link(onParse,3815528:doValue,[])
    }
    Add(Edit,9890082,273,280)
    {
    Left=10
    Top=145
    Width=155
    link(Str,2707666:From,[])
    }
    Add(Edit,814934,280,329)
    {
    Left=175
    Top=145
    Width=165
    link(Str,2707666:Subject,[])
    }
    Add(Memo,9723279,336,357)
    {
    Left=10
    Top=170
    Width=365
    Height=135
    ScrollBars=3
    }
    Add(Hub,14704815,217,168)
    {
    OutCount=4
    link(onEvent1,37677:doText,[])
    link(onEvent2,2707666:doParse,[(264,181)(264,223)])
    link(onEvent3,2378853:doEvent1,[(243,188)(243,239)(184,239)(184,286)])
    }
    Add(Hub,2378853,196,280)
    {
    OutCount=3
    link(onEvent1,9890082:doText,[])
    link(onEvent2,814934:doText,[(254,293)(254,335)])
    link(onEvent3,15676420:doData,[(236,300)(236,384)])
    }
    Add(DoData,15676420,287,378)
    {
    link(onEventData,9723279:doText,[])
    link(Data,2707666:Text,[])
    }
    Add(FileStream,14014400,539,203)
    {
    Mode=1
    AutoCopy=0
    Point(doCopyFromStream)
    link(FileName,14460775:Value,[(545,191)(590,191)(590,273)(440,273)])
    }
    Add(DoData,89292,490,217)
    {
    link(onEventData,14014400:doCopyFromStream,[])
    link(Data,2707666:Attach,[(496,195)(321,195)(321,263)(300,263)])
    }
    Add(Message,8367749,224,112)
    {
    }
    Add(SDialog,2998783,385,217)
    {
    Title="Open Dialog"
    Point(FileName)
    link(onExecute,14460775:doValue,[])
    link(FileName,3815528:Value,[(391,205)(404,205)(404,261)(342,261)])
    }
    Add(Memory,3815528,336,217)
    {
    link(onData,2998783:doExecute,[])
    }
    Add(Memory,14460775,434,217)
    {
    link(onData,89292:doData,[])
    }

    Замечания
    Коды ошибок, выдаваемые компонентом:
    Код ошибки Описание
    1 Сервер не найден
    2 Ошибка при попытке соединения с сервером
    3 Ошибка авторизации
    4 Неизвестная ошибка


    Обновление элемента: [svn]POP3.pas[/svn]
    BB-code статьи для вставки
    Всего комментариев: 0
    (комментарии к статье еще не добавлены)
    Комментарий
    ...