易截截图软件、单文件、免安装、纯绿色、仅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字符串转换为char数组

var
  arrChar : array [0..4] of Char;
  b : Byte;
  s : string;
begin
  s := 'Test';
  Move(Pointer(s)^, arrChar, Length(s));   //string to array of char
  ShowMessage(arrChar);
  b := Ord(s[1]);   //First byte string to one single byte ......

unix C 、delphi的多语言文本字符换行的问题

今天项目组发生一个事情就是,后台aix上对多语言文本(英语+汉字)换行问题搞不太清楚。
最早前台的多字符的代码我检查了一下(按照0-128以外算中文的代码)发现不是安全的代码。
(delphi 7.0)
delphi安全的混合字符的操作方法是:
在strsUtils单元中
leftstr
MidStr
Rightstr
aix下是: ......

delphi 编译后出现iphist.dat 文件

 很奇怪,昨天在编译程序的时候,出现过,iphist.dat 文件。每次执行都出现,仔细查看代码,什么也没有啊!后来在网站找到原因:
 使用了IPWatch 控件的
一般产生这个文件是因为使用了indy的 TIdIPWatch 控件
该控件有个
ip历史的功能。
historyfilename指定的是保存ip历史记录的文件名,默认是iphist.Dat ......

Delphi中Format字符串说明

Delphi中Format字符串说明
function Format(const Format: string; const Args: array of const):
string;
Format字符串说明:
"%" [index ":"] ["-"] [width] ["." prec] type
(1)
格式化字符串必须以%开头
(2) [index ":"]
索引指的是Args参数列表中要显示的每一项的序号。比如:Args是
  ......

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号