Привет народ!
Помогите мне плз!
Мне надо одновременно получить письма с 10 акаунтов, но помещать на форму 10 pop компонент не охота, к тому же настройка займёт уйму времени (OnConnect и тому подобные функции).
Я пробовал создовать их вручную, но события типа On Connected обработать не могу!
Помогите плз!

А в чём проблема? Почему не можете ?

Что-то я не просекаю вопрос, или тебе надо иметь действительно столько компонентов сколько серверов, или ты используешь 1 компонент и подсоединяешься/опрашиваешь каждый сервер по очереди... Другого вроде бы не дано.

Дело в том, что мне надо почту получать одновременно со всех акаунтов,
но при этом мне в лом класть 10 компонентов и настраивать каждый!
Да, 10 акаунтов - это к примеру, их могёт быть больше!!!

Если бы Я умел обрабатывать вручную события типа OnDiconnect, в
локальной процедуре тогда бы и проблемы не было!

Var Disconnected:boolean;

Procedure Form1.onDisconnect();
begin
 Disconnected:=true;
end;

Procedure Form1.DoDisconnect;
begin
 Disconnected:=false;
 Pop3.Disconnect;
 repeat
   application.processmessages;
   sleep(10);
 until Disconnected;
end;

procedure TForm1.OnClickProc (Sender: TObject);
begin
 ShowMessage ( 'Test' );
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Form1.Button2.OnClick := OnClickProc;
end;

Неееааа не катит ни чего!!!
Всё я пробовал!!
Baa. Там тип не процедера, а проперти(свойство). Не совместимые типы!
Vit. Твой вариант не работает! Наверное ты поместил на форму
компонент! А если не помещать, а создать програмно?

Скажу одно. Нужно подумать о других вариантах(одновременной закачки с
10 акаунтов)!

Если програмно то тоже самое:

Код

Var Disconnected:boolean;    Pop3:TNMPOP3; Procedure Form1.onDisconnect(Sender:TObject); begin Disconnected:=true; end; Procedure Form1.DoDisconnect; begin Disconnected:=false; Pop3.Disconnect; repeat   application.processmessages;   sleep(10); until Disconnected; end; Procedure Form1.CreateComponet; begin  pop3:=TNMPOP3.create(Form1);  pop3.onDisconnect:=onDisconnect; end;

Сорри, писал на вскидку, так что должны быть мелкие ошибки, но в основном так подключаются события для созданных в Run-Time объектов

Не,  не работает!

Цитата(Frikazoid @ 08.6.2002, 12:50)

Не,  не работает!

Что именно не работает? Может ты питание компьютера забыл включить? Ну неужели бросая реплику "Неработает" кто-то всерьез думает что ему могут помочь. Я не могу. Мне надо конкретно писать в чем это выражается - ошибка на этапе компилляции (Какая?), ошибка на этапе выполнения (Какая?), код работает каким то другим образом (Каким?)

Если я тебя правильно понял то вот решение проблемы, если это оно скажи, и я тебе напишу его код.

1 Ты нажал кнопку соединился с pop.mail.ru принял все письма, и далее всё на автомате, ты соединяешся с серваком принемаешь письма и после приема соединяешься с другим, и т.д пока некончятся все.

Тоесть я предлогаю последовательность тк одновременное подключение одног компонента к дести, даже к двум серверам невозможно, и даже если ты поставишь их 10 штук то проиграешь в скорости и размере приложения.

Предлагаю такой вариант...Создаешь свой класс потоков, в котором через MAPI забираешь почту.
Далее создаешь все 10 или больше потоков и разом запускаешь!

Baa. Твоя идея хороша, но как её реализовать? Напиши ПЛЗ хоть какой
сырец!
RAdmin. Если ты читал начало, то мог заметить, что проблема состоит в
том, что надо одновременно получать со всех акаунтов, даже с потерей
скорости!
Vit. Питание я проверял раз десять, там багов не нашёл! Зато в проге
таких жирных особей обнаружил и сам отловить не могу!

Так выглядел оригинал твоей проги:

type
 TForm1 = class(TForm)
 Procedure DoDisconnect;
    Procedure onDisconnect(Sender:TObject);
    Procedure CreateComponet;
 private
 public
 end;
var Form1: TForm1; Disconnected:boolean; Pop3:TNMPOP3;
implementation
{$R *.dfm}
Procedure Form1.onDisconnect(Sender:TObject);
begin
Disconnected:=true;
end;
Procedure Form1.DoDisconnect;
begin
Disconnected:=false;
Pop3.Disconnect;
repeat
 application.processmessages;
 sleep(10);
until Disconnected;
end;
Procedure Form1.CreateComponet;
begin
pop3:=TNMPOP3.create(Form1);
pop3.onDisconnect:=onDisconnect;
end;

И во какие ошибки он выдал!

[Error] Unit1.pas(28): Identifier redeclared: 'Form1'
[Error] Unit1.pas(33): Identifier redeclared: 'Form1'
[Error] Unit1.pas(43): Identifier redeclared: 'Form1'
[Error] Unit1.pas(46): Undeclared identifier: 'onDisconnect'
[Error] Unit1.pas(11): Unsatisfied forward or external declaration: 'TForm1.DoDisconnect'
[Error] Unit1.pas(12): Unsatisfied forward or external declaration: 'TForm1.onDisconnect'
[Error] Unit1.pas(13): Unsatisfied forward or external declaration: 'TForm1.CreateComponet'

Я подправил, и....

type
 TForm1 = class(TForm)
    Procedure DoDisconnect;
    Procedure onDisconnect(Sender:TObject);
    Procedure CreateComponet;
 private
 public
 end;
var Form1: TForm1;
   Disconnected:boolean;
   Pop3:TNMPOP3;
implementation
{$R *.dfm}
Procedure onDisconnect(Sender:TObject);
begin
Disconnected:=true;
end;
Procedure DoDisconnect;
begin
Disconnected:=false;
Pop3.Disconnect;
repeat
 application.processmessages;
 sleep(10);
until Disconnected;
end;
Procedure CreateComponet;
begin
pop3:=TNMPOP3.create(Form1);
pop3.onDisconnect:=onDisconnect;
end;

[Error] Unit1.pas(46): Incompatible types: 'method pointer and regular procedure'
[Error] Unit1.pas(11): Unsatisfied forward or external declaration: 'TForm1.DoDisconnect'
[Error] Unit1.pas(12): Unsatisfied forward or external declaration: 'TForm1.onDisconnect'
[Error] Unit1.pas(13): Unsatisfied forward or external declaration: 'TForm1.CreateComponet'

Перенеси эти строки в Private или Public секции класса формы:

Procedure DoDisconnect;
Procedure onDisconnect(Sender:TObject);
Procedure CreateComponet;

А следующий код надо писать как я писал, с указанием членства в классе, иначе не будет работать:

Procedure TForm1.onDisconnect(Sender:TObject);
begin
Disconnected:=true;
end;
Procedure TForm1.DoDisconnect;
begin
Disconnected:=false;
Pop3.Disconnect;
repeat
application.processmessages;
sleep(10);
until Disconnected;
end;
Procedure TForm1.CreateComponet;
begin
pop3:=TNMPOP3.create(Form1);
pop3.onDisconnect:=onDisconnect;
end;

Слушай, я тут присмотрелся к этому компоненту (я с ним уже давно не работал), там есть свойство "Connected", может не надо весь и огород городить с ловлей события onDisconnect. Попробуй что-то просто типа:

Код

Procedure TForm1.DoDisconnect; begin  Pop3.Disconnect;  repeat    application.processmessages;    sleep(10);  until not Pop3.Connected; end;