wangyunyong0905的专栏

原创 RemObject SDK在d2007中的安装问题。

今天想想没事做就想把原来d2006的程序升到d2007一切还算顺利，主要的几个控件都可以用（rm3、RAIZE、DEX、EHLIB），但后来在装RemObject SDK时出现问题了，提示找不到vclie100.bpl。后来到网上查了一下，elphi2007 update3 中 vclie100.bpl变成了vcliex100.bpl，现在只能等最新版本出来才能装得上去了。到现在为止RemObje

原创 Delphi的四舍五入函数

function x_round(x: double): double;var  x10: double;  xx: integer;begin  x10 := abs(x) * 100 + 0.5;  xx := trunc(x10);  result := xx / 100;  if x    result:=-result;end;

转载 Format用法

function Format(const Format: string; const Args: array of const): string; $[SysUtils.pas功能 返回按指定方式格式化一个数组常量的字符形式说明 这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解"%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型Format(x=

转载 小写金额转换成大写金额的函数

编写一个收费软件时要用到一个小写金额转换成大写金额的函数，我曾在网上找到一个用Powerbuilder写的函数，长达四五十行之巨，后来我自己用DELPHI写了一个函数，寥寥几行代码就搞定： function TForm1.xTOd(i:Real):string; const   d=零壹贰叁肆伍陆柒捌玖分角元拾佰仟万拾佰仟亿; var   m,k:string;   j:integer; be

转载 TFrom DesignHook接口的实现

{******************************************************************************TFrom DesignHook接口的实现.******************************************************************************}unit DesignHookUtils

原创 字符分割函数.

   1. function split(split_str : string ; line_str : string ) : TStrings ;     2. //字串分割 分割用字元 , 原始字串，     3. var     4. posi : integer ;     5. str : TStringList ;     6. l_str : string ;     7. begi

原创 实现点击DBGrid的Title对查询结果排序

//欲实现点击DBGrid的Title对查询结果排序，想作一个通用程序，不是一事一议，//而且点击另一个Title时又要另外排序，目的是想作到象资源管理器那样随心所欲。procedure TForm5.dbgrd1TitleClick(Column: TColumn);var  myFieldName: string;begin  if not (Column.Field.FieldKind in

转载 RemObject解决自动生成代码的想法.

        用过DELPHI写过多层框架的,可能能RemObject比较熟悉. RemObjects Service Builder 自动生成代码的同时,也给我们带来困扰. 每个类都要定义在intf文件里, 接口只有一个, 这些显然对我们开发系统来讲, 支持的不够, 我想使用多个接口,也不想没完没了的定义结构.              前一段时间写了一个自动生成元数据的小工具,  可以和

转载 远程调用技术代码追踪(Remobjects第三方控件)

远程调用技术内幕在前面我已经分析了socket和webservice的代码追踪。现在总结一下：三层架构的运作模型：1. BizSnap与.NET Remoting 的Server端运作模式  当Client 将Request 送达Server端后，会经过一个Message Dispatcher机制，这个机制大多是几个重要的组件合作完成，主要在于解出Request中对于所要求对象的描

转载 expressionhandle表达式中使用非ocl变量

expressionhandle的expression中要使用变量,一般要用到variablehandle变量,很麻烦.如一般的字符串变量可使用以下方法解决 c#eh.Expression = System.String.Format("Person.allInstances->orderBy({0}), button1.Text); Delphi: eh.Expression :=

转载 [devexpress相关控件]在gridcontrol中怎样设置满足特定条件的行的颜色等风格

Run Designer在Appearance中的Style Conditions里Add一个Style Condition Item调整右边的属性[Appearance] - 显示的风格[ApplyToRow] - 应用到整行[Column] - 要检查的列字段(必须包含在Columns中，可以是不显示的)[Condition] - 运算符(==,!=,,...)[Tag] - Item的附

转载 arraylist与web 控件的绑定

procedure TfrmPayment.LoadPayments; var   i, j: integer;   aPayment: TPayment; begin   FBalance := 150;   FBondBalance := 250;   for i := 0 to 4 do   begin     for j := 0 to 2 do     begin       a

转载 variablehandle与oclvariabl搭配使用的注意要点

软件技术 吕向阳 发表于 2007-10-1 10:34:17

转载 [borland eco 技术]experssionhandle数据源,在datagrid中利用checkbox显示并编辑boolean类型数据

经过艰苦的探索,今天下午还是做出来了,贴出相关代码环境为expressionhandle名为ehperson,是person类的全部实例 ,即express表达式person.allinstances1.aspx文件   " autogeneratecolumns="False" datakeyfield="ExternalId">                       

转载 返回eco列表集的几种方法

IObjectList customers = vfs.CreateTypedObjectList(typeof(Customer)); foreach (Customer currentCustomer in someOtherList)   customers.Add(currentCustomer); //If a customer has a single contract IO

转载 Delphi的类型转换[转]

Delphi是一种强类型转换的语言。在VC中，赋值符用″=″,例如x=1;到了Delphi赋值符就变成了″:=″,例如x:=1。 从赋值时用符号″:=″而不用″=″,就隐约可见Delphi对类型匹配要求之严,即赋值符右边的类型一定要和左边一致。用惯了VB或VC的程序员,初用 Delphi,稍不留神,就会出现类型不匹配的错误。对初学者而言,类型转换也是学习Delphi的重点和难点,为此本文特对Del

转载 Delphi调用AutoCAD DWF Viewer[转]

这是一个利用AutoCAD类型库调用AutoCAD DWF Viewer的例子。能够浏览DWF 文件。还是上传不了。只好贴上。unit Unit1;{ Delphi利用AutoCAD类型库调用DWF Viewer 的例子 }{ 作者：钏裕民 2006年6月10日于昆明

转载 用DELPHI实现Bezier曲线[转]

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, AppEvnts, ExtCtrls;type TPoint2=packed record//二维顶点数据结构 x:single; y:single; end;TBezi

转载 delphi处理流[转]

TMemoryStream的继承关系如下TObject|TStream|TCustomMemoryStream|TMemoryStream如何使用TMemoryStream?其实TmemoryStream使用就跟TStream 一样具体的属性，方法可看帮助。下举一例：如我想在内存中直接读写一个Bitmap,怎么办？TmemoryStream帮了你大忙varBitmapMemoryStream:TM

原创 將MainMenu解到TreeView的正確位置

var MTN : array of TTreeNode;j:integer;procedure TForm1.MainmenuToTreeView;procedure MenuAct(m :TMainMenu);    procedure DoRecursive(t :TMenuItem);    var ii : integer;    begin     for ii := 0 to t.C

原创 运行时设计窗口

{******************************************************************************TFrom DesignHook接口的实现.wr960204 武稀松2007.9.10******************************************************************************

原创 EhLib 4.2.12 中文汉化版（OneFly.org 修改版）发布

下载了EhLib 4.2 并进行试用后，决定对其进行汉化，以方便中文化的程序开发。因其整个库变化不大，并且以前汉化修改过 EhLib 3.6、EhLib 4.1 等，所以该版的汉化非常简单，和以前的相关文件进行对比汉化差异部分即可，所以整个汉化很快速地完成了。EhLib 4.2.12 中文汉化版下载：http://www.2ccc.com 在试用 EhLib 4.2 的过程中，发现

原创 SQL Server 数据库中的 MD5 和 SHA1

MD5 和 SHA1 是一种单向加密算法，常用于密码的验证等需要加密操作的场合，在一般情况下，开发人员可以通过 Delphi 或 PHP 这类语言自己编写相关函数或者使用自带的函数，然后将加密过的结果根据需要存储到数据库中。但在某些情况下，可能需要在数据库端计算 MD5 和 SHA1 哈希值，比如说在存储过程或自定义函数内部。开源数据库 MySQL  就提供类似这样的内置函数，以下语句就可以分

原创 绿色函数：验证身份证号有效性[转]

{验证身份证号有效性,返回值为空代表正常,否则为错误信息}{作者：月夜风筝,edocu@163.com}function ValidatePID(const APID: string): string; {内部函数,取身份证号校验位,最后一位,对18位有效} function GetVerifyBit(sIdentityNum: string): Char; var nNum: Int

原创 检测USB插入拨出[转]

unit U_Usb; interface uses Windows, Messages, SysUtils, Classes, Forms; type PDevBroadcastHdr = ^DEV_BROADcast_HDR; DEV_BROADcast_HDR = packed record dbch_size: DWORD; dbch_devicetype: DWORD; dbch_res

原创 检查程序是否运行在VMWare虚拟机里

{     This function can be used to determine whether your program is     running from within VMWare.    For more information please refer to the article at:   http://www.codeproject.com/syste

原创 Windows Server 2008 RC0正式发布、下载

今天，微软正式发布了下代服务器操作系统Windows Server 2008的第一个公众预览版RC0，版本号“6001.16659.070916-1443”，同时也标志着Windows Server虚拟化技术“Virididan”的第一次公开亮相。RC0的发布预示着Windows Server 2008已经准备好迈向最终RTM版，同时也代表虚拟化技术已经成为Windows Server

原创 DevExpress v28 控件在 Delphi 中的安装

DevExpress v28 控件在 Delphi 中的安装    确定以下路径在Tools|Options|Environment Options|Delphi Options|Library|library path中。    /XP Theme Manager/Sources    /ExpressGDI+ Library/Sources    /ExpressLibrary/S

原创 Delphi 2007 for Win32录像

原创 从内存中加载并运行(二)

{    EXE Memory Unit Two For NT,2K,XP,2K3,LH By Anskya    Email:Anskya@Gmail.com    Web:Www.Anskya.Net    Date:04.08.2005    Thank:Aphex       procedure MemoryRunExe(FileMemory: Pointer);

原创 从内存中加载并运行(一)

   windows似乎只提供了一种启动进程的方法：即必须从一个可执行文件中加载并启动。     而下面这段代码就是提供一种可以直接从内存中启动一个exe的变通办法。     用途嘛,     也许可以用来保护你的exe，你可以对要保护的     exe     进行任意切分、加密、存储，     只要运行时能将exe的内容正确拼接到一块内存中，就可以直接从内存中启动，

原创 Midas中文修正版Up4

1,修正了中文定位（Locate）错误； 2，修正了中文过滤问题，出现单字不能like的问题； Fix.dll，Midas.dll适合于d5-d2007版本http://www.winu.cn/thread-45271-1-1.html