蓝色的天堂-CSDN博客

原创 XE 10 UAC

新版本的XE已包含UAC权限设置了，不再有那么多麻烦的设置步骤！ As Invoker : 以当前用户默认的权限运行。Highest Available: 以当前用户可以获得的最高权限运行。（非管理员权限也能运行）Require Administrator: 以系统管理员权限运行。(非管理员权限不能运行)

2017-11-20 09:22:57 624

原创 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 1117

原创 TSF输入法列表获取

TSF：Microsoft Windows 文本服务框架(TSF) 是一个包含在Windows XP 及其后继版本操作系统的系统服务。TSF为高级文本输入的通信以及自然语言技术提供了一个简单的可扩展的框架。以上引自百度百科。引用Winapi.MsCTF单元，如果没有去高版本XE里面搜一搜，或者百度一下。procedure TForm1.btnSTFCli

2017-09-13 10:05:15 2629 5

原创 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 595 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 2207

原创 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 20250

原创 DELPHI XE开发Office Add-In

DELPHI XE开发Office Add-In

2016-07-16 14:55:13 2757

转载 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 1313

转载 Delphi XE 如何实现("再按一次退出") 然后退出程序

关于toast("再按一次退出")退出程序后:现在很多应用都是需要再按一次退出按钮后再退出应用，现在下面介绍了如何实现这样的功能，首先我们添加一个单元FMX.Android.JNI.Toast。需要在toast单元中定义一个全局变量TJToast。unit FMX.Android.JNI.Toast;interface{$IFDEF ANDROID}uses

2015-11-14 14:27:21 3085

转载 MessageDlg在两个Form中显示的结果不一样

先看下面这两个对话框的显示，正如你看到的，效果不一样。而这两个对话框都是用下面这句显示的，只不过，在两个Form中调用。 MessageDlg('是否退出？', System.UITypes.TMsgDlgType.mtConfirmation, [System.UITypes.TMsgDlgBtn.mbOK, System.UITypes.TMsgDlgBtn

2015-06-04 11:08:06 683

转载 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 3258 2

转载 Delphi常用快捷键

delphi是我学编程时的入门语言，用过一年多的时光，个人对它还是挺喜欢的。现在用的少了，一些快捷键和语法也有些遗忘了，这里对delphi的快捷键做个总结，留个纪念。嘿嘿，不知道还有多少人还用着这门语言？代码标记和切换 Ctrl+Shift+NUM 、 Ctrl+NUMCtrl+Shift+NUM 在光标行设置最多九个临时标志号，对临时切换非常有用。行的左边将出现一本书，封

2015-05-30 16:04:36 1005

转载修复 XE8 for Android 分享图片到 Gmail 权限不足的问题

问题：打开 XE8 的 ShareSheet 示例，发布到 Android 实机，按 Share 选 Gmail 结果显示：没有权限添加附件。适用：XE8 for Android修复方法：请将源码 FMX.MediaLibrary.Android.pas 复制到自己的工程目录里，再进行修改。找到下面代码：SharedActivity.sta

2015-05-30 15:18:20 526

转载修复 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 643

转载 DELPHI XE7,开发代号Carpathia，一些新语法和新特性！

1.Showmessage/msessagedlg/raise Exception 终于切换不卡死，虽然来晚了。以前做安卓用安卓的JNI解决对话框，现在可以用FMX对话框解决，但那个raise异常对话框还是无法替换。跨平台对话框终究才是出路。2.ListView支持下拉刷新。ListView+各种风格，玩爆Listbox，遐想无限。3.加入了TMultiView和TDetailP

2015-05-30 11:15:00 2044

转载 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 1320

转载 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 1492

转载 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 2988

转载让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 491

转载 Delphi的四舍五入函数

一、四舍五入法四舍五入是一种应用非常广泛的近似计算方法，其有算术舍入法和银行家舍入法两种。所谓算术舍入法，就是我们通常意义上的四舍五入法。其规则是：当舍去位的数值大于等于5时，在舍去该位的同时向前位进一；当舍去位的数值小于5时，则直接舍去该位。所谓银行家舍入法，其实质是一种四舍六入五留双（又称四舍六入五奇偶）法。其规则是：当舍去位的数值小于5时，直接舍去该位；当

2015-05-15 10:25:48 1994

转载 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 1289

转载 delphi excel 对象释放

代码如下： ... ExcelApp,workbook: Variant; ... ExcelApp:=CreateOleObject( 'Excel.Application '); workbook:=CreateOleObject( 'Excel.sheet ');上次大家给我的代码是： workbook.close; Exc

2015-05-15 09:49:50 2002

转载多线程编程

有一段多线程的程序需要完善, 捋了一遍 XE4 中关于多线程的源码, 发现有这三个类方法就足够我用了, 暂时结束学习.TThread.CreateAnonymousThread(); //普通TThread.Queue(); //队列TThread.Synchronize(); //VCL 同步转自： http://www.c

2015-05-04 10:43:49 402

转载 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 11450

转载 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 541

翻译 LookUp下拉框 EOleException 未知错误

将ADOQUERY的lookup字段的lookupCache设为True(缺省为False)即可。

2014-11-19 14:09:08 761

转载 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 1424

转载 Delphi XE 开发IOS

需求这个 demo 的要求： Embarcadero Delphi XE2的试用版 (差不多占用了所花费总时间的42%来填写表格,然后再获取工具)Mac Lion 10.2+ 从AppStore免费获取XCode 一台越狱过的IPhone用来检验实际设备上的效果 (或者有一个开发者证书可用于签名)简单的程序 - 这是演示的是简化的3x3格的井字棋游戏. 为了开发一个 IOS

2013-03-14 13:31:40 3588

转载 C# 网络编程系列七：UDP编程补充——UDP广播程序的实现

上次因为时间的关系，所以把上一个专题遗留下的一个问题在本专题中和大家分享下，本专题主要介绍下如何实现UDP广播的程序，下面就直接介绍实现过程和代码以及运行的结果。一、程序实现UDP广播程序的实现代码： using System;using System.Net;using System.Net.Sockets;using System.Text;using

2013-03-04 20:11:19 460

转载 C# 网络编程系列六：UDP编程

引用：前一个专题简单介绍了TCP编程的一些知识，UDP与TCP地位相当的另一个传输层协议，它也是当下流行的很多主流网络应用（例如QQ、MSN和Skype等一些即时通信软件传输层都是应用UDP协议的）底层的传输基础，所以在本专题中就简单介绍下UDP的工作原理和UDP编程的只是，希望可以对刚接触网络编程的朋友起到入门的作用。一、UDP介绍UDP和TCP都是构建在IP层之上传输层的协议，但U

2013-02-28 18:53:22 389

转载 C# 网络编程系列五：TCP编程

前言前面专题的例子都是基于应用层上的HTTP协议的介绍，现在本专题来介绍下传输层协议——TCP协议，主要介绍下TCP协议的工作过程和基于TCP协议的一个简单的通信程序，下面就开始本专题的正文了。一、TCP的工作过程首先TCP是一种面向连接的，可靠的，基于字节流的传输层通信协议。TCP的工作过程可以分为三个阶段：一、连接的建立；二、传输数据；三、断开连接，下面就对这三

2013-02-28 17:16:06 367

转载 C# 网络编程系列四：自定义Web浏览器

前言：前一个专题介绍了自定义的Web服务器，然而向Web服务器发出请求的正是本专题要介绍的Web浏览器，本专题通过简单自定义一个Web浏览器来简单介绍浏览器的工作原理，以及帮助一些初学者揭开浏览器这层神秘的面纱（以前总感觉这些应用感觉很深奥的，没想到自己也可以自定义一个浏览器出来），下面不啰嗦了，进入正题。一、Web浏览器的介绍Web浏览器是指可以显示Web服务器或者本地文件系统中的H

2013-02-28 17:11:04 1035

转载 C#网络编程系列三：自定义Web服务器

前言：经过前面的专题中对网络层协议和HTTP协议的简单介绍相信大家对网络中的协议有了大致的了解的，本专题将针对HTTP协议定义一个Web服务器，我们平常浏览网页通过在浏览器中输入一个网址就可以看到我们想要的网页，这个过程中浏览器只是一个客户端，浏览器（应用层应用程序）通过HTTP协议把用户请求发送到服务端，服务器接受到发送来的HTTP请求，然后对请求进行处理和响应，最后把响应的内容发送给客

2013-02-27 10:03:19 444

转载 C#网络编程系列二：HTTP协议详解

我们在用Asp.net技术开发Web应用程序后，当用户在浏览器输入一个网址时就是再向服务器发送一个HTTP请求，此时就使用了应用层的HTTP协议，在上一个专题我们简单介绍了网络协议的知识，主要是为了后面讲HTTP协议做一个铺垫的我们在用Asp.net技术开发Web应用程序后，当用户在浏览器输入一个网址时就是再向服务器发送一个HTTP请求，此时就使用了应用层的HTTP协议，在上

2013-02-27 09:48:03 476

转载 C#网络编程系列一：网络协议简介

很多人写网络编程这快都没有怎么讲网络中的协议，然而我觉得既然是网络编程肯定要介绍下网络编程中一些协议的，这样可以让更好的梳理网络编程的知识的，所以我在这系列中会用两个专题去讲协议因为这段时间都在研究C#网络编程的一些知识，所以在这里把我学习到的在这里和大家分享下的，这样既可以达到分享的目的也可以让大家监督我，如果有什么地方理解错了，还请大家不吝赐教的。很多人写网络编

2013-02-27 09:38:25 875

转载 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 6961

转载 delphi 实现邮件发送(TidSMTP控件)

delphi 实现邮件发送(TidSMTP控件)新建一个delphi工程，添加 TidSMTP控件以及 TidMessage控件。配置TidSMTP的相关属性：name = smtpMaxLineAction = maExceptionReadTimeout = 0Host = 'smtp.163.com' //163邮箱地址Port = 25Auth

2013-02-21 11:11:55 2971

转载 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 797

转载计算机语言

计算机语言 .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 445

转载解决Delphi XE(2010，2009)里的UTF8乱码问题

核心提示：Delphi 后续 Unicode 版本中，一些单元里碰到UTF8编码字符，如果我们可能没有安装西欧的一些字符集，单元有可能显示错误，用delphi右键菜单 File Format->UTF8也未必能修复好。...Delphi 后续 Unicode 版本中，一些单元里碰到UTF8编码字符，如果我们可能没有安装西欧的一些字符集，单元有可能显示错误，用delphi右键菜单

2013-02-20 09:35:54 1644