Delphi

Delphi App检测智能手机震动
Delphi

Delphi App检测智能手机震动

36 0

当您想在摇动智能手机时执行某些操作时,没有像OnShake这样方便的事件。不幸的是,仅凭传感器无法确定它是被摇动还是被移动。如果您搜索诸如“ Android抖动检测”之类的关键字,那么每个人都会以各种逻辑对其进行检测。(基本上是使用加速度传感器检测到的)我用Delphi开发的应用程序实现了它。加速度传感器组件TMotionSensor和TTimer用于通过粗略算法检测挥杆宽度和速度。粗略算法如果在一定时间段(0.3秒)内摆动宽度为±1或更大,则将其计数,如果计数为3或更大,则将其视为抖动。由于

Delphi

Delphi FMX播放m4a声音文件

72 0

您可以使用Delphi的FMX框架轻松播放声音文件。例如,播放hoge.mp3文件时,将TMediaPlayer粘贴在Form上,然后编写如下。uses FMX.Media;MediaPlayer1.FileName := 'hoge.mp3';if MediaPlayer1.Media<>nil then begin MediaPlayer1.Play;end;除此之外,TMediaPlayer还可以使用Stop方法和属性,例如CurrentTime,Duration,

Delphi

Delphi TNotification Android通知

37 0

procedure TForm2.Button1Click(Sender: TObject);// 通知var mNotice: TNotification;begin mNotice := NotificationCenter1.CreateNotification; mNotice.Name := 'NoticeTest'; mNotice.Title := '通知'; mNotice.AlertBody := '通知内容';// 通知 N

Delphi

Delphi TFileStream 逐行读取文本

76 0

function ReadTXTInfo: String;var Ch: Char; FS: TFileStream;begin Result := ''; FS := TFileStream.Create('animals.txt', fmOpenRead); try while FS.Read(Ch, 1) = 1 do Write(Ch); Writeln; finally FS.DisposeOf; end;end;

Delphi

Delphi 打开Android应用信息

69 0

您可以从Android应用程序打开应用程序信息屏幕。请在此处查看详细信息。https://developer.android.com/reference/android/provider/Settings.html为此,传递ACTION_APPLICATION_DETAILS_SETTINGS和package:并连接应用程序的包名称以打开它。您可以将程序包连接起来:自己输入字符串,也可以指定另一个应用程序的程序包名称以打开该应用程序的设置屏幕。样例代码unit Unit1;interfaceuses

Delphi

Delphi 控制台应用程序 hello world

53 0

program HelloWorld;{$APPTYPE CONSOLE}{$ R * .res}$ R指令将资源添加到程序中。如果不添加,则在防病毒软件中可能被标记为“病毒!”。begin Writeln('Hello,World.');end.

Delphi

Delphi TStreamReader TFile AssignFile读取文本文件

59 0

在Delphi中有多种读取文本文件的方法,但是有优点和缺点,因此请根据情况正确使用它们。我认为使用TStreamReader或TFile是正常的,但是存在无法读取锁定文件的问题。 TStreamReaderTFileAssignFile读取锁定的文件××○读取锁定的文件○○×逐行读取○×○字符码支持△△△从头开始重读(重置)××○ 关于编码TStreamReaderTFileAssignFileAscii○○○SJIS△○○UTF-8(无BOM

Delphi中使用TPathAnimation
Delphi

Delphi中使用TPathAnimation

78 0

FireMonkey具有一个动画组件,该组件会随时间更改属性的值。对于动画,在“我根据属性值检查了动画的差异”中,从起点到终点的移动是否随属性的值而不同?介绍了大多数动画组件都在一个方向上更改值,但某些组件具有使用TPathAnimation之一可以沿一组值更改的便利属性。锯我做了一个这样的demo1单击“向下”按钮将栏向下移动501单击“下界”按钮以反弹动作将小节向下移动50当您单击“新建一个”按钮时,该条将从顶部下降并返回到初始状态设计时有两点FloatAnimation和PathAnimation