delphi XE5 android 发短信以及目录-木庄网络博客

本文整理自网络，侵删。
 unit Dxc;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Layouts, FMX.Memo,FMX.Platform.Android, FMX.Edit,System.Math, FMX.ListBox;

type
  TSendSMSForm = class(TForm)
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    Memo1: TMemo;
    Button1: TButton;
    StyleBook1: TStyleBook;
    Button2: TButton;
    Button3: TButton;
    Memo2: TMemo;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button4: TButton;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SendSMSForm: TSendSMSForm;
  myThread: TThread;
implementation

{$R *.fmx}

uses
  Androidapi.JNI.JavaTypes,Androidapi.JNI.Telephony,System.IoUtils,androidapi.IOUtils;



function SendSMS(tel,str:string):Boolean;
var
  j: JSmsManager;
begin
  j := tjsmsmanager.Create;
  j.sendTextMessage(stringtojstring(tel), nil, stringtojstring(str), nil, nil);
  Result := True;
end;


procedure MyMethod;
var
  i,x: Integer;
  str:string;
  tel:string;
  s:string;
begin
  for i := 0 to SendSMSForm.Memo2.Lines.Count -1 do
  begin
   // str:=SendSMSForm.Memo1.Lines.Text+datetimetostr(Now);
    str:=SendSMSForm.Memo1.Lines.Text;
    tel:=SendSMSForm.Memo2.Lines.Strings[i];
    if (Trim(tel)<>'') and (Trim(str)<>'') then begin
     SendSMS(tel,str);
    end;
    x:= RandomRange(StrToInt(SendSMSForm.Edit1.Text)*1000,StrToInt(SendSMSForm.Edit2.Text)*1000);
    Sleep(x);
  end;
end;

procedure TSendSMSForm.Button1Click(Sender: TObject);
begin
 myThread := TThread.CreateAnonymousThread(MyMethod); //!!!
 myThread.Start;
end;

procedure TSendSMSForm.Button2Click(Sender: TObject);
begin
  MainActivity.finish;
end;

procedure TSendSMSForm.Button3Click(Sender: TObject);
begin
 myThread.suspend;
end;

procedure TSendSMSForm.Button4Click(Sender: TObject);
var
 i:Integer;
 s,m:string;
begin
  for s in TDirectory.GetFiles(Androidapi.IOUtils.GetSharedCameraDir) do
   Memo1.Lines.Add(s);
   for s in TDirectory.GetDirectories('/storage')do
   Memo1.Lines.Add(s);
   for s in TDirectory.GetDirectoryRoot('/storage/sdcard0/DCIM/Camera')do
   Memo1.Lines.Add(s);
   Memo1.Lines.Add('/////////////////////////////////////////////////');
    for s in TDirectory.GetDirectories(TDirectory.GetDirectoryRoot('/storage/sdcard0/DCIM/Camera'))do
   Memo1.Lines.Add(s);
end;

end.
delphi XE5 android 发短信以及目录

相关推荐

评论
