易截截图软件、单文件、免安装、纯绿色、仅160KB

一名Delphi程序员的开发习惯

一.建立工程目录
   首先,第一步要做的,当然是给新项目建一个单独的目录(别笑)。目录名称与项目名称同名,或者另取一个也可,只要清楚、简练。然后,在此目录中创建以下各个目录:
   <Doc>:用来存放该项目相关的开发文档(需求说明,概要设计,详细设计等等等等);
   <Source>:用来存放Delphi源程序中的”.Dpr”,”.Pas”,”.Dfm”等文件;
   <Dcu>:该目录中存放”.Dcu”文件,将’.Pas’与’.Dcu’文件分开存放只是为了让Source目录的内容更加清楚一些;
   <Bin>:存放工程的输出文件,比如”.Exe”,”.Dll”或者”.Ocx”等等;
   <Log>:用来存放日志文件;通常在这个目录中我会放一个”<项目名称>程序员日志.Txt”文件。
   <Images>:当然是存放工程中用到的图片的目录了。一般情况下,这个目录是少不了的。假如还用到其他资源,那么也一样建立各自的目录,比如Wav,比如Avi等等。
二.设置工程选项
   在Delphi中创建一个新的工程,将此工程保存到Source目录中,同时:
a. 选一个耐看的,与项目有些联系的图标作为这个工程的图标。当然,这个图标可能只是临时用用的,但是总要比Delphi默认的那个难看的要好才行,要不然,怎么对得起自己?
b.将Project Options -> Directories/Conditionals页面中的Output Directory设置为Bin目录;
c.将Unit output Directory设置为Dcu目录。
三.添加常量单元
   添加一个新的Unit,另存为“unt<工程名> Consts.Pas”,用来保存工程中用到的常量。
四.有关窗体(Form)及单元(Unit)
   按照匈牙利命名法则给Form命名,则一个用来登录的窗体可以命名为’FrmLogin’,而其单元名可以为’untLogin’。通常,两个对应的Form和Unit的名称在除去’Frm’或’unt’的缩写后应当保持一致。
   在Unit的头部添加本单元的注释,注释的格式可以参照Delphi的源码,但是至少应当包含以下几项:功能描述;作者;版权;创建时间;最后修改时间;修改历史等等。
   将新创建好的Form的Caption设置为该Form类的名称,而不是使用Delphi默认的。比如,


相关文档:

Delphi调用Magento's Webservice

最近需要将Magento(国外比较出名的开源PHP+MySQL电子商务网站)与一个ERP进行整合,就需要调用Magento的Webservice。
Magento提供2套api。
注:如果需要同构调用需要使用第1个wsdl,如异构程序调用需使用第2个wsdl。
1.http://xxx.xxxxxxx.xxx/magento/api/soap/?wsdl
2.http://xxx.xxxxxxx.xxx/magento/api/v2_soap/?ws ......

delphi 判断网络是否连通的方法

uses WinInet;
procedure TForm1.Button1Click(Sender: TObject);
begin
  if InternetGetConnectedState(nil, 0) then
    ShowMessage('已连接')
  else
    ShowMessage('已断开');
end; ......

Delphi与Flash之间的数据传递技巧


要实现这一功能,首先要用到ActiveX控件中的TShockwaveFlash控件。
首先让我们来将TShockwaveFlash控件加入到Delphi的组件面板中(没有装Flash的朋友可以从网上下载一个Flash8.ocx文件来进行安装)
1.打开Delphi(本人用的是Delphi7.0)点击菜单中的Component->Import ActiveX Control...
2.在弹出的窗口中的Import ......

Delphi中实现文件拷贝的三种方法

1.调用API函数
procedure CopyFile(fromFileName,ToFileName:string);
var
f1,f2:file;
Begin
AssignFile(f1,fromFileName); file://指定源文件名
AssignFile(f2,ToFileName); file://指定目标文件名
Reset(f1);
Try
Rewrite(f2);
Try
If Lzcopy(TfileRec(f1).handle,TfileRec(f2).Handle)<0
Then
Raise ......

delphi 金山词霸屏幕取词技术的介绍

朋友,先要导入 XDICTGRB_TLB ,然后用下面的source,注意TForm1 = class(TForm,IXDictGrabSink) //!!!
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleServer, XDICTGRB_TLB;
type
TForm1 = class(TForm,IXDictGrabSink) //!!!
GrabPro ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号