郁闷的坦然-优快云博客

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

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

2017-11-26 19:50:23 4046

原创 delphi JBitmapBitmap互转转换

uses Androidapi.JNI.GraphicsContentViewText, FMX.Helpers.Android, FMX.Surfaces;//JBitmap转Bitmapfunction JBitmapToBitmap(const AImage: JBitmap): TBitmap;var bitmapSurface :TBitmap

2017-11-14 14:11:28 1533

转载遍历所有ControlCount

procedure TForm1.FormCreate(Sender: TObject); procedure pScanWinControl(mWinControl: TWinControl); var I: Integer; begin for I := 0 to mWinControl.ControlCount - 1 do begin

2017-11-01 21:16:03 1000

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

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

2017-11-01 10:25:36 1950

转载 Delphi匿名方法

unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs;type //首先声明匿名方

2017-10-18 21:50:22 1482

转载 Delphi ControlState和ControlStyle属性详解

ControlState 属性对应对象：TControl 声明：TControlState = set of (csLButtonDown, csClicked, csPalette, csReadingState, csAlignmentNeeded, csFocusing, csCreating); property ControlState: TControlState;

2017-10-05 10:49:14 1210

转载 Delphi东京版FireDAC连接MSSQL2000

在Delphi 10.2.1 东京版中，FireDAC默认不兼容MSSQL2000，会提示“[FireDAC][Phys][ODBC][Microsoft][ODBC SQL Server Driver][SQL Server]对象名 'SYS.DATABASES' 无效。”的错误，对此需要修改FireDAC.Phys.MSSQL.pas单元进行修复：首先从delphi目录下把FireD

2017-09-26 21:23:54 3302

unit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation, FMX.S

2017-09-24 19:58:14 1213 1

转载 delphi QuotedStr

总结一下SQL语句中引号(')、quotedstr()、('')、format()在SQL语句中的用法以及SQL语句中日期格式的表示(#)、('')在Delphi中进行字符变量连接相加时单引号用('''),又引号用('''')表示首先定义变量var AnInt:integer=123;//为了方便在此都给它们赋初值。虽然可能在引赋初值在某些情况下不对AnIntStr:str

2017-09-23 08:00:35 1670

原创官方自带的Toast

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

2017-09-22 01:21:36 1136

转载 Delphi：窗体自适应屏幕分辨率

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

2015-04-28 00:58:59 6893

转载排序算法总结

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

2014-08-21 12:23:49 614

转载 DELPHI 阳历转农历代码

2014-08-09 13:44:34 2429

原创 Androidapi.JNI.Net.Wifi

{*******************************************************}{ }{ CodeGear Delphi Runtime Library }{ Android API: package "

2014-08-03 14:24:13 3340

原创 XE6 安卓电量检测

unit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls;type TF

2014-08-03 11:10:33 1062

原创手机震动android代码

unit MobelZD;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls;type

2014-07-17 21:17:55 2795

转载获取各类硬件ID汇编代码

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

2014-03-22 15:31:43 5677

原创获取硬盘序列号

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit;

2014-03-12 11:35:29 1865

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

uses Classes, SysUtils, FMX.Helpers.Android, Androidapi.JNI.GraphicsContentViewText, Androidapi.JNI.Net, Androidapi.JNI.JavaTypesprocedure XOpenURL(AUrl: String);var Intent: JIntent;begi

2014-03-11 17:05:23 2746

原创 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 if A[J] < A[J + 1] then begin T :=

2014-01-09 17:14:32 6147

原创 XE5电脑录像功能

unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;typ

2014-01-07 09:14:06 1142

原创 XE5手势

unit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Gestures;type TF

2014-01-07 08:29:00 2343

原创 VC保存结构体到文本

struct modelNode{char p1;short int p2;long p3;}modelNode;void CSmtDlg::OnBnClickedButton1(){ CFile tempFile(_T("c:\\LocalDatas.txt"),CFile::modeCreate|CFile::modeNoTruncate| CFile::modeWrit

2014-01-04 08:19:33 1706

转载 DELPHI U盘插入拔出提示

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,ShellAPI;type TForm1 = class(TForm) Button1: TButton; private

2014-01-03 08:13:44 1078

转载 DELPHI链表

1. 一个简单的typePMyRec = ^MyRec; {把 PMyRec 定义为下面 MyRec 结构的指针类型}MyRec = record Name: string[8]; Age : Word; Link: PMyRec; {结构中同时包含同类型的指针, 用于链接其他同类结构}end;varR1,R2,R3,R4: MyRec;{把 R1、R2、R3、R4 够建成一个环环相扣的"链",

2013-12-11 21:26:21 1755

原创 usb read write

unit USB;interfaceUses SysUtils, Forms, Windows;{******************************************************************************}{* USB - Read / Write Unit

2013-12-07 17:03:35 2445

转载 SetupApi.pas

{******************************************************************}{ }{ Borland Delphi Runtime Library

2013-12-07 15:33:46 3658

转载 Delphi调用API函数操作串口

再贴上一段用API操作串口的代码，还是API好，一目了然，呵呵。 unit main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TF

2013-12-07 11:32:40 4793

转载 Delphi中位的应用

本文属于基础类文章，只适合初学者，高手请止步。另外，本文的前置知识可以参考本站《基于Delphi的Windows程序设计(一)》一文。什么是位(BIT)？其实就是字节的最小组成单位，例如：一个Byte类型的变量占用1个字节，也就是占用8位。一个Word类型占用16位。熟悉C语言的朋友如果使用过位域，可能对此不陌生。例如，IP头结构的定义：1

2013-12-07 08:49:15 904

原创 delphi 用record结构读取记录文件的问题

type //曲线分析 TQxfx = record TTName : string[128]; ZName : string[128]; Xl30150 : Real; sjl30150 : Real; xl150170 : Real; sj150170 : Real; hhxv

2013-12-03 15:35:48 3380

原创 CreateFile

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl;type TForm1 = class(TForm) Button1: TButton; DriveCo

2013-11-25 19:30:04 2005

转载 delphi用createfile打开usb设备

关键是第一个参数：设备链接名。可以通过设备管理器找到相关usb设备，详细信息里边的设备范例ID获取部分信息，如Vid_1eab&Pid_8001#7&c6e4acc&0&1。也可以直接查看注册表HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\DeviceClasses下找到usb设备驱动的guid，进入子键，一般都有一个#健，里面有s

2013-11-23 10:07:56 5850

转载 NXP USB数据分析（Bus Hound）

Device Phase Data Description Cmd.Phase.Ofs(rep) Delta Date Time ------ ----- ------------------------ ---------------- ------------------ ----- --

2013-11-22 16:27:58 1279

转载关于在DELPHI 里如何调用USB设备

关于在DELPHI 里如何调用USB设备，其实很简单：步骤如下：以AVR309为例：1，创建设备句柄：DrvHnd:=CreateFile(PChar(Drvfile),GENERIC_WRITE or GENERIC_READ, FILE_SHARE_WRITE or FILE_SHARE_READ, nil,OPEN_EXISTING

2013-11-22 13:56:18 8414

原创 Delphi FireMonkey 学习笔记 – TPopup 控件的使用

TPopup 控件可以用于类似菜单或 comboBox 弹出方式显示控件内容，例如下图所示的 CallOutPanel 在点击 button2 之后显示出来，当 CallOutPanel 失去焦点后即会消失。方法很简单，就是将 TPopup 控件放到窗体上，然后，将需要显示的控件拖放到 TPopup 控件里，注意，TPopup 控件必须是它的父级，如下图，在结构树中，需要显示的控件

2013-11-05 08:57:12 4658

原创 xe5 JSON

unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,DBXJSON;type TF

2013-10-30 11:45:31 1724

原创 net(c#)验证码

前面发表过一个验证码，但感觉不好，今天在发表一个，带噪点的，看起来更专业一点。前台CheckCode.aspx CheckCode 后台CheckCode.aspx.csus

2013-10-26 12:00:22 715

原创 XE5 FTPSERVER

unit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, IdContext, IdFTPServer

2013-10-24 14:34:01 2035 1

原创 XE5技巧

一、手机快捷方式显示中文名称 project->options->Version Info-label(改成需要显示的中文名即可），但是需要安装到安卓手机才可以（IOS的没有试过）二、使用Sqllite存储中文 SqlLite中，字段类型要设置为nvarchar，保存时，有两种方式 1）用Post时，对中文的字段要进行UTF8转换先用一个string变

2013-10-17 18:19:35 1497

原创 XE5 JSON与Delphi Object的互换

unit Unit2;interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, DBXJSON, DBXJSON

2013-10-16 18:47:18 5044

空空如也

空空如也