Re: [twsocket] smtp component not connected/ready

2008-01-07 Thread retnyg
hi, i changed the code as follows: procedure TMailer.SmtpClientRequestDone; function isError : boolean; begin result := false; if ((Error 399) and (Error 600)) or (error = 1) then result := true; if result then if assigned(FOnError) then FOnError(FSmtp.ErrorMessage);

Re: [twsocket] smtp component not connected/ready

2008-01-07 Thread Wilfried Mestdagh
Hello retnyg, You call RSet if you have an error. If you have an error just call Abort and try later again. Also check on any error, not only between those values: if Error 0 then begin FSmtp.Abort; SetSomeRetryMechanism; // retry with a timer or by posting a message Exit; end; ---

Re: [twsocket] smtp component not connected/ready

2008-01-07 Thread DZ-Jay
On Jan 7, 2008, at 06:56, Wilfried Mestdagh wrote: You call RSet if you have an error. If you have an error just call Abort and try later again. Also check on any error, not only between those values: if Error 0 then begin FSmtp.Abort; SetSomeRetryMechanism; // retry with a timer