make sur that the sms is sending!

[byterdf]

I have folder with many files! the one file contain number with text sms! i have in timer this code :
Code: [Select]
for i := 0 to ListBoxfile.Items.Count - 1 do
  begin
    AssignFile(F, IncludeTrailingPathDelimiter(EditDossier.Text) +
      ListBoxFichier.Items);
    Reset(F);
    Readln(F, gsm);
    Delete(gsm, 1, 7);

    Readln(F, s);
    txt := '';
    repeat
      Readln(F, s);
      txt := txt + s;
    until eof(F);
    closefile(F);
    deletefile(PWideChar(IncludeTrailingPathDelimiter(EditDossier.Text) +
      ListBoxfile.Items)
      SendAlertSmspdu(gsm, txt, True);
  end;
end;
the problem is how i can sur that the all files is sending? i not talk about report just about sending!
have a nice day!

[Roman Novgorodov]

Hello

You can handle OnSmsSent event.
If this event is raised you can delete or move (into "SENT" folder) file associated with last sent SMS file.
To make all in one loop is not correct.

Roman Novgorodov
DeepSoftware llc