I think there is a wakness/bug in the smtpprot.pas:

procedure TCustomSmtpClient.RcptTo;


    if FRcptName.Count <= 0 then

        raise SmtpException.Create('RcptName list is empty');

    FItemCount := -1;


When this exception is raised, I cant catch it anywhere. No bgexception, no 
requestdone. I added try/except in this procedure (all the code in this 
procedure inside the try):

procedure TCustomSmtpClient.DoHighLevelAsync;

 like this:

    except                                  {Bjørnar}

      on E:Exception do                     {Bjørnar}

          HandleBackGroundException(E);     {Bjørnar}

    end;                                    {Bjørnar}

then I was able to catch it and shut down and release the smtp-component. Any 
comments on this change?

Regards Bjørnar

No virus found in this outgoing message.
Checked by AVG.
Version: 7.5.519 / Virus Database: 269.22.5/1356 - Release Date: 02.04.2008 

To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be

Reply via email to