Delphi

Delphi

扩展 delphi 线程 使之传递参数.(给匿名线程增加参数)

86 0

新delphi的线程TThread有了CreateAnonymousThread方法,如果再为它加一个可传递的参数不就更好了吗?代码如下:复制代码复制代码 TAnonymousThreadX<T> = class(TThread) private FProc: TProc<T>; AValue:T; protected procedure Execute; override; public constructor Create(const APro

Delphi

Delphi android windows IOS通用获取程序版本

63 0

{$IFDEF MSWINDOWS}uses Winapi.Windows, ShlObj, FMX.PlatForm.Win, ShellAPI;{$ENDIF}{$IFDEF ANDROID}uses Androidapi.JNI.JavaTypes, Androidapi.Helpers, Androidapi.JNI.GraphicsContentViewText;{$ENDIF}//上面引用仅供参考{$IFDEF ANDROID}function GetAppVersion: String;

Delphi

DELPHI写的播放器核心代码,播放MP3无压力

169 0

DELPHI写的播放器核心代码,播放MP3无压力主窗口代码:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, tcMMControl; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure FormC

Delphi

Delphi XE下的FMX中压缩图片

120 0

用FMX压缩图片,发现FMX里的canvas没有draw,stretch,cliprect类,FMX里程序创建时会自动引用FMX.Graphics,而这个单元内的TBitmap类的Canvas没有StretchDraw属性,也没有ClipRect类,所以定义TBitmap的图片不能裁剪。而在VCL里,同样的方法却可以裁剪,原因在于vcl里引用的是vcl.graphics,引用单元不一样,平台不一样.解决方法:把FMX里自身引用的FMX.Graphics删掉,换成VCL.Graphics.XE里的FMX是

Delphi

Delphi XE Andriod 文件后缀对应MIME类型

31 0

Delphi XE Andriod 文件后缀对应MIME类型//{后缀名, MIME类型}{".3gp", "video/3gpp"},{".apk", "application/vnd.android.package-archive"},{".asf", "video/x-ms-asf"},{".avi", "video/x-msvideo"}

Delphi

Delphi XE Android platform uses-permission[1] 权限列表

55 0

ACCESS_CHECKIN_PROPERTIES //允许读/写访问“属性”签到表 数据库,改变值,得到上传。ACCESS_COARSE_LOCATION //允许应用程序访问来自网络位置近似位置 基站和无线网络等资源。ACCESS_FINE_LOCATION //允许应用程序访问位置来源的精确位置 GPS、基站和无线网络。ACCESS_LOCATION_EXTRA_COMMANDS //允许应用程序访问额外的位置提供者命令ACCESS_MOCK_LOCATION //允许应用程序创建模拟位

Delphi 获取ListBox1多选的值
Delphi

Delphi 获取ListBox1多选的值

153 0

vari:integer;beginfor I := 0 to ListBox1.Items.Count-1 dobeginif ListBox1.Selected[I] then beginMemo2.Lines.Add(ListBox1.Items.Strings[I]);end;end;