Скачать: CL | DM;

где опредилить количество байт для отправки в Tidsmtp   Найти похожие ветки 

← →
adndrusaaa   (2004-05-14 15:07) [0]

хочу cделать прогрес бар как в The Bat! но немогу опредилить количество байт для отправки Progress.Max= ??????????
пользуюсь Tidsmtp и Tidmessage

---

← →
Reindeer Moss Eater ©   (2004-05-14 15:21) [1]

OnWorkBegin

---

← →
adndrusaaa   (2004-05-14 15:27) [2]

а там
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:30) [3]

А откуда уверенность, что это был вызов WorkBegin при начале отправки сообщения серверу?

---

← →
adndrusaaa   (2004-05-14 15:32) [4]

о я вижу ти умной покажи как отловить

---

← →
adndrusaaa   (2004-05-14 15:33) [5]

ну пожалуста бо никто незнаєт как узнать значениє для Progress.Max= ??????????

---

← →
Reindeer Moss Eater ©   (2004-05-14 15:39) [6]

OnWorkBegin

---

← →
adndrusaaa   (2004-05-14 15:42) [7]

if AWorkMode=wmWrite then ProgressBar1.Max:=AWorkCountMax;
ShowMessage(inttostr(ProgressBar1.Max)); тоже ничево не получаєтса, ну помоги мне до завтра нужно а я уже сутки ищу

---

← →
adndrusaaa   (2004-05-14 15:43) [8]

ну подкин примерчик

---

← →
Reindeer Moss Eater ©   (2004-05-14 15:52) [9]

Загляни в исходники.
Событие OnWorkBegin генерируется в TIdComponent.BeginWork
А BeginWork вызывается в многочисленных наследниках TIdComponent при вызове почти всех их многочисленных методов чтения/записи.

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

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

---

← →
adndrusaaa   (2004-05-14 16:48) [10]

я уже заметил, но как мне поймать тот момен когда именно будет размер в AWorkCountMax

---

← →
adndrusaaa   (2004-05-14 16:56) [11]

procedure TfrmMessageEditor.SMTPWorkBegin(Sender: TObject;
AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
ShowMessage(inttostr(AWorkCountMax));
end;

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.025 c