Пирветствую всех!
Люди, выручите, конектится без проблем, а как выгрести письмо?

**********************************
idpop31.Password:=edtpasswordmail.Text;
idpop31.Port:=strtoint(edtportmail.Text);
idpop31.UserId:=edtnameusermail.Text;
idpop31.Host:=edtnameservermail.Text;

if not idpop31.Connected then idpop31.Connect;
if idpop31.Connected then
begin
showmessage('OK');
idpop31.RetrieveHeader(1,?????);
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
end
else showmessage('NOT OK');
if idpop31.Connected then idpop31.Disconnect;
showmessage('Disconnect');
*********************************
как этой процедурой воспользоваться?
не могу переменную подогнать, типы не подходят.
еще сразу вопросик, если у Вас получиться, то как например в мемо-поле запихать результат?

или где-нить есть описание процедур с примерчиками. IdHTTP видел, вот еще бы и на IdPOP3...

Заранее благодарен за ответ.

AShubin@svrw.ru

Здравствуйте Leha, Вы писали:

L> idpop31.RetrieveHeader(1,?????);

Там просто TidMessage. Объявляешь переменную такого топа и создаешь с помошью
Create

L>или где-нить есть описание процедур с примерчиками. IdHTTP видел, вот еще бы и на IdPOP3...

http://www.nevrona.com/indy

Здравствуйте Anatolix, Вы писали:

A>Здравствуйте Leha, Вы писали:

L>> idpop31.RetrieveHeader(1,?????);

A>Там просто TidMessage. Объявляешь переменную такого топа и создаешь с помошью
A>Create

L>>или где-нить есть описание процедур с примерчиками. IdHTTP видел, вот еще бы и на IdPOP3...

A>http://www.nevrona.com/indy

В этом и проблемка, что не могу определить тип TidMessage, ругается...

Здравствуйте Leha, Вы писали:

L>В этом и проблемка, что не могу определить тип TidMessage, ругается...

Код в студию

Здравствуйте Anatolix, Вы писали:

A>Здравствуйте Leha, Вы писали:

L>> idpop31.RetrieveHeader(1,?????);

A>Там просто TidMessage. Объявляешь переменную такого топа и создаешь с помошью
A>Create

L>>или где-нить есть описание процедур с примерчиками. IdHTTP видел, вот еще бы и на IdPOP3...

A>http://www.nevrona.com/indy

Вы писали что надо объявить тип, но ругается на этот тип, типа не определен , если не затруднит, короткий примерчик, иль вот мой:

procedure TForm1.Button1Click(Sender: TObject);
begin
idpop31.Password:=edtpasswordmail.Text;
idpop31.Port:=strtoint(edtportmail.Text);
idpop31.UserId:=edtnameusermail.Text;
idpop31.Host:=edtnameservermail.Text;

if not idpop31.Connected then idpop31.Connect;

if idpop31.Connected then
begin
showmessage('OK');
// idpop31.Retrieve(1,ccc)
^^^
// idpop31.Retrieve(1,memo2.text);
end
else showmessage('NOT OK');

if idpop31.Connected then idpop31.Disconnect;

showmessage('Disconnect');

end;

Заранее благодарен за ответ...
С уважением Алексей.

Здравствуйте Anatolix, Вы писали:

A>Здравствуйте Leha, Вы писали:

L>> idpop31.RetrieveHeader(1,?????);

A>Там просто TidMessage. Объявляешь переменную такого топа и создаешь с помошью
A>Create

L>>или где-нить есть описание процедур с примерчиками. IdHTTP видел, вот еще бы и на IdPOP3...

A>http://www.nevrona.com/indy

Вы писали что надо объявить тип, но ругается на этот тип, типа не определен , если не затруднит, короткий примерчик, иль вот мой:

procedure TForm1.Button1Click(Sender: TObject);
begin
idpop31.Password:=edtpasswordmail.Text;
idpop31.Port:=strtoint(edtportmail.Text);
idpop31.UserId:=edtnameusermail.Text;
idpop31.Host:=edtnameservermail.Text;

if not idpop31.Connected then idpop31.Connect;

if idpop31.Connected then
begin
showmessage('OK');
// idpop31.Retrieve(1,ccc)
^^^
// idpop31.Retrieve(1,memo2.text);
end
else showmessage('NOT OK');

if idpop31.Connected then idpop31.Disconnect;

showmessage('Disconnect');

end;

Заранее благодарен за ответ...
С уважением Алексей.

Кстати примеров в хелпе нет по Indy.
а на http://www .nevrona.com/indy/downloads/Indy-9-0-Help-WinHelp.zip достучаться не могу...

uses idmessage;
procedure TForm1.Button1Click(Sender: TObject);
var foo:TIdMessage;
begin
   foo:=TIdMessage.Create(self);
end;

Здравствуйте Leha, Вы писали:

L>Кстати примеров в хелпе нет по Indy.

Примеры там же отдельно где-то ледат в архиве.
Кроме того еще маленько есть в $(Delphi)\Demos