jmlei的专栏---IBM, AS400, RPGLE, CLLE, Delphi, ASP...

 大写金额转为英文的算法 修改版   从网上找到了这个算法，原作是Dylan Thomas，但是我使用后发现有少少的缺点，例如英文金额的习惯是小数用Cents Twenty-Five这样的表示，但原版中没有小数的功能，只是简单的用百分数表示了。另外十位的部分也有少许欠缺，25应为：Twenty-Five，再其次就是增加了0到1之间的小数的表示。我在网上搜了一下发现似乎没人修正这些问题，特此发贴与大

{运行一个 DOS 命令，并等待其结束}function ExecuteAndWait(const CommandLine: string): cardinal;var  tSI: TStartupInfo;  tPI: TProcessInformation;  dwI: DWord;begin  Result := 0;  FillChar(tSI, S

 procedure TFm_FundUpdPri.Btn_UpdClick(Sender: TObject);var FundUrl, myHtml, myFNO, myFNM, myStr1, myStr2, myStr3, myPRI, myPRD, sqlstr, FundPic: string; myPOS: integer; mystrm: TMemoryStream;

 uses GIFImage;procedure TFm_Stat.DBEdit_FNOChange(Sender: TObject);var myFNO, myFile: string; myGIF: TGIFImage;begin inherited; if TDBEdit(sender).Tag = 0 then exit; myFNO := tr

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type USER_INFO_1 = record usri1_name: pwidechar;

Maskedit的掩码含义及用法MaskEdit是用来建立编辑框的，但它与Edit编辑框可以输入任意字符不同，MaskEdit可以限制用户只能按照既定的输入格式输入。掩码编辑框（MaskEdit）是一种特殊的编辑框。使用它可以设计出许多复杂的输入格式。在选用MaskEdit之后，需要为它设计一个输入格式。方法如下： 　　首先在窗体上将MaskEdit选中，在对象查看器（Object Ins

//根据字符串，拆分字符串，相当于vb中的split函数function SplitString(const Source,ch:string):TStringList;var temp:String; i:Integer;begin Result:=TStringList.Create; //如果是空自符串则返回空列表 if Source= t

Delphi存取JPEG、BMP图像到数据库完整解决方案本文来自Delphi之窗，原文地址：http://www.52delphi.comunit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DB, ExtDlg

 Delphi版金额大写(人民币大写读数)代码本文来自Delphi之窗，原文地址：http://www.52delphi.com uses math; const mnUnit:WideString =分角元; const OtherWords:WideString=整负; const hzUnit:WideString = 拾佰仟万拾佰仟亿; c

procedure TForm1.Button1Click(Sender: TObject);begin Tbutton(sender).Enabled := false; if OpenPictureDialog1.Execute then begin DrawRect(OpenPictureDialog1.FileName) end; Tbutton

原文 http://www.programfan.com/article/showarticle.asp?id=2289 笔者在工作中遇到对局域网中各工作站与服务器之间进行Socket通信的问题。现在将本人总结出来的TServerSocket和TClientSocket两个组件的基本用法写出来，希望与您分享。ClientSocket组件为客户端组件。它是通信的请求方，也就是说，它是

delphi7生成简单的验证识别码

As400 CLLE  PGM PARM(&MYFG) /* PROGRAM ID ...........: */ /* PROGRAM DESCRIPTION ..: */

uses ShellAPI;procedure TForm1.FormCreate(Sender: TObject);begin  LinkLabel1.Caption := jmlei 博客;end;procedure TForm1.LinkLabel1LinkClick(Sender: TObject; Link: string;  LinkType

Delphi 中用 Xml 配置文档生成 Treeview:     用递归方法，使用 xml 文档生成 Treeview 树形视图。由于是动态生成，所以可以通过修改 xml 的逻辑来定制 Treeview 的结构， 从而实现了 xml 对 Treeview 的动态配置，而不用修改代码。  xml version="1.0" encoding="gb2312"?> root t

unit U_BaseForm;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Buttons, Typinfo;type  TFm_BaseForm = class(TForm)

 uses DBGrids, ComObj, ActiveX, Variants;procedure ExportDBGridToExcel(F_DBGrid: TDBGrid; F_Title: string = 数据资料;  F_ScreenUpdating: Boolean = true; F_PrintPreview: Boolean = False; F_Ad

uses  OleServer, Excel2000,ComObj;procedure WriteExcel(AdsData: TDataSet;Dbgrid: TDbgrid; sName, Title: string);var  ExcelApplication1: TExcelApplication;  ExcelWorksheet1: TExcelWorkshe

use ComObj;procedure TFm_main.BitBtn1Click(Sender: TObject);var SourceFile: string;  Sourcexlapp, Sourcexlsheet, xlapp, xlsheet: variant;  RowNum, RowJ, Cols, i: integer;begin  try

Crossbow病毒开放源代码计划具体参见：http://crossbow.myrice.com/virus/ 如果您想加入计划，请写信至 crossbow@borlandsoft.com 申请加入，谢谢！  {   代码开始   }     {*******************************************************

 PYG2006注册机源码（DELPHI）http://74.220.201.104/cmbfree/read.php?tid=15189 PYG2006注册机源码（DELPHI）http://74.220.201.104/cmbfree/read.php?tid=15189 unit pygcrackmeReg;interfaceuses 

   procedure Stringgridtoexcel(atitle: string;  Astringgrid: Tstringgrid; Afontsize: integer);var xlapp, xlsheet: variant;  row, CCC, nnn, jjj: integer;begin  try    xlapp := creat

uses  WinSock;function Pub_GetComputerName: string; {计算机名}var  CNameBuffer: PChar;  fl_loaded: Boolean;  CLen: ^DWord;begin  result := ;  GetMem(CNameBuffer, 255);  New(CLen)

 unit U_net;//Delphi网络函数interfaceuses  sysutils, windows, dialogs, winsock, classes, comobj, wininet, Variants;  //得到本机的局域网ip地址function getlocalip(var localip: string): boolean;  //通过ip返回机器名functi

  uses jpeg;//保存Image1中的图象至数据库 :var Ms:TmemoryStream;jpg:Tjpegimage;beginms:=TmemoryStream.Create;Jpg.Assign(Image1.Picture.Graphic);Jpg.SaveToStream(Ms) ;Ms.Position :=0;ADO

 function Changdx2(mmje: Double): string;const s1: string = 零壹贰叁肆伍陆柒捌玖;  s2: string = 分角元拾佰仟万拾佰仟亿拾佰仟万;  function StrTran(const S, S1, S2: string): string;  begin    Result := Str

Delphi中资源文件使用详解一．编写 RC 脚本文本　　用记事本或其它文本编辑器编写一个扩展名为“.rc”的文件。格式如下：　　AVI 无声动画　　BITMAP 位图文件　　CURSOR 光标文件　　ICON 图标文件　　WAVE 声音文件　　以上所列均为标准资源类型，也可以给资源自定义一个类型，如：“mytype”。不过两者在调用方式上有些不同（在后面示例“存取

procedure dbgridtoexcel(atitle: string; Adbgrid: Tdbgrid; Afontsize: integer = 9; Asum: boolean = true);var xlapp, xlsheet: variant;  row, j, CCC, nnn: integer;  bookmark: Tbookmark;  nn_i

 function Pub_GetOSInfo: string; {获取Windowns}var myWin: string;  Platform: string;  BuildNumber: Integer;begin  myWin := ;  case Win32Platform of    VER_PLATFORM_WIN32_WINDOWS:

 Delphi 中压缩流和解压流的应用软件开发者不免都要遇到压缩数据的问题！经常使用Delphi的朋友都知道，它为我们提供了两个流类（TCompressionStream和TDecompressionStream）来完成数据的压缩和解压缩，但美中不足的是，该流在Delphi 的帮助中没有详细的说明，使得它们在使用起来有一定得困难。其实在Delphi系统中提供了这两个类的源代码和库。保存在Del

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, OleServer, Shell32_TLB, StdCtrls;const  connVerb = 启用;  discVer

procedure TForm1.Button1Click(Sender: TObject);var  bmp:Tbitmap;begin  bmp:=tbitmap.Create;  bmp.Width:=clientWidth;  bmp.Height:=clientHeight;  bmp.Canvas.CopyRect(self.GetClientRec

 以前要在 Delphi 中显示 GIF 动画，一种办法是使用第三方组件，别一种方法就是使用 WebBrowser 组件。在 Delphi 2007 中，其内部就已经支持 GIF 了，在D2009中也同样支持。关于 GIF 的相关类是 TGIFImage，在 GIFImg 单元中，看下面的代码，窗体中的 GIF 就动起来了： uses GIFImg;procedure TF