Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Работа с почтой

Автор: Mazikk 13.10.2004, 09:16

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

Автор: <Spawn> 13.10.2004, 11:27

Бросаешь на форму 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.

Автор: Полудненко Олег 13.10.2004, 17:09

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

Автор: Satana 14.10.2004, 07:29

Цитата

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

Автор: Guest 22.2.2005, 23:45

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

Автор: <Spawn> 24.2.2005, 18:59

To Guest

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

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

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

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

4) С вопросами, касающимися работы с TTable, вам следует обратиться в http://forum.vingrad.ru/index.php?showforum=88