岁月如歌

如果只是单独的两点测距的功能，只需要调用MapX的Distance函数就可以了

网络上搜集的一些信息： 在 Delphi Xe2中 ReadProcessMemory 和 WriteProcessMemory等一些api的最后一个参数由原来的 var lpNumberOfBytesRead: DWORD 变为了一个指针按他的提示是 type void好像是这样了，'>0rp\jC  THandle的定义已经是一个指针而不是像原来的 THandle = Ca

Windows 数据类型  Delphi 数据类型 描述LPSTRPAnsiChar字符串指针LPCSTRPAnsiChar字符串指针DWORDLongWord整数BOOLLongBool布尔型

最近给朋友做个打印的小工具，用的是fastreport4，打印出来后发现右侧部分会带竖线，感觉非常奇怪，折腾了很久，才发现是因为页面外围整个加了边框导致，如果不加边框，就没问题。

--转自http://lhdeyx.blog.163.com/blog/static/318196972011101064240339/ 加载https的站点页面内容的时候记得在窗体上加上“IdSSLIOHandlerSocketOpenSSL1”以及idhttp里面IOHandler为“IdSSLIOHandlerSocketOpenSSL1”不然老报“IOHandler v

--转自http://etomahawk.popo.blog.163.com/blog/static/919644820081128105845384/软件的皮肤技术，简单的总结一下，可以用两个字来表示：自绘（或者说贴图）。当然，具体的效果如何，就要看你的基本功如何了。根据实现的方式，可以分为两类：A. 对现有的标准控件的换肤。Appface, Skin++, VCL

在工程代码里边定义了避免程序重复运行的互斥量，导致程序无法正常替换并重启，每次替换完重启时都提示程序已运行，郁闷啊！terminate的时候同时释放这个互斥量然后再执行批处理文件替换然后重启仍然不行。暂时就先不定义互斥量了，等后续有时间查询解决的办法。

delphi盒子sdhzth(通慧)：delphi xe2下的datasnap心跳包设置1、在servercontainer文件中，先增加一个private变量,      FConnections:TDictionary;2、在servercontainer1.datamoduleCreate(Sender:Tobject)中添加：      FConnections:=TD

1、静待数组与动态数组动态数组名为一个指针，，是数组首地址。静态数组名为一个变量，是数组首元素的值arr[0]；larr: array[0..10] of char;larrd: array of char;静态数组取首地址可以使用@larr或者@larr[0]，而动态数组可以用@larrd[0]或larrd; var  a: array [1..20] of Ch

转自网易博客原文章地址：http://blog.163.com/qq3076169@126/blog/static/1717240672011310739404/浏览器辅助对象BHO（Browser Helper Object）是一种ATL COM对象，由IE在启动时自动加载。BHO运行在IE的地址空间内，能对IE中可访问对象的各类事件消息进行监听并作出相应处理。因此，当IE已成为进 入网

以前很少用过不同程序间的消息机制，今天才知道sendmessage这样的api在不同程序间传递消息时，无法通过Lparam传递附加字符串或其它信息。这个应该是不同程序之间地址空间不一致，导致传指针过去也取不到正确的值。        这次变通的方法：先定义好自己的消息，然后给目标程序发送WM_COPYDATA消息，将自定消息的编号赋给COPYDATASTRUCT的dwData，将附加字符串信息

delphi写windows程序使用unidac连接sqlserver2000时报错OLE DB error occured. Code 800401F0h查资料后，搜到如下解决方法：服务单元引入activex单元，然后在服务执行函数中加入CoInitializeEx(NIL,COINIT_MULTITHREADED);CoUnInitialize; procedure TSe

原来的方法：启动：defaultport := 82;active:=true;关闭：active := false;关闭后端口被占用，无法释放。 解决方法：启动：httpServer.Active := False;httpServer.reusesocket := true;HTTPServer.Bindings.Clear;Binding

本文转自：http://apps.hi.baidu.com/share/detail/34012983这是在D7下的代码完全正常：var tem:DWORD;begintem:= htonl(ntohl(inet_addr(Pchar(edtPing1.T

在命令行调用命令即可，参数分别为要打包的ocx、要生成的cab文件：C:\Documents and Settings\xianjiang>makecab.exe D:\Develop\新疆项目\控件统一安装\DownOcx.ocx c:\DownOcx.cab

MapX的光标常量

MapX记录 - 自定义工具

mapX记录 -- 开发环境

实现MapX的移屏测距功能(转)

使用MapX开发实现若干小功能（转）

<br />1、播放前要先open<br />    今天测试TMediaPlayer播放mp3文件时，写了如下代码，报错：<br />    Player.Close;<br />    Player.Notify := True;<br />    Player.FileName := 'alarm.mp3';<br />    Player.Play;<br />    错误为“No MCI device open”，查阅资料后发现需要在Player.Play前加上Player.Open;<br />

创建互斥对象同步线程2010-01-13 10:40<br /><br />    互斥对象(mutex）属于内核对象，它能够确保线程拥有对单个资源的互斥访问权。互斥对象包含一个使用数量，一个线程ID和一个计数器。其中ID用于表示系统中的哪个线程当前拥有互斥对象，计数器用于指明该线程拥有互斥对象的次数。<br />#include<windows.h><br />#include<iostream.h><br />DWORD WINAPI fun1proc(LPVOID lpParameter);<br /

本文转自http://hi.baidu.com/homejun/blog/item/3cd2cd1b6c60f4faaf5133d0.htmldelphi2006语言新特性——类静态字段、类属性<br />类静态字段　Class Fields<br />（直译应为类字段，为避免混淆，本文统称类静态字段）<br /><br />类静态字段是类的一种特殊字段，它可以在类没有实例化时访问（普通的实例字段必须在类实例化后才能访问）。类静态字段储存的值可以被所有实例共享。（很有意思，赋一下值，所有类，实例都会改变，感

<br />    由于项目需要，需要将png格式的图片转换为jpg格式的图片，方法如下：<br />      MyImg := TMemoryStream.Create;<br />      MyImg.LoadFromFile(Local_path+Img);<br />      MyImg.Position := 0;<br />      if MyImg.Size <= 0 then<br />      begin<br />        MyImg.Free;<br

<br />正则表达式的用法(PerlRegEx)官方网站: http://www.regular-expressions.info/delphi.html<br />直接下载: http://www.regular-expressions.info/download/TPerlRegEx.zip<br /><br /><br />安装方法:<br /><br />1、先把解压的 TPerlRegEx 文件夹放一个合适的地方, 我放在了 Delphi 的 Imports 目录中.<br /><br />2、

<br />function TForm1.closekey(err: pchar): integer;<br />begin<br />  result := -1;<br />  StrCopy(err,'CloseKeyboard执行失败')<br />end;<br /> <br />如果是定义了一个字符串的变量lstr:String，通过pchar(lstr)转换后作为参数传给函数closekey(pchar(lstr));如果只调用一次不会报错，如果是连续调用两次就会出现非法地址错误：Acces

<br />     1、连接模式： 使用unidac有两种连接模式，非直连、直连模式。使用直连模式时客户端可以不需要安装oracle客户端，非常方便。<br />使用直连模式时，TUniConnection的属性和一般连接oracle差不多，只是将其Server属性改为：<br />     TUniConnection.Server :='IP:Port:SID';  如：<br />     TUniConnection.Server :='192.168.1.1:1521:WEB';<br />