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

Delphi 2010下安装IOComp

技术交流,DH讲解. IOComp是一套用于工业的图形化控件.
看下怎么在D2010下面安装吧.首先下载地址,来之 盒子,Download Here 解压缩后,需要做的步骤:
1 添加lib path
Tools –> Options –> Delphi Options

将你的解压缩目录添加进来.
2 删除相关PNG单元.
因为2010中自带PNGImage单元了,而且这个目录下面的PNG单元在2010下面会报错.主要是这句Byte(Dest^):= 不能赋值.
删除这3个文件:

3 增加编译指令
编辑目录下面的iInclude.inc文件
在下面话后面:
{$IFDEF VER200}
  {$DEFINE COMPILERFOUND}
  {$DEFINE ISDELPHI}
  {$DEFINE ISCPPB}
  {$DEFINE COMPILER_2009}
  {$DEFINE DELPHI_2009}
  {$DEFINE CPPB_2009}
  {$DEFINE MSWINDOWS}
{$ENDIF}
添加:
{$IFDEF VER210}
  {$DEFINE COMPILERFOUND}
  {$DEFINE ISDELPHI}
  {$DEFINE ISCPPB}
  {$DEFINE COMPILER_2010}
  {$DEFINE DELPHI_2010}
  {$DEFINE CPPB_2010}
  {$DEFINE MSWINDOWS}
{$ENDIF}
文件最后再加上:
{$IFDEF COMPILER_2010}
  {$DEFINE COMPILER_2009_UP}
  {$DEFINE COMPILER_6_UP}
{$ENDIF}
好了.
4 安装包
在Delphi中Ctrl + F11打开解压目录下面的IocompRADStudio2009.dproj
 
右击Install. 安装成功了. 好结束.哈哈


相关文档:

delphi中国际化的几种方案及比较(转)

delphi中国际化的几种方案及比较(转)
随着全球化程度加深,软件越来越像蒲公英,到处飘散、扎根。这其中要解决的是不同语言的显示问题。我们当然希望一套程序,可以不修改代码就可以支持不同的语言,不要去维护很多的版本。
        首先要谈到的一个问题是乱码问题,因为delphi
wi ......

delphi技巧记录


#13回车换行
将form2内容加入到form1列表框:在form2里:form1.listbox1.items.add(edit1.text)
listbox1.items.loadfromfile('chinese.txt')将chinese.txt文件内容载入列表框中。但前提是要整个窗体创建时候加载导入,双击整个窗体procedure TForm1.FormCreate(Sender: TObject)
listbox1.items.savetofile('chinese. ......

Delphi 创建目录及写日志文件


Delphi 创建目录及写日志文件
var
TF: TextFile;
LogFile: string;
txt :string;
sysDir:string;
//创建按钮
procedure TForm1.Button1Click(Sender: TObject);
begin
sysDir:=extractfilepath(application.ExeName );
if not directoryexists(sysdir+'log\') then
createdir(sysdir+'log ......

Delphi中用ADO系列控件获得存储过程的Return值

在Delphi中Ado系列控件使用xxxxx.Parameters.Refresh,可以获得存储过程的Return值
以TADOStoredProc为例
  ADOStoredProc1.Connection := 'xxxx';
  ADOStoredProc1.ProcedureName := 'XXXX';
  ADOStoredProc1.Parameters.Refresh;   //刷新存储过程的参数列表
 //参数赋值
 ADO ......

Delphi定时Showmessage事件

在Delphi中,调用Showmessage后,如何使弹出的对话框在一秒钟后自动关闭,而不用手动去点确定
1:用timer控件的函数
procedure TForm1.Timer1Timer(Sender: TObject);
var
AHandle: THandle;
begin
AHandle := FindWindow('TMessageForm',
PChar(Application.Title));
if AHandle > 0 then
SendMessage( ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号