2022-12-29 66 0

procedure ToInstallApk(filename: string);var aFile: Jfile; Intent: JIntent;begin Try aFile := TJfile.JavaClass.init(stringtojstring(DownPath),stringtojstring(filename)); Intent := TJIntent.Create; Intent.setAction(TJIn

2022-12-29 61 0

firedac获取自增长字段值var autoinc: Variant := FDConnection1.GetLastAutoGenValue('表名');

2022-12-29 161 0

//获取临时文件路径（支持安卓、IOS）function GeFileName(const AFileName: string): string;begin{$IFDEF ANDROID}Result := TPath.GetTempPath + '/' + AFileName;{$ELSE}{$IFDEF IOS}Result := TPath.GetHomePath + '/Documents/' + AFileName;{$ELSE}Result := AFileN

2022-12-29 100 0

//获取手机信息function GetPhoneInfo(): string;Var TelephonyManager: JTelephonyManager; TelephonyServiceNative: JObject;begin result := ''; TelephonyServiceNative := SharedActivityContext.getSystemService (TJContext.JavaClass.TELEPHONY_SERVICE);

2022-12-29 93 0

Delphi XE Android/IOS 实现图片放大缩小的两种方法1、TImagevar LObj: IControl; LImage: TImage; LImageCenter: TPointF;begin if EventInfo.GestureID = igiZoom then begin LObj := Self.ObjectAtPoint(ClientToScreen(EventInfo.Location)); if LObj is TImage then be

2022-12-29 60 0

1、标准手势 TStandardGesture sgLeft = sgiLeft,sgRight = sgiRight,sgUp = sgiUp,sgDown = sgiDown,sgUpLeft = sgiUpLeft,sgUpRight = sgiUpRight,sgDownLeft = sgiDownLeft,sgDownRight = sgiDownRight,sgLeftUp = sgiLeftUp,sgLeftDown = sgiLeftDown,sgRightUp = sgiRightUp

2022-12-29 83 0

Delphi XE10 手机端错误提示：Detected problems with API compatibility (visit g.co/dev/appcompat for more info)解决方法：1、升级你的SDK ，大于等于28版本即可2、或者修改开发目录下的 AndroidManifest.template.xml 文件：<uses-sdk android:minSdkVersion="%minSdkVersion%" android:targetSdkVe

2022-12-29 24 0

Delphi XE 安卓Web开发 错误：net::ERR_CLEARTEXT_NOT_PERMITTED解决方法：　　1、确保已经申明权限（AndroidManifest.xml 文件）<uses-permission android:name="android.permission.INTERNET" />　　2、开启 usesCleartextTraffic<application android:usesCleartextTraffic="t