수고 하십니다...
또 질문을 합니다...
NMSMTP를 이용해서 메일을 보내는데...
NMSMTPSendStart 이벤트를 타지 않네요...
메일을 보낼때 보내는 상태를 progressbar로 보여 줄려구 하는데...
그럴려면 NMSMTPSendStart 이벤트에 넣어야 하는거 맞지 않나요...?
아래내용 처럼 했거든요...
근데 전혀 이벤트가 일어나지 않네요...
메일은 잘 가거든요...
이것 말구도 서버연결, 성공여부 등등... 전부 다 이벤트가 않탑니다...
왜 그럴까요...?
수고스럽겠지만 답변 부탁드립니다...
procedure Tf411.SMTPCSendStart(Sender: TObject);
begin
with smtpc do
begin
Progressbar1.Max := BytesTotal;
Progressbar1.Position := 0;
Progressbar1.Position := BytesSent * 100 div BytesTotal;
end;
end;
|