Перейти к содержанию
Fire Monkey от А до Я
  • 0

Перехват СМС сообщения от определенного адресата


antarey

Вопрос

Рекомендуемые сообщения

  • 0
  • Модераторы

так сделано в одной из моих программ, автоматическое считывание кода подтверждения оплаты, подредактируй только его и не забудь про разрешения

 

 

uses
  AndroidAPI.Helpers,
  DateUtils,
  AndroidAPI.JNI.GraphicsContentViewText;

function GetATFBankSmsCode: string;
var
  cursor: JCursor;
  address, body: string;
  msgunixtimestampms: int64;
  addressidx, msgdateidx, bodyidx: integer;
  SmsTime: TDateTime;
begin
  cursor := SharedActivity.getContentResolver.query

  addressidx := cursor.getColumnIndex(StringToJstring('address'));
  msgdateidx := cursor.getColumnIndex(StringToJstring('date'));
  bodyidx := cursor.getColumnIndex(StringToJstring('body'));
  while (cursor.moveToNext) do
  begin
    address := JStringToString(cursor.getString(addressidx));
    if Pos('ATFBank', address) > 0 then
    begin
      msgunixtimestampms := cursor.getLong(msgdateidx);
      body := JStringToString(cursor.getString(bodyidx));
      SmsTime := UnixToDateTime(msgunixtimestampms div 1000, false);
      if DateTimeInRange(SmsTime, IncMinute(Now, -1), Now) then
        Result := FormatDateTime('dd.mm.yyyy hh:mm', SmsTime) + #13#10 + address
          + #13#10 + copy(body, body.Length - 4, MaxInt);
      Break;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.text := GetATFBankSmsCode;
end;

 

Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...