Прием почты в Delphi

[betirsolt]

Доброе время суток..я смотрел видео урок как организовать прием почты..но там используется компонент POP3..но я его у себя в Delphi 10 Lite не могу найти(((в чем может быть проблема??может мне надо что то дополнительно установить к нему???

[hoza_syl]

В версии лайт может и не быть этого компонента. Попробуй скачать его с каталога компонетов www.torry.net

[betirsolt]

всем спасибо я установил CODE GEAR Delphi 2007 и там есть все компоненты...я хотел написать такой скромный почтовик.вот код:#

unit Unit1;

interface

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

type
TForm1 = class(TForm)
IdPOP31: TIdPOP3;
IdMessage1: TIdMessage;
Memo1: TMemo;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
function upmessage: longint;
end;

var
Form1: TForm1;
msgcount,i:integer;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
upmessage;
end;

function TForm1.upmessage: longint;
begin
idpop31.Connect;
msgcount:=idpop31.CheckMessages;
if msgcount>0 then
begin
for i := 1 to msgcount do
begin
idmessage1.Clear;
idpop31.Retrieve(i,idmessage1);
label1.Caption:=idmessage1.Subject;
label2.Caption:=idmessage1.From.Add ress;
memo1.Text:=idmessage1.Body.Text;
label3.Caption:=datetostr(idmessage 1.Date);
idpop31.Disconnect;
end
end
else
begin
form1.Caption:='Писем нет';
idpop31.Disconnect;
end;
end;

end.

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

[KORN]

с торрентов скачай CodeGear RAD Studio 2009 пусть весит много, но возможности огромны... сколько пользуюсь не было необходимости в новых компонентах...

[Serge_Bliznykov]

ну можно посмотреть в сторону бесплатного и распространяемого в исходных текстах пакета
Synapse (The synchronyous socket library.)
Рекомендую.

[betirsolt]

ребята помогите...уж очень сильно я хочу сделать этот почтович

[KORN]

в delphi есть папка demos и там есть исходник почтовой программы, советую его поковырять... но в lite версии не факт что есть эти компоненты/исходники

[betirsolt]

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

в delphi есть папка demos и там есть исходник почтовой программы, советую его поковырять... но в lite версии не факт что есть эти компоненты/исходники

у меня и вправду нет такой папки((а с моим кодом можешь помочь???или скинуть другой исходник чтоб я мог переделать под себя