VPF::Работа с почтой - Форум программистов

Mazikk

Дата 13.10.2004, 09:16 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Привет всем! Подскажите, плз, как в Дельфи 7 сделать так, что бы моя программа показывала сколько новых писем у меня на ящике. Заранее огромное спасибо!!!

<Spawn>

Дата 13.10.2004, 11:27 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 1
Всего: 64

Бросаешь на форму TidPOP3 и прописываешь свойства UserName, Password и Host.
Вот простой пример:

Код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    IdSMTP1: TIdSMTP;
    IdPOP31: TIdPOP3;
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure IdPOP31Connected(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    idPop31.Connect();
    ListBox1.Items.Add('Всего сообщений в ящике: ' + IntToStr(idPop31.CheckMessages));
  except
    ListBox1.Items.Add('Невозможно подкючиться к ' + idPop31.Host);
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if idPop31.Connected then
    idPop31.Disconnect;
end;

procedure TForm1.IdPOP31Connected(Sender: TObject);
begin
  ListBox1.Items.Add('Успешное соединение с ' + idPop31.Host);
end;

end.

Это сообщение отредактировал(а) <Spawn> - 13.10.2004, 11:30

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Полудненко Олег

Дата 13.10.2004, 17:09 (ссылка)

(нет голосов)

Загрузка ...

Українець

Профиль
Группа: Участник...
Сообщений: 556
Регистрация: 13.8.2003

Репутация: нет
Всего: -11

А я юзаю компоненты NMPOP3 (для закачки почты) NMSMTP (для отправки почты). Они имеют очень много параметров и работают без багов.

Satana

Дата 14.10.2004, 07:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 564
Регистрация: 15.9.2004
Где: Ставрополь, СЗ ра йон

Репутация: нет
Всего: 5

Цитата

Эти компоненты есть в 6 дельфе а в седьмой их убрали так что придется пользоваться либо сторонними либо старые подключать либо тем что есть

--------------------

Работай на себя
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.

Guest

Дата 22.2.2005, 23:45 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Кинте пожалуйста ктонибудь кому не так уж и сложно пример работы с Table,
а ещё какойнибудь примерчик с tcpserver.

<Spawn>

Дата 24.2.2005, 18:59 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 1
Всего: 64

To Guest

1)Модератор: Пожалуйста, один топик - один вопрос.

2)Для задания вопросов вам необходимо было создать свою тему, пожалуйста, ознакомтесь с правилами форума:

Правила форума: http://forum.vingrad.ru/index.php?s=&act=SR&f=27

3) За вас вряд ли кто то будет все делать - попытайтесь сами разобраться с интересующими вас вопросами. При возникновении же затруднительных ситуаций можете смело обращаться на форум.

4) С вопросами, касающимися работы с TTable, вам следует обратиться в раздел баз данных

Это сообщение отредактировал(а) <Spawn> - 24.2.2005, 19:02

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »