Author Topic: make sur that the sms is sending!  (Read 720 times)

byterdf

  • Newbie
  • *
  • Posts: 2
    • View Profile
make sur that the sms is sending!
« on: February 07, 2014, 10:37:59 am »
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

  • Engineer
  • Administrator
  • Hero Member
  • *****
  • Posts: 994
  • we will win
    • View Profile
    • Forums.nrCommLib.Com
Re: make sur that the sms is sending!
« Reply #1 on: February 07, 2014, 11:08:18 am »
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
DeepSoftware llc - The professional components for Delphi/CBuilder/.NET. The high quality custom software development.
Forums.nrCommLib.Com - DeepSoftware Tech Support Forum.