Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

20th
Апр

Пример программы принимающей сообщения с @mail.ru

Posted by Chas under Топик-обзор

Usov:

procedure TForm1.Button1Click(Sender: TObject);

var

  k,i,FMsgCount: Integer;

  url: String;

  s: String;

begin

  if POP.Connected then

    POP.Disconnect;

  POP.Host := 'pop.mail.ru';

  POP.Port := 110;

  POP.Username := 'wqwdwqdqwdqwdq@mail.ru';

  POP.Password := '312h3l12jh3';

  try

    POP.Connect;

  except

    on E: Exception do

      begin

        MessageDlg(E.Message, mtError, [mbOK], 0);

        Exit;

      end;

  end;

  FMsgCount := POP.CheckMessages;

  for i:=1 to FMsgCount do

  begin

    POP.Retrieve(i, Msg);

    for k:=0 to Msg.MessageParts.Count-1 do

    begin

      if (Msg.MessageParts.Items[k] is TIdText) then

        s := (Msg.MessageParts.Items[k] as TIdText).Body.Text;

      s := GetSubStr(s ,'<a href=http://fxmail.ru/registration?action=check', '>');

      if s <> '' then

        begin

          Memo1.Lines.Text := 'http://fxmail.ru/registration?action=check'+s;

          Break;

        end;

    end;

  end;

end;