摘要：
在网上常有人说Delphi的四舍五入有Bug！？相反，我认为Borland考虑得很全面，这不是Bug！Delphi帮助里面写得清清楚楚！ SimpleRoundTo ：四舍五入（不对称算数做法） RoundTo：四舍六入，五入单（银行家做法） RoundTo(1.235, -2) = 1.24 RoundTo(1.245, -2) = 1.24RoundTo是银行家的 做法，SimpleRoundTo才是我们平时说的四舍五入！ 阅读全文
摘要：
WebService使得不同开发工具开发出来的程序可以在网络连通的环境下相互通信,它最大的特点就是标准化(基于XML的一系列标准)带来的跨平台、跨开发工具的通用性,基于HTTP带来的畅通无阻的能力(跨越防火墙)。WebService给我们的软件开发带来了诸多好处,但是有一点还是必须要考虑到的,那就是安全问题。提供Service的一方要控制用户的限制访问,就要对来访的用户进行身份验证。验证成功则继续提供服务,否则就触发无权访问的异常,返回给客户。那么现在我们要解决的问题是这样的:用户的身份认证信息如何在调用主要服务前发送到服务方,从而进行验证？在WebService中,用户身份认证信息可以在客户 阅读全文
摘要：
以前感兴趣做的小程序，当时就想用来传图片，李维的书上也有提及的，有两种方法，一种是把二进制对象转成base64码，返回字符串，应该是最简单的方法，另外一种就是返回二进制数组TByteDynArray服务器：function TFileSoap.getPic(out size:integer): TByteDynArray;varbuf:TMemoryStream;begintry if not FileExists('c:\1.bmp') then raise Exception.Create('file not found.'); buf:=TMemorySt 阅读全文
摘要：
其实很简单:GridEH.GetFooterValue(0,GridEH.Columns[0]) 阅读全文
摘要：
DELPHI里的是这样的： function ArrayTst(strAry:Array of PChar):PChar;stdcall; var i:integer; strAdd:string; begin strAdd:= ' '; for i:=low(strAry) to High(strAry) do begin strAdd:=strAdd+strAry[i] end; Result:=PChar(strAdd); end; C#里是这样的： 声明： [DllImport( "ArrayTest1.dll ", EntryPoint = &qu 阅读全文
摘要：
procedure TForm1.frxReport1BeforePrint(Sender: TfrxReportComponent);varCross : TfrxCrossView;i,j : integer;beginif Sender is TfrxCrossView thenbegin Cross := TfrxCrossView(Sender); Table1.First; i := 0; while not Table1.Eof do begin for j := 0 to Table1.Fields.Count - 1 do if not table1.Fields[j].Is 阅读全文
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, AppEvnts, ExtCtrls, StdCtrls;type TForm1 = class(TForm) procedure Button1Click(Sender: TObject); private{ Private declarations } procedure WMDeviceChange(var Msg: TMessage); message WM_DEVIC. 阅读全文
摘要：
1,窗体内放入一个TMaskEdit控件2,设置控件EditMask属性Input Mask值为999.999.999.999,Character for Blanks值为 空格,Save Literal Charaters值为True.3,设置AutoSelect属性值为False4,控件的OnChange事件添加如下代码:procedure TFrmMain.MEdtServerIPChange(Sender: TObject);vart: array[0..3] of string;i, j, len: integer;beginlen := StrLen(PChar(MEdtServe 阅读全文
摘要：
unit Main;{服务端部分作者：Jony[E.S.T]创建日期：2005-12-17声明：纯真IP数据库读取参考 冷风兄 的代码 修改EXE内容使用MPHexEditor控件技术重点：其实也没什么重点，无非是ServerSocket和ClientSocket}interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls, ComCtrls, ImgList, Menus, ScktComp, untTQQWry , Create, Hel.. 阅读全文
摘要：
自定义事件定义的方法和定义属性差不多，只是类型时TNotifyEvent。 TNotifyEvent是默认事件，其定义为： TNotifyEvent = procedure(Sender: TObject)示例一(仅列出相当代码)：type TParent=class(TObject) private FTimeOut:TNotifyEvent;//事件的方法指针 protectedprocedure DoTimeOut;dynamic; //调度方法，用于关联事件。publicpublished property OnTimeOut:TNotifyEvent read FTimeOut .. 阅读全文