[Helybr]

я являюсь начинающим юзером Дельфей, сейчас меня интересует программа по проверки почты. для этого мне нужен компонент содержащий протокол POP3 ,который как описывается находится на палитре компонентов во вкладке FastNet...у меня 7 версия Дельфей и я никак не могу найти эту вкладку. возможно что в этой версии дельфей нету такого компонента??? если да то скажите что делать для того что бы он появился :-) скачивать я могу только через Torrent

[lmikle]

смотри вкладку Indy [Clients]. Компонент TIdPOP3.

[hkdkest]

Компоненты для работы с почтой

[Helybr]

все, большое спасибо!

[Helybr]

Немогу понять что происходит вот код

Код:

IdSMTP1.AuthenticationType:=atLogin;
{IdSMTP1.AuthenticationType:=atNone;   }
IdSMTP1.Username:=edit1.Text+combobox1.Text ;
IdSMTP1.Password:=edit2.Text;

Msg.Subject:=edit1.Text+combobox1.Text ; //текст темы сообщения
Msg.Recipients.EMailAddresses:='Helybr@bk.ru';
//указываем адрес получателя

{вот здесь программа стопарится и выдает ошибку в виде диалогового окна
Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 44004e00. Read of address 44004E00' 
}
Msg.From.Address:=edit1.Text+combobox1.Text; ; //указываем автора письма
Msg.Body.Text:=edit2.Text; //размещаем текст сообщения
Msg.Date:=StrToDate('01.12.2009');//дата отправки письма может быть любой

IDSmtp1.Connect;
if IDSMTP1.Connected=true then
IdSMTP1.Send(Msg);

lmikle: Тегами будем пользоваться?

подскажите что я делаю ну я имею в виду операторы правильно расположил или нет ? и если да то из за чего вылетает ошибка

[lmikle]

А объект Msg кто создавать будет?

[Helybr]

Код:

procedure TForm1.Button2Click(Sender: TObject);
Var
  msg:TidMessage; 

lmikle: Ну что, на месяц в read only или все-таки начнем пользоваться тегами?
имелось в виду этот текст программы???



в другом фрейме под кодом программы еще вот что
[Warning] Unit1.pas(58): Variable 'msg' might not have been initialized

[lmikle]

Ну тебе компилятор иговорит, что переменная Msg может быть не инициализированна. Перед использованием переменной надо примерно так:

Код:

procedure TForm1....
var
  Msg : TIdMessage;
begin
  Try
     Msg := TIdMessage.Create;

     // Здесь работает с переменной Msg
  Finally
    Msg.Free;
  End;
end;

[Helybr]

спасибо большое! сейчас буду делать дальше :-)

[Helybr]

ну и еще наверное 1 вопрос, последний по этой теме
когда вводишь неправильный пасс или логин, выдается системная ошибка, делаю исключения {try ; exepc} там надо короче ошибку записать, когда компилируем пошагово выходит ошибка EIdProtocolReplyError , но когда для этой ошибки делаем обработчик, Дельфи нам говорит типа неизвестный идентификатор

[lmikle]

обрабатывай как обобщенный эксепшн, а в лог пиши его Message.
ну или посмотри где описан этот класс и укажи его в uses - это известная беда Инди - он не всегда нужные модули автоматом добавляет.