Henrik, Hmm, your 'workaround' doesn't sound logical, why should a secondary instance of a _V5_ component have any effects, strange? Do you close the SMTP-form while mail is been sent? Is the SMTP-form yet destroyed when you create another one? When does it freeze exactely (try the buttons on the left, Connect etc. instead)? How is the CPU load when it freezes? What is different with the two boxes, any Anti Virus software, any personal firewall etc.?
--- Arno Garrels [TeamICS] http://www.overbyte.be/eng/overbyte/teamics.html Henrik wrote: > 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:twsocket- > [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
