Hi Arno and thank You for the reply! I use V2.32 of SmtpProt.pas (the one You get when clicking "Download the latest ICS-V5 Distribution" on overbyte.be) and Delphi7.
Trying to solve this mystery I have now discovered two things: * Since You did not experience any problem I decided to test the example application on another computer by copying the exe-file. Here the second time I show the SmtpTestForm and presses the "All-in-one" button everything works ok and the mail is being sent as expected!!! Do You have any ideas on what can be the difference between these computers that leads to the freeze problem on just one of them? (both has Win XP SP2 and the latest Windows update patches) * I don't know if this gives any clues but a workaround on the computer where the problems appear is to either not destroy the form OR create a dummy smtpCli component like in the code below! procedure TForm2.Button1Click(Sender: TObject); var dummySmtpCli : TSmtpCli; alreadyCreated: Boolean; i: integer; begin SmtpTestForm := TSmtpTestForm.Create(Application); // Workaround that prevents freezing on some computers alreadyCreated := false; if Application.ComponentCount > 0 then begin for i := 0 to Application.ComponentCount-1 do begin if Application.Components[i].Name = 'DummySmtpClient' then begin alreadyCreated := true; BREAK; end; end; end; if not(alreadyCreated) then begin dummySmtpCli := TSmtpCli.Create(Application); dummySmtpCli.Name := 'DummySmtpClient'; end; try SmtpTestForm.ShowModal; finally SmtpTestForm.Release; end; end; Any further thoughts on the matter is greatly appreciated! // Henrik -----Ursprungligt meddelande----- Från: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] För Arno Garrels Skickat: den 11 december 2006 10:32 Till: ICS support mailing Ämne: Re: [twsocket] Freeze when using smtp after recreating its parentform Hello Henrik, Just tested with latest V5 beta, but works great? --- Arno Garrels [TeamICS] http://www.overbyte.be/eng/overbyte/teamics.html Henrik wrote: > Hi! > > I have probably misunderstood something because I get the same > behavior described below no matter which of the components SmtpCli, > SyncSmtpCli and HtmlSmtpCli I use. > > The problem has to do with freeing the smtp-components parent form. > You can easily duplicate the behavior with one of the standard demo > applications: * Open Your favorite demo of MailSnd, MimeTst or > MailHtml. (I proceed with MailSnd-demo below.) > * Add a new form with a button to the project. Write the following in > the buttons OnClick method: > procedure TForm2.Button1Click(Sender: TObject); > begin > SmtpTestForm := TSmtpTestForm.Create(Application); > try > SmtpTestForm.ShowModal; > finally > SmtpTestForm.Release; > end; > end; > * Click on the menu: "Project" - "Options", and remove the > SmtpTestFrom from the "Auto-createForms" list. > * Run the application and click the button. SmtpTestForm opens and You > can send lots of e-mails. > * Close SmtpTestForm and press the button again. Try to send yet > another email and You get stuck! > > I guess I'm doing something fundamentally wrong?! I have narrowed it > down to that everything works as expected if I don't release the form. > (I get the same error when setting Action to caFree in > SmtpTestFrom.OnClose.) > > Is it not a good idea to free a manually created form? > > Best Regards > Henrik -- To unsubscribe or change your settings for TWSocket mailing list please goto http://www.elists.org/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be -- To unsubscribe or change your settings for TWSocket mailing list please goto http://www.elists.org/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be