Последние записи
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
- Скопировать определённый кусок image
- Сделать printscreen экрана и сохранить
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;