- 博客(49)
- 资源 (20)
- 收藏
- 关注
原创 XE 10 UAC
新版本的XE已包含UAC权限设置了,不再有那么多麻烦的设置步骤! As Invoker : 以当前用户默认的权限运行。Highest Available: 以当前用户可以获得的最高权限运行。(非管理员权限也能运行)Require Administrator: 以系统管理员权限运行。(非管理员权限不能运行)
2017-11-20 09:22:57
690
原创 Delphi RTTI 动态创建Form
无需引用单元,直接创建对应Form procedure MyShowForm(FormName: string); var ctxRtti: TRttiContext; typeRtti: TRttiType; methRtti: TRttiMethod; LClass: TRttiInstanceType; aForm: TCustomFor
2017-09-20 09:53:40
1199
原创 TSF输入法列表获取
TSF:Microsoft Windows 文本服务框架(TSF) 是一个包含在Windows XP 及其后继版本操作系统的系统服务。TSF为高级文本输入的通信以及自然语言技术提供了一个简单的可扩展的框架。以上引自百度百科。引用Winapi.MsCTF单元,如果没有去高版本XE里面搜一搜,或者百度一下。procedure TForm1.btnSTFCli
2017-09-13 10:05:15
2963
3
原创 Angular2MVC5Application错误
Build:类“Subject”错误扩展基类“Observable”"dependencies": { "@angular/common": "2.0.0-rc.1", "@angular/compiler": "2.0.0-rc.1", "@angular/core": "2.0.0-rc.1", "@angular/http": "2.0.0
2017-08-04 17:04:59
671
1
原创 两个ScrollBox同步滚动
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;type TScrollBox=C
2016-10-08 15:06:23
2284
原创 DELPHI XE Android 开发笔记
第一次编译时,设定android SDK:F:\RAD Studio XE6\PlatformSDKs\adt-bundle-windows-x86-20131030\sdkF:\RAD Studio XE6\PlatformSDKs\android-ndk-r9cC:\Program Files\Java\jdk1.7.0_40SDK更新代理XE6 不支持
2016-07-20 10:01:54
20601
转载 Xe5开发web服务端和手机客户端
核心提示:我们开发一个三层的android程序建立一个webservices stand-alone vcl application 作为手机访问的服务端1、new-other-webservices2、选择s...我们开发一个三层的android程序建立一个webservices stand-alone vcl application 作为手机访问的服务端1、new->
2015-11-16 15:53:12
1358
转载 Delphi XE 如何实现("再按一次退出") 然后退出程序
关于toast("再按一次退出")退出程序后:现在很多应用都是需要再按一次退出按钮后再退出应用,现在下面介绍了如何实现这样的功能,首先我们添加一个单元FMX.Android.JNI.Toast。需要在toast单元中定义一个全局变量TJToast。unit FMX.Android.JNI.Toast;interface{$IFDEF ANDROID}uses
2015-11-14 14:27:21
3151
转载 MessageDlg在两个Form中显示的结果不一样
先看下面这两个对话框的显示,正如你看到的,效果不一样。而这两个对话框都是用下面这句显示的,只不过,在两个Form中调用。 MessageDlg('是否退出?', System.UITypes.TMsgDlgType.mtConfirmation, [System.UITypes.TMsgDlgBtn.mbOK, System.UITypes.TMsgDlgBtn
2015-06-04 11:08:06
726
转载 Delphi XE8 利用HttpClient实现的一个App自动更新组件
第一个版本,分享了。unit AutoUpdate;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, System.IOUtils, System.JSON, System.Net.HttpClient{$IFDEF MS
2015-06-01 14:00:08
3347
转载 Delphi常用快捷键
delphi是我学编程时的入门语言,用过一年多的时光,个人对它还是挺喜欢的。现在用的少了,一些快捷键和语法也有些遗忘了,这里对delphi的快捷键做个总结,留个纪念。嘿嘿,不知道还有多少人还用着这门语言?代码标记和切换 Ctrl+Shift+NUM 、 Ctrl+NUMCtrl+Shift+NUM 在光标行设置最多九个临时标志号,对临时切换非常有用。行的左边将出现一本书,封
2015-05-30 16:04:36
1105
转载 修复 XE8 for Android 分享图片到 Gmail 权限不足的问题
问题:打开 XE8 的 ShareSheet 示例,发布到 Android 实机,按 Share 选 Gmail 结果显示:没有权限添加附件。 适用:XE8 for Android修复方法:请将源码 FMX.MediaLibrary.Android.pas 复制到自己的工程目录里,再进行修改。找到下面代码:SharedActivity.sta
2015-05-30 15:18:20
571
转载 修复 XE8 for Android 方向传感器 headingX,Y,Z 不会动的问题
问题:XE8 for Android 方向传感器无法正常运作(在 XE7 是正常的)测试:官方示例 Samples\Object Pascal\Mobile Snippets\OrientationSensor\适用:XE8 for Android修复方法:请将源码 System.Android.Sensors.pas 复制到自己的工程目录里,再进行修改。修
2015-05-30 14:28:22
690
转载 DELPHI XE7,开发代号Carpathia,一些新语法和新特性!
1.Showmessage/msessagedlg/raise Exception 终于切换不卡死,虽然来晚了。以前做安卓用安卓的JNI解决对话框,现在可以用FMX对话框解决,但那个raise异常对话框还是无法替换。跨平台对话框终究才是出路。2.ListView支持下拉刷新。ListView+各种风格,玩爆Listbox, 遐想无限。3.加入了TMultiView和TDetailP
2015-05-30 11:15:00
2129
转载 Delphi读取Android设备联系人.DelphiXE6中编译通过
和某牛讨论Delphi读Android联系人.写了如下代码uses FMX.Helpers.Android, Androidapi.JNI.JavaTypes, Androidapi.JNI.GraphicsContentViewText, FMX.Platform.Android, Androidapi.JNIBridge, Androi
2015-05-30 09:31:50
1377
转载 XE8 (RTM) Android SDK 更新安装,xe8android
适用:XE8 Android 平台 问题:安装 XE8 RTM 时,如果勾选了 Android SDK 5.0.1 (API 21) 及 Android NDK (android-ndk-r9c) ,安装后记得更新 Android SDK。 ▼步骤一:打开 Option 可看到许多对应不到的路径。 ▼步骤二:进入下面路径,运行 UpdateA
2015-05-28 16:34:37
1552
转载 Delphi XE 获取汉字拼音首字母
unction CnPYIndex(const CnString: string): string;{ 返回中文的拼音首字母}const ChinaCode: array[0..25, 0..1] of Integer = ((1601, 1636), (1637, 1832), (1833, 2077), (2078, 2273), (2274,
2015-05-15 14:14:13
3110
转载 让delphi程序不受WINDOWS日期格式的影响
如果WINDOWS系统的短日期格式为“yyyy/m/d”,执行下面的代码会报错:2013-01-29 00:00:00不是合法的日期procedure TFrmQuerySale.FormShow(Sender: TObject);varsDate: string;begininherited;// 默认查当天的销售数据sDate := FormatDateTime('
2015-05-15 14:11:03
519
转载 Delphi的四舍五入函数
一、四舍五入法 四舍五入是一种应用非常广泛的近似计算方法,其有算术舍入法和银行家舍入法两种。 所谓算术舍入法,就是我们通常意义上的四舍五入法。其规则是:当舍去位的数值大于等于5时,在舍去该位的同时向前位进一;当舍去位的数值小于5时,则直接舍去该位。 所谓银行家舍入法,其实质是一种四舍六入五留双(又称四舍六入五奇偶)法。其规则是:当舍去位的数值小于5时,直接舍去该位;当
2015-05-15 10:25:48
2050
转载 delphi 读取excel 两种方法
两种方法,一是用ADO连接,问题是Excel文件内容要规则,二是用OLE打开,但操作就没有象操作数据库那么方便了.一、用ADO连接:设置属性ConnetionString 选择 Microsoft Jet 4.0 OLE DB provider Select or enter a datasorce name -> 选择你要打开Excel文件 User name默认是A
2015-05-15 10:07:37
1376
转载 delphi excel 对象释放
代码如下: ... ExcelApp,workbook: Variant; ... ExcelApp:=CreateOleObject( 'Excel.Application '); workbook:=CreateOleObject( 'Excel.sheet ');上次大家给我的代码是: workbook.close; Exc
2015-05-15 09:49:50
2109
转载 多线程编程
有一段多线程的程序需要完善, 捋了一遍 XE4 中关于多线程的源码, 发现有这三个类方法就足够我用了, 暂时结束学习.TThread.CreateAnonymousThread(); //普通TThread.Queue(); //队列TThread.Synchronize(); //VCL 同步转自: http://www.c
2015-05-04 10:43:49
443
转载 TeeChart用法
1、TChart Hello world放一个控件到窗体上,然后写代码加入一个折线数据序列: var Series: TLineSeries; begin Series := TLineSeries.Create(Chart1); Series.Add(100, '头部', clRed); Series.Add(200, '颈部', clGreen); Chart1.AddSeries(Ser
2015-04-27 11:12:44
12623
转载 Delphi中@,^,#,$特殊符号意义
概述: ^: 指针 @: 取址 #: 十进制符 $: 十六进制符@:取址运算符;var int:integer; p:^integer;begin new(P); int:=24; p:=@int; dispose(P);end;^:指针的引用解析操作符;var pint:^integer;
2015-04-09 09:07:46
596
翻译 LookUp下拉框 EOleException 未知错误
将ADOQUERY的lookup字段的lookupCache设为True(缺省为False)即可。
2014-11-19 14:09:08
803
转载 VCLZip 用法
//zip 用的是 VCLUnZip, VCLZip 控件//得到所有子目录列表function GetAllSubDir(Directory: string; var RetList: TStringList): Boolean;//得到所有子目录文件列表function GetAllDirFile(Directory: string; var RetList: TStringL
2014-11-15 08:53:04
1486
转载 Delphi XE 开发IOS
需求 这个 demo 的要求: Embarcadero Delphi XE2的试用版 (差不多占用了所花费总时间的42%来填写表格,然后再获取工具)Mac Lion 10.2+ 从AppStore免费获取XCode 一台越狱过的IPhone用来检验实际设备上的效果 (或者有一个开发者证书可用于签名)简单的程序 - 这是演示的是简化的3x3格的井字棋游戏. 为了开发一个 IOS
2013-03-14 13:31:40
3694
转载 C# 网络编程系列七:UDP编程补充——UDP广播程序的实现
上次因为时间的关系,所以把上一个专题遗留下的一个问题在本专题中和大家分享下,本专题主要介绍下如何实现UDP广播的程序,下面就直接介绍实现过程和代码以及运行的结果。一、程序实现UDP广播程序的实现代码: using System;using System.Net;using System.Net.Sockets;using System.Text;using
2013-03-04 20:11:19
490
转载 C# 网络编程系列六:UDP编程
引用:前一个专题简单介绍了TCP编程的一些知识,UDP与TCP地位相当的另一个传输层协议,它也是当下流行的很多主流网络应用(例如QQ、MSN和Skype等一些即时通信软件传输层都是应用UDP协议的)底层的传输基础,所以在本专题中就简单介绍下UDP的工作原理和UDP编程的只是,希望可以对刚接触网络编程的朋友起到入门的作用。一、UDP介绍UDP和TCP都是构建在IP层之上传输层的协议,但U
2013-02-28 18:53:22
456
转载 C# 网络编程系列五:TCP编程
前言 前面专题的例子都是基于应用层上的HTTP协议的介绍, 现在本专题来介绍下传输层协议——TCP协议,主要介绍下TCP协议的工作过程和基于TCP协议的一个简单的通信程序,下面就开始本专题的正文了。 一、TCP的工作过程首先TCP是一种面向连接的,可靠的,基于字节流的传输层通信协议。TCP的工作过程可以分为三个阶段:一、连接的建立; 二、传输数据; 三、断开连接,下面就对这三
2013-02-28 17:16:06
421
转载 C# 网络编程系列四:自定义Web浏览器
前言:前一个专题介绍了自定义的Web服务器,然而向Web服务器发出请求的正是本专题要介绍的Web浏览器,本专题通过简单自定义一个Web浏览器来简单介绍浏览器的工作原理,以及帮助一些初学者揭开浏览器这层神秘的面纱(以前总感觉这些应用感觉很深奥的,没想到自己也可以自定义一个浏览器出来),下面不啰嗦了,进入正题。一、Web浏览器的介绍Web浏览器是指可以显示Web服务器或者本地文件系统中的H
2013-02-28 17:11:04
1075
转载 C#网络编程系列三:自定义Web服务器
前言:经过前面的专题中对网络层协议和HTTP协议的简单介绍相信大家对网络中的协议有了大致的了解的, 本专题将针对HTTP协议定义一个Web服务器,我们平常浏览网页通过在浏览器中输入一个网址就可以看到我们想要的网页,这个过程中浏览器只是一个客户端,浏览器(应用层应用程序)通过HTTP协议把用户请求发送到服务端, 服务器接受到发送来的HTTP请求,然后对请求进行处理和响应,最后把响应的内容发送给客
2013-02-27 10:03:19
471
转载 C#网络编程系列二:HTTP协议详解
我们在用Asp.net技术开发Web应用程序后,当用户在浏览器输入一个网址时就是再向服务器发送一个HTTP请求,此时就使用了应用层的HTTP协议,在上一个专题我们简单介绍了网络协议的知识,主要是为了后面讲HTTP协议做一个铺垫的 我们在用Asp.net技术开发Web应用程序后,当用户在浏览器输入一个网址时就是再向服务器发送一个HTTP请求,此时就使用了应用层的HTTP协议,在上
2013-02-27 09:48:03
517
转载 C#网络编程系列一:网络协议简介
很多人写网络编程这快都没有怎么讲网络中的协议,然而我觉得既然是网络编程肯定要介绍下网络编程中一些协议的,这样可以让更好的梳理网络编程的知识的,所以我在这系列中会用两个专题去讲协议 因为这段时间都在研究C#网络编程的一些知识, 所以在这里把我学习到的在这里和大家分享下的,这样既可以达到分享的目的也可以让大家监督我,如果有什么地方理解错了,还请大家不吝赐教的。很多人写网络编
2013-02-27 09:38:25
947
转载 C# WPF vs WinForm
C# WPF vs WinForm WPF,WCF 如雷贯耳 早听说 WPF,WCF大名,但是就是一直没有去了解她……今天突然想去看看她长啥样? 主要是给自己留个笔记,顺便比较下WPF和Winform之前的区别1.什么是WPF?有什么用? 定义:Windows Presentation Foundation(WPF){ [,prezən'teiʃən, ,
2013-02-21 18:44:44
7162
转载 delphi 实现 邮件发送(TidSMTP控件)
delphi 实现 邮件发送(TidSMTP控件)新建一个delphi工程,添加 TidSMTP控件以及 TidMessage控件。配置TidSMTP的相关属性:name = smtpMaxLineAction = maExceptionReadTimeout = 0Host = 'smtp.163.com' //163邮箱地址Port = 25Auth
2013-02-21 11:11:55
3176
转载 xe2 VLC STYLE 皮肤设计
在Rad Studio XE2版本,有一个VCL Style设计器,是一个易用的工具,可以轻松的创建新的VCL Styles, 工具位于Tools -> VCL Style designer, 下图图片:styledesigner.png在image category下你可以看到image,这里你可以定义控件是怎么绘制的,你可以编辑所有的控件,比如b
2013-02-20 19:47:35
893
转载 计算机语言
计算机语言 .NET Framework平台语言C++/CLI ·C# ·F# · IronPython · J# · Visual C# · Visual Basic .NET ·Small Basic C/C++语言C ·C++ ·Turbo C++ ·Borland
2013-02-20 17:22:04
474
转载 解决Delphi XE(2010,2009)里的UTF8乱码问题
核心提示:Delphi 后续 Unicode 版本中, 一些单元里碰到UTF8编码字符,如果我们可能没有安装西欧的一些字符集,单元有可能显示错误,用delphi右键菜单 File Format->UTF8也未必能修复好。...Delphi 后续 Unicode 版本中, 一些单元里碰到UTF8编码字符,如果我们可能没有安装西欧的一些字符集,单元有可能显示错误,用delphi右键菜单
2013-02-20 09:35:54
1768
ZXing.Delphi_3.0 QRCode
2016-12-10
XE5 AES Ansi Unicode UTF8
2014-07-09
delphi xe4 破解
2013-05-24
JEDI Visual Component for delphi and c++ builder xe2
2011-11-24
JEDI Visual Component for Delphi and C++ Builder XE2 support
2011-11-24
vg_scene demo
2011-09-20
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人