将Bitmap位图转化为base64字符串互转

///将Bitmap位图转化为base64字符串 function BitmapToString(img:TBitmap):string ; var   ms:TMemoryStream;   ss:TStringStream;   s:string; begin     ms := TMemor...

2017-11-26 19:50:23

阅读数:137

评论数:0

delphi JBitmapBitmap互转转换

uses   Androidapi.JNI.GraphicsContentViewText,   FMX.Helpers.Android,   FMX.Surfaces; //JBitmap转Bitmap function JBitmapToBitmap(const AImage: JBitm...

2017-11-14 14:11:28

阅读数:173

评论数:0

遍历所有ControlCount

procedure TForm1.FormCreate(Sender: TObject);   procedure pScanWinControl(mWinControl: TWinControl);   var     I: Integer;   begin     for I := ...

2017-11-01 21:16:03

阅读数:138

评论数:0

Delphi中拖动无边框窗口的5种方法

1.MouseMove事件中加入: // ReleaseCapture; // Perform(WM_SYSCOMMAND, $F017 , 0); 2.MouseDown事件中加入: // POSTMESSAGE(Self.Handle,WM_LBUTTONUP,0,0); ...

2017-11-01 10:25:36

阅读数:97

评论数:0

Delphi匿名方法

unit Unit1; interface uses   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,   Vcl.Contr...

2017-10-18 21:50:22

阅读数:106

评论数:0

Delphi ControlState和ControlStyle属性详解

ControlState 属性  对应对象:TControl  声明:TControlState = set of (csLButtonDown, csClicked, csPalette, csReadingState, csAlignmentNeeded, csFocusing, csCr...

2017-10-05 10:49:14

阅读数:88

评论数:0

Delphi东京版FireDAC连接MSSQL2000

在Delphi 10.2.1 东京 版中,FireDAC默认不兼容MSSQL2000,会提示“[FireDAC][Phys][ODBC][Microsoft][ODBC SQL Server Driver][SQL Server]对象名 'SYS.DATABASES' 无效。”的错误,对此需要修改...

2017-09-26 21:23:54

阅读数:1174

评论数:0

DELPHI XE 10 拒接来电黑名单

unit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Grap...

2017-09-24 19:58:14

阅读数:211

评论数:0

delphi QuotedStr

总结一下SQL语句中引号(')、quotedstr()、('')、format()在SQL语句中的用法以 及SQL语句中日期格式的表示(#)、('') 在Delphi中进行字符变量连接相加时单引号用('''),又引号用('''')表示 首先定义变量 var  AnInt:integer=...

2017-09-23 08:00:35

阅读数:129

评论数:0

官方自带的Toast

uses   Androidapi.JNI.Widget; procedure TFormMain.Button1Click(Sender: TObject); begin  TJToast.JavaClass.makeText(                     ...

2017-09-22 01:21:36

阅读数:82

评论数:0

Delphi:窗体自适应屏幕分辨率

delphi 程序适应屏幕分辨率,先在表单单元的Interface部分定义两个常量, 表示设计时的屏幕的宽度和高度(以像素为单位)。 在表单的Create事件中先判断 当前分辨率是否与设计分辨率相同, 如果不同,调用表单的SCALE过程重新能调整表单中控件的宽度和高度。 Const   O...

2015-04-28 00:58:59

阅读数:2502

评论数:0

排序算法总结

unit paixu; interface // 冒泡排序 procedure BubbleSort(var abc: array of Integer); // 摇动排序 procedure ShakerSort(var abc: array of Integer); // 梳子排序 p...

2014-08-21 12:23:49

阅读数:378

评论数:0

DELPHI 阳历转农历代码

unit DateCn; interface uses Windows, SysUtils, Controls; const //农历月份数据,每年4字节,从1901年开始,共150年 //数据来源:UCDOS 6.0 UCT.COM //分析整理:Cop...

2014-08-09 13:44:34

阅读数:1090

评论数:0

Androidapi.JNI.Net.Wifi

{*******************************************************} { } { CodeGear Delphi Runti...

2014-08-03 14:24:13

阅读数:2077

评论数:1

XE6 安卓电量检测

unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, ...

2014-08-03 11:10:33

阅读数:789

评论数:0

手机震动android代码

unit MobelZD; interface uses   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,   FMX.Types, FMX.Controls, FMX.For...

2014-07-17 21:17:55

阅读数:1253

评论数:0

获取各类硬件ID汇编代码

{----------------------------------------------------------------------------- 作者:sushengmiyan 2013.01.26 备注: 功能:硬件信息获取单元 ---------------------------...

2014-03-22 15:31:43

阅读数:2763

评论数:0

获取硬盘序列号

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class...

2014-03-12 11:35:29

阅读数:1032

评论数:0

XE5 android怎么调用自带浏览器打开网页

uses Classes, SysUtils, FMX.Helpers.Android, Androidapi.JNI.GraphicsContentViewText, Androidapi.JNI.Net, Androidapi.JNI.JavaTypes procedure ...

2014-03-11 17:05:23

阅读数:1308

评论数:0

DELPHI数组排序

procedure Sort(var A: array of Integer); var   I, J, T: Integer; begin   for I := High(A) downto Low(A) do     for J := Low(A) to High(A) - 1 do     ...

2014-01-09 17:14:32

阅读数:2136

评论数:0

提示
确定要删除当前文章?
取消 删除
关闭
关闭