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 修改webbrowser的内容

Delphi hex 相关单元

Delphi 之 编辑框控件(tedit)

Delphi xe 泛型数组和splitstring处理数据

Delphi 获取单汉字拼音首字母

扩展 Delphi 线程 使之传递参数.（给匿名线程增加参数）

Delphi有无生成空格的函数，like vb的space(1)

Delphi exec error 错误处理

Delphi将图片缩放成指定大小

Delphi 如何快速读取文本文件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi XE5 android 发短信以及目录