[Delphi] Парсинг ссылки из письма с email'а

[stalker_1894]

Здравствуйте ув. форумчане,
у меня такое задание зайти на почту, найти письмо по заголовку, открыть его и спарсить текст. Проблема в том, что программа иногда не подключается к ящику, и не находит правильного заголовка...
Еще, изначально компонент IdPOP3 прогоняет письма от самого старого до последнего присланного, а спец. функция не определяет письма с меткой "Непрочитанное".

Я старался сделать, как можно проще, но видимо где-то получился нелогичный алгоритм, что и стало причиной неполадок.

Посмотрите свежим взглядом код, наверняка, что-то где-то не так. Последний раз писал это ночью, мб что-то забыл.

Спасибо.

Вот исходник:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdMessage, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdMessageClient, IdPOP3;

type
  TForm1 = class(TForm)
    IdMessage: TIdMessage;
    Memo1: TMemo;
    POP3: TidPOP3;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  numm:integer;

implementation

{$R *.dfm}

function getmail(word:string; host:string; port:integer; login:string; pass:string): TStrings;
var
i,numofmsgs:integer;
checkword:string;
begin
Form1.IdMessage.Clear;
checkword:=word;
Form1.POP3.Host:=host; // адрес почтового сервера
Form1.POP3.Port:=port; // порт по которому будет осуществляться подключение
Form1.POP3.Username:=login; // Логин пользователя
Form1.POP3.Password:=pass; // пароль пользователя
Form1.IdMessage.Clear; // очистка буфера для сообщения
Form1.POP3.Connect; // подключение по протоколу POP3, по настройкам в компоненте IdPOP3, с именем POP3
//result.Clear; // очистка компонента memo для отображения текста письма.
numofmsgs:=Form1.POP3.CheckMessages;
if numofmsgs = 0 then
   begin
  //  ShowMessage('Писем нет');
    Form1.POP3.Disconnect;
  result.Strings[1]:='no';
   end else
   begin
  for i:=0 to numofmsgs do
  begin
   Form1.POP3.Retrieve(numofmsgs-i,Form1.IdMessage);
   //CHKWORD
    if Pos(checkword,Form1.IdMessage.Body.Text) > 0 then
     begin
      result:=Form1.IdMessage.Body;
     end;
    Form1.POP3.Disconnect; // разрыв связи
   end;
    end;
end;

function getlink(memo:TStrings; len:integer):string;
var
current:string;
num, i:integer;
begin
for i := 1 to memo.Count-1 do
 begin
   num:=Pos('http://',memo.Strings[i]);
   if num > 0 then
   begin
    current:=Copy(memo.Strings[i],num,150);
    Delete(current,LastDelimiter(' ',current),Length(current)-LastDelimiter(' ',current));
    if Length(current) = len
    then begin
    result:=current;
    break;
    end;
   end else result:='ERROR'; // Error - nothing found
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
qwe:TStrings;
begin

qwe:=getmail('http://','pop.mail.ru',110,'login','pass');
if qwe.Strings[1] = 'no' then ShowMessage('No')
else
Edit1.Text := getlink(qwe,98);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage(IntToStr(Pos('http://',Memo1.Text)));
end;

end.

7. Специально для студентов и учащихся!
Как бы вы ни назвали свою тему, как бы вы ни ухищрялись, если в тексте будет ваша учебная задачка, которую вам ну позарез нужно решить - такие темы или вопросы будут моментально удаляться, а нарушитель - получать нарушение №1 - "Флуд" и штраф 2 очка.
Халявщики будут моментально переправлены в раздел "Фриланс".
Ну, а в лучшем случае - будут перемещены в раздел "Помощь студентам", который для вас и создан.
Так что не стоит испытывать терпение модеров, а лучше сразу писать подобные темы в тот раздел

[Antimol]

Посмотрите в отладчике, может кодировка письма нестандартная, потому и не парсит.