華華的博客

1999年在上海，入职第2家公司开发ERP，用的delphi4。delphi每年召开发布会发布一个新版本，演讲者每次都是李维，李维是台湾人，我们公司也是台湾公司，老板每年都让我们去参加delphi的发布会。今天突然收到Delphi 30年，v12.3版本发布会邀请。演讲者居然还是李维，他可能60岁以上了吧。从2012年我不再做winform开发，转向web开发后，几乎就不再用delphi了。1993年大学学的第一门编程语言是pascal。很惊叹delphi的顽强坚持。

从csdn下载了uniGUI的1.90.0.1555版本：uniGUI_Professional_1.90.0.1555.rar_unigui-Web服务器文档类资源-CSDN下载编译时还是找不到某些源码文件如：uniStrUtils.pas，ext.pas..............但是没关系，用里面的\Framework\uniGUI\Dcu或\Framework\uniGUI\Dcu64目录中的dcu文件，可以全部dpk编译通过。写了一个demo，用exe模式或者isa...

FastCube 2.10它的多语言机制没有严格使用ResoureString来处理，如果是那样，直接用Acro Multi-Language Suite元件处理就可以了（Hook了LoadString这个API）。FastCube的多语言机制是一种静态的字典，类似xml格式，如：{******************************************}{ }{ F

好久没有用delphi了，有个老同事还在持续使用新的Delphi，用到10.3版本了。他说我原来写的Acroprise Multi-Language Suite多语言元件，在用uniGUI元件开发web程序时，standalone下32bit和64bit都没有问题，在isapi下32bit没问题，但是64bit有报错，web界面出不来。我准备了开发环境：windows 10，delphi 10.3，uniGUI 1.90。standalone下，AcroMulti在32bit和64bit确实没问题。

中文简繁体互转时，使用直译很简单，Delphi中使用LCMapStringW这个API。但是如果要追求完美，考虑两岸用词习惯，就需要考虑“语义”，有两种情况：（1）字还是基本是那个字，只是写法不同。如： 周期 - 週期 周杰伦 - 周傑倫 （2）字都变了。如：文件 - 檔案 程序 - 程式周和週：◎ “周”作姓、朝代时,繁体也为“周”，与简体同形。◎ 圈子、周...

最近搞了个delphi10.3来玩，把一个旧的程序改到64bit下编译，成功后，发现两个问题：画面和图片变小了。 这个可以调整参数：Tools-Options-Application-Manifest-DPI Awareness，被它设置为“Per Monitor V2”了，改为“none” 任务栏上的图标是白色空图标。 很奇怪，参数Tools-Options-Application-I...

阿里云函数计算：https://www.aliyun.com/product/fc?spm=5176.7933691.765261.210.ijPFRCdelphi版本：Embarcadero® Delphi 10.2 Version 25.0.26309.314 阿里云最开始有PaaS层的“云引擎ACE”，像百度的“应用引擎BAE”一样，但是在2016时，阿里把它关闭了。目前，阿里的

阿里云的对象存储：https://www.aliyun.com/product/oss?spm=5176.8142029.388261.220.tpdG6e其开发文档中没有提供Delphi的SDK，参考javascript的SDK，大致修改后可以运作：unit wxhAliYun_OSS;interfaceuses REST.Client,system.JSON,system.S

测试Embarcadero® Delphi 10 Seattle Version 23.0.20618.2753，Multi-Device Application。华硕平板ZenPad S 8.0（Z580CA）http://detail.zol.com.cn/403/402139/param.shtml，android系统使用的cpu是intel atom z3580，x86架构，del

测试Embarcadero® Delphi 10 Seattle Version 23.0.20618.2753，Multi-Device Application。从资源中读取图片：procedure TKsColorBall.GetImagesFromResource;var i:integer; [Unsafe]Bmp:TBitmap; //必须加[unsafe]，因为a

delphi xe开发的dll有Test_ReturnPChar和Test_ReturnPAnsiChar两个函数：procedure MoveStr2PChar(const AStr:WideString;const APChar:PWideChar;var APCharLen:integer);var oldLen:integer; sLen:integer;begin o

之前delphi7在win7 64bit上运行是正常的，某天，大概是打了些系统补丁（一般通过360打的），就出现问题了：1、delphi本身退出时，会崩溃。把几个设计包不安装后，问题消失；2、之前一个project，使用runtimepackage编译的，exe退出时也会崩溃，但在测试路径完全相同的情况下，不是每次都会。追踪发现是在unloadpackage-->freelibrary

Embarcadero® Delphi® XE3 Version 17.0.4625.53395FMI类库不见了，XE2有的4种FireMokey专案3D/HD/iOS 3D/iOs HD，现在变成FireMonkey Desktop Application/Metropolis UI Application两种。是把原来给iOS用的FMI合并到FMX中了吗？TContainedActio

delphi7开发的DCOM服务器是32位的，注意以下问题：1、控制台怎么找不到我的DCOM服务？当部署到windows 2008 Server 64bit时，直接在控制台是找不到你的DCOM服务程序的。需要用MMC -32启动32位的控制台程序，然后在菜单文件-添加/删除管理单元，选择“组件服务”。然后在“控制台根节点”-组件服务-计算机-我的电脑-DCOM配置，找到你的DCOM服务。

http://www.pediy.com/kssd/pediy08/pediy8-793.htm通过挂钩API函数给加了保护的应用程序内嵌补丁原著：SUB Z3R0主题：Spirit Of The Wind论坛：Seek'n Destroy TeaM 2oo6目  录壳的原理和内嵌补丁的原理 ……………………………………………2简易的挂钩方法 ………………………

两种方式使用版本编译指令：1、{$IFDEF VER210}............{$ENDIF}2、{$IF CompilerVersion>=18.5}//some code only compiled for Delphi 2007 and later{$IFEND}http://delphi.wikia.com/wiki/Borland_Compiler_Conditio

1、Google Translate API v1，一直是免费的，但从2011年5月26日开始说要停用，到2011年12月1日完全关闭。http://code.google.com/intl/zh-CN/apis/language/translate/v1/getting_started.html 2、Google Translate API v2 ，只提供收费服务，每天调用次数也有限

开始->执行gpedit.msc打开“本地策略编辑器”找到“本地计算机策略”-“计算机配置”-“Windows设置”-“安全设置”-“本地策略”-“安全选项”,在右边列表中找到这两项：------“用户帐户控制: 将文件及注册表写入失败虚拟化到每用户位置”。禁用它。这样没有权限时直接会失败。------“用户帐户控制: 以管理员批准模式运行所有管理员”。禁用它。这样你本机管理员就有任何

2、使用Soap Toolkit。目前最新Toolkit是3.0，从微软下载http://www.microsoft.com/downloads/en/details.aspx?FamilyId=C943C0DD-CEEC-4088-9753-86F052EC8450&displaylang=en，安装。然后在visual studio你的项目中，在“引用”上右键单击，选择“添加引用”，切

http://blog.marcocantu.com/blog/json_libraries_delphi_rest.htmlIf you want to take advantage of jQuery and some of its plug-ins in a Delphi XE DataSnap REST Server application, you should replace th

delphi XE Update1 15.0.3953.35171 序列化一个阵列，如下：procedure TForm1.Button2Click(Sender: TObject);var vObject:TJsonObject; vPair:TJsonPair;begin vObject:=TJsonObject.Create(); vPair:=TJsonPair

如果从dll传出string，一般定义成PChar，由调用者分配好内存，并告诉大小，这样比较麻烦。既然delphi的dll可以传回variant（实际是array），就把字串转成byte array直接传回吧，如：Delphi XE代码：function Call(AEndPointURL:PWideChar;AServiceName,AMethodName:PWideChar;

http://blog.csdn.net/jesse621/article/details/7216331原则，故名思议则是本质的意思。所谓擒贼先擒王，研究设计模式自然要先了解设计原则，所有的模式都是在这些原则的基础之上发展起来的，有的是侧重一个，有的是多个都有所涉及。看完设计模式之后，我感觉到每个模式都有这些原则的影子，还渗透着面向对象的三大属性，也觉得这些原则也都有相通之处，，正是有了他们

http://www.delphifeeds.com/go/f/86827?utm_source=feedburner&utm_medium=email&utm_campaign=Feed%3A+delphifeeds+%28DelphiFeeds.com%29TCriticalSection (along with TMonitor) suffers from a severe

http://www.delphifeeds.com/go/f/86025?utm_source=feedburner&utm_medium=email&utm_campaign=Feed%3A+delphifeeds+%28DelphiFeeds.com%29BTMemoryModule下载地址：http://code.google.com/p/memorymodule/downloads/

Delphi XE（delphi7没有这个问题）在用ADO+TClientDataSet删除数据时，用DataSetProvider.ApplyUpdates更新，DataSetProvider.ResolveToDataSet要设为false，为true时没有这个现象。如果sqlserver2008数据库中有个触发器，它检查资料被别的表引用到了，用raiseerror拒绝删除。ALT

http://www.cnblogs.com/duzouzhe/archive/2010/01/13/1646514.html原文网址：http://www.codeproject.com/KB/IP/iocp_server_client.aspx源码使用了高级的完成端口（IOCP）技术，该技术可以有效地服务于多客户端。本文提出了一些IOCP编程中出现的实际问题的解决方法，并提

http://www.douban.com/group/topic/17415353/网络程序入门后的第一件是就是学会选择合适的io模型，这对于一个网络程序来说非常重要，特别是性能。当前Windows支持的各种Socket I/O模型如下： select模型 WSAAsyncSelect模型 WSAEventSelect模型 Overlapped I/O 事件通知模型

听说RAD Studio XE2发布了，下载了30天试用版来测试，版本号是：16.0.4256.43595试用版下载：https://downloads.embarcadero.com/free/rad_studioDelphi XE2介绍：http://edn.embarcadero.com/article/41595What's new in RAD Studio XE2

台湾同事收到信息说RAD Studio XE2上市了，但官网上都没看到。

atozed这个公司，做了个新项目（indy也是他们搞的），企图在Native与.Net中架起一个桥梁，让Delphi可以使用.Net的元件，地址在：http://www.atozed.com/CrossTalk/index.EN.aspx因为ADO2.8后，MS不再维护

Reord类型，看起来变成了Object，也可以写函数，偶的神啊，看看System.Types.pas里面的TRect: TRect = record private function GetWidth: Integer; procedure Se

这个版本的编译指令是Ver230。很多单元名称类似C#，使用多级方式了，如：  System.SysUtils,   System.TypInfo,   System.Types,   System.Classes,一般的元件增加了一个LiveBindin

Delphi XE2，代号Pulsar（脉冲星），Beta版下载地址：https://beta.embarcadero.com/home.html每次下载新的版本前要对上个版本做个问卷调查。我下载的是beta ten，是在线安装程序。可能是它的服务器限流了，我的下载速

MarshalOptions看说明，取值moMarshalModifiedOnly时，在序列化接口时只会传回异动的资料到中间层。但是要注意一下几点：（1）、要在TADODataSet Open后，设置moMarshalModifiedOnly才有效，Open前，如设计时，

在中间层服务器，打包DataSet的资料,客户端用DataSet接收，有两种格式：（1）、TDataSetProvider.Data得到的格式，姑且叫做Midas格式（2）、ADO _Stream得到的格式，姑且叫做ADOStream格式，这其中又分为ADTG格式和XML

<br />http://hi.baidu.com/qi_xian/blog/item/08011716e096751e962b4345.html<br />本文转载于3SDN: http://www.3sdn.net<br />有时候，一个应用程序运行到一定的时间，会出现窗口不完整（花屏），出现“必需的资源无法得到”的报错，这是个令人烦恼的问题。此时，你如果打开资源管理器，在“查看”中“选择列”，添加“GDI对象”，可以很清晰得看到，随着程序的运行，GDI对象，快速地增加，当数量达到9999时（为什么是这

Delphi REST Server返回的资料是JSON格式，假设有这样一个函数： THMI=class public Mac:string; IP:string; Port:integer; //DateTime格式，delphi的Json封装在ASP.Net中会报错“Date格式未按 JSON 的要求以“//Date(”开始并以“)//”结束” LoginTime:Double; Status:integer; end;

<br />在用TCriticalSection来同步线程时，Enter/Leave的次数对结果有影响吗？不管Enter多少次，Leave一次后，别的线程就能进入了吗？<br />因为可能在写函数嵌套时，会遇到这样的情况：<br />var CS:TCriticalSection;procedure P1;begin CS.Enter; try ..... finally CS.Leave; end;end;procedure P2;

<br />用Delphi prism开发ASP.Net，部署到IIS时，会出现这个错误：“Oxygene”是不受支持的语言。<br />因为*.aspx文件里面指定了*.aspx.pas文件的语言为Oxygene:<br /><%@ Page Language="Oxygene" AutoEventWireup="true" CodeFile="RemoteDiagnose_PullAjax.aspx.pas" Inherits="RemoteDiagnose_PullAjax" %><br />解决方法