Получение писем в почтовом клиенте, POP3

@Kenjis · Регистрация: 13.06.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте я в этой области новичок и прошу помощи, у меня такая проблема, пишу почтовый клиент в котором не могу вывести письма в какое нибудь поле. Буду очень благодарен за отклик. Вот код программы:
POP - это компонент idPOP3
Msg - это компонент idMessage

Delphi

procedure TForm1.Button2Click(Sender: TObject);
var MsgCount, i: integer;
begin
 i:=0;
 // установка POP3
 POP.Host:=POP3.Text;
 POP.Port:=strtoint(portpop3.Text);
 POP.Password:=porol.Text;
 POP.Username:=Email.Text;
 POP.Connect;
 if POP.Connected=true then
 ShowMessage('Соединение установлено!');
 //Узнаем количество писем
 MsgCount:=POP.CheckMessages;
 col.Caption:=floattostr(MsgCount);
 //Получаем письма с почтового ящика
 if POP.CheckMessages>0 then
  for i:=1 to MsgCount do
    begin
      Msg.Clear;
      POP.Retrieve(i,Msg);
    end;;
end;

@Артемка123 · 19.12.2014, 09:08

Сообщение от Kenjis

MsgCount:=POP.CheckMessages;

У меня вообще вот на эту строчку ругается

@mss · 19.12.2014, 10:06

Сообщение от Kenjis

пишу ..не могу

Что значит "не могу" ? В чем конкретно это самое "не могу" проявляется ?

@Артемка123 0 / 0 / 0 Регистрация: 17.11.2014 Сообщений: 66
	19.12.2014, 09:08	2
	Сообщение от Kenjis MsgCount:=POP.CheckMessages; У меня вообще вот на эту строчку ругается 0

@mss 2649 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	19.12.2014, 10:06	3
	Сообщение от Kenjis пишу ..не могу Что значит "не могу" ? В чем конкретно это самое "не могу" проявляется ? 0

Опции темы