[twsocket] TsmtpCli - Event Mail Sent - Delete Attached Temp Files.

[wayne forrest]

Hello,

I have a problem knowing when to delete temp files, the attachments to the
Email message;

Here is my Problem I am having.

=====================================
FIRST TRY
=====================================

(1'st Email)
(Trigger to Send Email)------>Class Fucntion to Send Email.
                                            Event Mail Sent -->Delete Temp


(2'nd Email)
(Trigger to Send Email)------>Class Fucntion to Send Email.
                                            Event Mail Sent -->Delete Temp


My problem is that the File List (TStrings) is LOST or not initialized since
it is not STATIC;


=========================
SECOND ATTEMPT
=========================

I have recently changed the CLASS Structure to not use Class Functions;

But there is a problem: How do I know when to FREEandNil;
freeandNil(Jmail); // MAIL MIGHT NOT BEEN SENT AT THIS STAGE!!!!


//SEND AN EMAIL
JMail := TJEmailer.Create(nil);
JMail.sendEmail(bodytext,'Alarm!',attachList,JpegImagesPath);
freeandNil(Jmail); // MAIL MIGHT NOT BEEN SENT AT THIS STAGE!!!!


procedure TJEmailer.MailServerRequestDone(Sender: TObject;
  RqType: TSmtpRequest; ErrorCode: Word);
begin
IF RqType = smtpQuit then
begin
                    deleteTempImages();
end;
end;


procedure TJEmailer.deleteTempImages();
var
  idx : Integer;
begin
  for idx := 0 to (imageListD.Count-1) do
    DeleteFile(imageListD[idx]);
  RemoveDir(JpegImagesPath);
  //freeAndNil(imageListD);
end;
-- 
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