support mailing
Subject: Re: [twsocket] SMTPProt.pas
Bjørnar Nielsen wrote:
> Arno,
>
> I think you know this bether than me, but I think you are right.
> Calling RequestDone with errormessage would also solve the problem
> for me.
A "500" status code were probably m
LevelAsync done'); {$ENDIF}
FFctSet := [];
FNextRequest := nil;
FRequestDoneFlag := FALSE;
TriggerRequestDone(FHighLevelResult);
end;
{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
>
> Regards Bjørnar
>
> -Original Message-
> Fro
: ICS support mailing
Subject: Re: [twsocket] SMTPProt.pas
Bjørnar,
Won't it be smarter to trigger RequestDone with an error and the
exception message?
Someting like:
procedure TCustomSmtpClient.DoHighLevelAsync;
[..]
try
[..]
except
on E:Exception do
Bjørnar,
Won't it be smarter to trigger RequestDone with an error and the
exception message?
Someting like:
procedure TCustomSmtpClient.DoHighLevelAsync;
[..]
try
[..]
except
on E:Exception do begin
{$IFDEF TRACE}
TriggerDisplay('! ' + E.ClassName + '
I think there is a wakness/bug in the smtpprot.pas:
procedure TCustomSmtpClient.RcptTo;
begin
if FRcptName.Count <= 0 then
raise SmtpException.Create('RcptName list is empty');
FItemCount := -1;
RcptToNex
When this exception is raised, I cant catch it anywhere. No bge
