смс

[www12]

как сделать или до писать чтоб смс отправлялась только один раз и все при повторном запуске смс не отправлялась

спасибо




begin
// start sending SMS to phone number +5550000
if not SmsStartSend('sms://+5550000', 'Hello!') then Halt;

// wait until the message is sent
while SmsIsSending do
Delay(100);

// check if the message was sent successfully
if not SmsWasSuccessfull then Halt;
end.

что никто не знает

[ViNT]

После первого запуска записать в RMS, что смс уже отправлено, а при повторных запусках проверять, есть ли эта запись, если есть - не отправлять.

[www12]

а как это будет выглядеть писменно а то яне поняла ваши слова

т.е командами

[ViNT]

Примерно так:

var
 RS:RecordStore;
 S:String;
 idx:integer;
begin
  RS:=OpenRecordStore('sms');
  S:=ReadRecordStoreEntry(RS,1);
  if S<>'sent' then
  begin
   //Здесь код отправки смс
   idx:=AddRecordStoreEntry(RS,'sent');
  end;
  CloseRecordStore(RS); 


[www12]

спасибо вам все получилось