Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

где опредилить количество байт для отправки в Tidsmtp [D7, Win2k, WinXP]

adndrusaaa © (2004-05-14 15:07:00)
хочу cделать прогрес бар как в The Bat! но немогу опредилить количество байт для отправки Progress.Max= ??????????
пользуюсь Tidsmtp и Tidmessage

adndrusaaa (2004-05-14 16:56:00) [1]
procedure TfrmMessageEditor.SMTPWorkBegin(Sender: TObject;
AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
ShowMessage(inttostr(AWorkCountMax));
end;

ядаже так сделал щоб поймать момент когда визиваєтся OnWorkBegin
и щто один визов и значениє 0

adndrusaaa (2004-05-14 16:48:00) [2]
я уже заметил, но как мне поймать тот момен когда именно будет размер в AWorkCountMax

Reindeer Moss Eater (2004-05-14 15:52:00) [3]
Загляни в исходники.
Событие OnWorkBegin генерируется в TIdComponent.BeginWork
А BeginWork вызывается в многочисленных наследниках TIdComponent при вызове почти всех их многочисленных методов чтения/записи.

А сеанс почтового клиента с SMTP сервером - это целая куча вызовов методов чтения/записи в почтовом клиенте.
В том числе еще донепосредственной отправки тела письма.

И все эти вызовы приводят к генерации события OnWorkBegin.

adndrusaaa (2004-05-14 15:43:00) [4]
ну подкин примерчик

adndrusaaa (2004-05-14 15:42:00) [5]
if AWorkMode=wmWrite then ProgressBar1.Max:=AWorkCountMax;
ShowMessage(inttostr(ProgressBar1.Max)); тоже ничево не получаєтса, ну помоги мне до завтра нужно а я уже сутки ищу

Reindeer Moss Eater (2004-05-14 15:39:00) [6]
OnWorkBegin

adndrusaaa (2004-05-14 15:33:00) [7]
ну пожалуста бо никто незнаєт как узнать значениє для Progress.Max= ??????????

adndrusaaa (2004-05-14 15:32:00) [8]
о я вижу ти умной покажи как отловить

Reindeer Moss Eater (2004-05-14 15:30:00) [9]
А откуда уверенность, что это был вызов WorkBegin при начале отправки сообщения серверу?

adndrusaaa (2004-05-14 15:27:00) [10]
а там
procedure TfrmMessageEditor.SMTPWorkBegin(Sender: TObject;
AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
ProgressBar1.Max:=AWorkCountMax;
ShowMessage(inttostr(ProgressBar1.Max));
end;
и ShowMessage показиваєт што там 0.

Reindeer Moss Eater (2004-05-14 15:21:00) [11]
OnWorkBegin

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »