博客园_edrp.cn的Blog

五款流行的PDF阅读器以及资源占用的对比

2012-05-27T11:07:00Z

首先是第一款PDF阅读器，很多网友都以为Foxit Reader是一款国外的PDF阅读器软件，其实不是的，它是一款是地地道道的国产货哦，同时它也是目前唯一一款国人研发的，具有自主知识产权的PDF阅读器，它具有非常小巧、速度比较快，功能也比较丰富等几个特点。

第二款是PDF-X Change Viewer阅读器，这款软件属于后起之秀，在国外是比较流行的，因为这款阅读器软件的更新迅速非常快，功能也非常丰富，近年来逐渐在国内正流行开来。

第三款是eXPert PDF Reader阅读器：这款软件虽然在国内的认知度是一般，但是相对而言，也是国外的一款相当流行的PDF阅读器。

另一款是Sumatra PDF阅读器：他是唯一的一款开源PDF阅读器，这款PDF阅读器的特点是绿色小巧，功能非常简单，而且实用。

最后一款是Cool PDF Reader：这款PDF阅读器号称是目前最小巧的一款阅读器，它支持PDF文件阅读浏览。

我们来看下这几款阅读器的资源占用的对比：在资源消耗这方面，我们主要是观察静态的和动态的两种情况，静态指的是在启动阅读器以后，不执PDF的文档来浏览操作，而动态则是指加载文档以后所占用的资源情况，文档是选用纯图片的文档，并且执行浏览的操作，页面比例是100%显示的，而且在统一浏览10页后，可以观察到各自的内存占用。为了使数据可以更为可靠，所以每款阅读器的测试都已经进行了三次，最后再取这三次数据的平均值。

对比显示，Foxit 和 Cool PDF阅读器消耗的内存资源最为节省，两项的测试数据都是比较理想的。而对于动态测试方面，这五款阅读器是有共性的，拿就是随着阅读页数的增加，内存的消耗量也会逐渐攀升，从整体来说，其实就是上升多少的问题而已。

此文章来源网络，若有侵权，请告知，转发只是为了方便学习。

本文链接

RealThinClient LinkedObjects Demo解析

2012-04-27T02:01:00Z

RealThinClient LinkedObjects Demo解析
作者：不详，搜索自网络，如有侵权，请告知
从成功学得少，从失败学得多这个Demo源码实现斗劲怪，有点拗脑，原因估是作者想把控件的应用做得简单，而封装太多。
恋情是友情的精华，手札是恋情的妙药这里说是解析，其实是粗析，俺没有耐烦每个实现点都查实清楚，看源码一般也就连读带猜的。
这个Demo表达出的意义，在于在HTTP接见体式格式下，很便利的实现了客户端和办事端彼此的主动通信才能，这在须要及时消息交互，把握交互，数据互传上很是有意义，很是给力。
一、Demo工作过程
1. 实现功能：实现了上传文件到HTTP办事端的才能，大文件上传成功率极高，并且始终对峙很是少的内存占用量。
2. 工作过程：客户端和办事端的TRtcLinkedModule控件需建树通信连接，在Demo中有两种体式格式，客户端先创建TRtcLinkedModule对象和办事端先创建TRtcLinkedModule对象，但无论哪一端先创建，都邑激发对端也创建对象，从而使两对象的通信连接建树。完成建树后，办事端把文件存储路径推送给客户端，客户端选择文件后，调用办事端Upload处理惩罚流程（这儿只能说是处理惩罚流程，而不是函数，因为TRtcLinkedModule对象的长途调用老是只触发对端的OnCallMethod事务，经由过程在Param中应用字符串标识，如“Upload”告诉办事端应用哪一个处理惩罚流程）开端上传，办事端在Upload中先断定是否文件已存在，不存在的话，直接调用客户端的“Get”流程让其上传数据，且每次“Get”调用只请求客户端发送10K数据，客户端筹办好数据后调用办事端的“Put”把数据送到办事端并写入文件，“Put”过程又再调用“Get”，如此来去，直至完成全部数据上传。

二、实现道理和关键函数
1. TRtcLinkedModule控件
   （1）此控件可放置在Form、DataModule、Frame这类容器上，一个容器只能有一个该控件！放置了该控件的模块即成为通信模块，可以在通信须要时由远端创议实例创建恳求而创建（除了放控件外，当然还有几行代码的工作要做，下面讲述）。
   （2）控件的字符串属性RemoteClass设置为远端的模块名字，如许当要远端创建Link模块进行通信时，RTC会把此名字作为标识发送创建恳求到远端，远端则按照名字创建正确的模块。
   （3）成员函数CallMethod（const xMethodName: string）直接触发对端的OnCallMethod事务，事务中按照xMethodName断定处理惩罚体式格式，看起来一般用于数据块或错杂把握上。
   （4）成员函数SetProp（const xPropName: string; xNow: boolean）、SetEvent（const xEventName: string）直接触发对端的OnSetProp和OnSetEvent事务，用于简单的短消息交互或把握交互。
   （5）成员函数Broadcast（const xChannel， xMethodName: string）在本地模块内群播消息，xChannel为群播管道，管道由成员函数Subscribe（const xChannel: String）建树。
   （6）控件应用相当简单，以上属性设置后就完成，不消管如何和http通信控件啊或ClientModule等远调控件进行连接，扔上就可用了（这也是让人斗劲困惑的处所，后面有解析它是如何和http通信控件接洽关系的）。

2. 函数RegisterRtcObjectConstructor（const xClassName:String; xProc:TRtcObjectConstructor）：
   （1）必须在initialization块履行，必须和UnregisterRtcObjectConstructor配对应用
   （2）这个函数用于指定一个能被远端调用的机关函数，用于能让远端在须要时创建TRtcLinkedModule对象及模块
   （3）函数的xClassName在TRtcLinkedModule控件中的RemoteClass中指定，xProc为一个procedure MakeObject（Sender:TObject; Param:TRtcObjectCall）;类型的静态函数，这个函数就是为什么在须要时就能创建远端Link模块的关键了，发明需求到来时，按照RegisterRtcObjectConstructor函数的注册信息，找到xProc函数调用，OK，Link模块对象生成了，道理很简单吧。
   （4）另一个调换规划为可以在TRtcClientModule或TRtcServerModule控件中的OnObjectCreate事务中进行创建工作，但这须要两端应用此Module控件进行通信。
函数意义：远端发送创建LinkObject通迅对象号令，本地端按照远端发来的xClassName字串在ObjectManager中找到注册的指定机关函数并调用。所以法度须要应用ActivateObjectManager创建好对象经管器。

3. 函数ActivateObjectManager（xCreate:boolean=True），TRtcDataServer和TRtcClientModule成员函数。
（1）在应用TRtcLinkedModule控件进行通信前必须调用该函数，不然不克不及和远端通信，也不克不及正常创议远端模块创建恳求。
（2）RtcClientModule1.ObjectLinks为“ol_Manual”必须手动调用，设置为“ol_AutoClient”或“ol_AutoBoth”则RTC会在后台主动调用。

不由得插句对于长途函数调用架构的一点见地：
RemObject套件用的是看起来很合适常规懂得的函数调用，让你感触感染不到这是长途函数，为实现如许一个应用感触感染，RO用了斗劲错杂的技巧来实现，不成否定，如许相当有含金量，不是谁都可以写得出来的，这种技巧曾如此让我赞服并进修。而RTC的长途调用全部用字符串标识体式格式，如此的简单，实现起来不须要错杂的技巧，大多有点经验的法度员基于TCP之类底层都可以做出来，而但多年后的如今，我才发明这种简单的美和高效，字符串可以描述从简单到极其错杂的机关，网页啊，xml啊这不都是如许描述的么，因而其灵活度可以说没有羁绊，要实现什么能实现什么如何实现只在乎用者同心专心。RTC的作者在编程思惟境界上必然已是十分的修为深厚了。

三、新鲜的处所
    按事理，TRtcLinkedModule控件要能进行通信，必然要有设置通信体式格式的处所，但找完TRtcLinkedModule的属性和Demo的源码，都没有发明有设置的处所，那它是怎么完成通信的呢？
   先看看TRtcLinkedModule的机关函数里都干了什么：
1 constructor TRtcLinkedModule.Create（AOwner: TComponent）;
2 begin
3 inherited Create（AOwner）;
4 if not （csDesigning in ComponentState） then
5 begin
6 // This will only work if there is an active Object Manager for the current thread
7 FParam:=TRtcObjectCall.Create（GetRtcObjectManager）;
8 if assigned（AOwner） then
9 FOLink:=TRtcBasicObjectLink.Create（AOwner，FParam.Manager）
10 else // If no Owner， we are the Object container
11 FOLink:=TRtcBasicObjectLink.Create（self，FParam.Manager）;
看到了GetRtcObjectManager，这是个全局函数，按照线程ID获取对象经管器，ObjectManager估计是个全局的、独一的单例模式的对象，懒得看代码了，猜的，哈哈。
ObjectManager估计是个LinkObject的经管器，用于Link控件发送的恳求到来时找到正确的模块及正确的Link控件，然后调用对应的函数，如今的疑问是，ObjectManager怎么知道把恳求发送到对应的Form和Link去呢？上方代码中FOLink:=TRtcBasicObjectLink.Create（AOwner，FParam.Manager），看到传入AOwner了！还有Manager，干啥呢？持续跟下去看看TRtcObjectLink.Create是什么：
1 constructor TRtcObjectLink.Create（xOwner:TObject;xManager:TRtcObjectManager）;
2 begin
3 inherited Create;
4 if xOwner=nil then
5 raise ERtcObjectLinks.Create（""TRtcObjectLink.Create called with xOwner=nil""）;
6 if xManager=nil then
7 raise ERtcObjectLinks.Create（""TRtcObjectLink.Create called with xManager=nil""）;
8 FSubs:=nil;
9 FOwner:=xOwner;
10 FManager:=xManager;
11 if FManager.CreatingObjectID<>0 then // remote constructor
12 begin
13 FOID:=FManager.CreatingObjectID;
14 FManager.CreatingObjectID:=0;
15 FCreator:=False;
16 end
17 else
18 begin
19 FOID:=FManager.GetNextObjectID;
20 FCreator:=True;
21 end;
22 FRemoteDestroyed:=False;
23 FManager.AddObject（FOID，self，FOwner）;
24 end;
最后一句：FManager.AddObject（FOID，self，FOwner）;很明显了，这儿TRtcObjectLink的对象标识FOID和自身对象指针Self及地点的窗口FOwner被传入，三个的对应关系都有了，ObjectManager要找到正确的模块那是很轻易的事。而TRtcObjectLink对象内嵌于TRtcLinkedModule控件对象中，是组合关系，具体函数和事务调用是TRtcObjectLink的实现。
如今还有个题目是，Link对象是怎么获得通信才能的？
重视到，RtcClientModule1.ActivateObjectManager（True）;这个调用，RtcClientModule1是连接到TRtcHttpClient对象的，是以具备http通信才能，再看看RtcClientModule1和ObjectManager是什么关系：
1 procedure TRtcClientModule.ActivateObjectManager（xCreate:boolean=True）;
2 begin
3 if FRelease then Exit;
4
5 if ObjectLinks=ol_None then
6 raise ERtcObjectLinks.Create（""ActivateObjectManager: ObjectLinks = ol_None""）
7 else if not assigned（FObjectManager） then
8 if xCreate then
9 begin
10 FObjectManager:=TRtcClientObjectManager.Create（False）;
11 FObjectManager.BroadcastGroup:=String（FObjManSesName）;
12 FObjectManager.OnDataReady:=DoObjectManagerDataReady;
13 end;
14
15 if not assigned（FObjectManager） then
16 raise ERtcObjectLinks.Create（""ActivateObjectManager failed""）
17 else
18 begin
19 SetRtcObjectManager（FObjectManager）;
20 FObjectManager.uteBroadcast（nil）;
21 end;
22 end;
噢，本来这家伙发明没有ObjectManager的话就创建一个并持有，并且用SetRtcObjectManager送到一个全局对象fObjManagers中，这个对象是个列表，而GetRtcObjectManager恰是从这个fObjManagers中获取，如今本相大白了，本来就是TRtcHttpClient控件收到恳求转给TRtcClientModule对象，TRtcClientModule对象的私有成员FObjectManager保存着ObjectManager的对象引用，ObjectManager对象按照保存的Owner、Link对象关系找到正确的模块，调用Link对象相干函数。嗯，不过具体代码没有细看，以上本相有较大猜测成份，不过我信赖事理上应对的，本质性实现上，请看到这篇文章的有心网友指出，批驳斧正，共同进步。MRMY
本文链接

DLL封装ReportMachine/FastReport报表

2012-04-22T16:07:00Z

DLL封装ReportMachine/FastReport报表

如果有报表文件兼容性问题，可以参考下面的方法来将某版本的报表封装到DLL中来使用。
首先建立一个DLL工厂，然后建立一个主窗体，在窗体中放入报表相关的控件。

为了传入变量，我们简单定义一个变量名称/值对应用的对象：

//变量对应，可以用于变量和对象
RMVariants=class
VarName:string;
VarValue:string;
end;

然后定义一个输出函数：

procedure ShowReport(vFile:string;vDSList:TList;vVarValueList:TList=nil);stdcall;
var
i:Integer;
aDataSet:TADODataSet;
aRMDBDataSet:TRMDBDataSet;
aRMVariants:RMVariants;
begin
try
    frmReport:=TfrmReport.Create(nil);
    with frmReport do
    begin
      RMReport1.LoadFromFile(vFile);

      //创建结果集列表
      if vDSList<>nil then
      for I := 0 to vDSList.Count - 1 do
      begin
        aDataSet:=TADODataSet.Create(nil);
        aDataSet.Clone(TADODataSet(vDSList[i]));
        aDataSet.Name:=TDataSet(vDSList[i]).Name;

        aRMDBDataSet:=TRMDBDataSet.Create(nil);
        aRMDBDataSet.DataSet:=aDataSet;
        aRMDBDataSet.Name:="RMDB"+aDataSet.Name;

        InsertComponent(aDataSet);
        InsertComponent(aRMDBDataSet);
      end;

      //对变量进行赋值
      if vVarValueList<>nil then
      for I := 0 to vVarValueList.Count - 1 do
      begin
        aRMVariants:=RMVariants(vVarValueList[i]);
        RMReport1.Dictionary.Variables[aRMVariants.VarName] :=aRMVariants.VarValue;
      end;

      RMReport1.ShowReport
    end;
finally
    frmReport.Free;
end;
end;

然后在需要的时候调用该DLL即可。

上面代码使用了ADO,为了更通用，可以使用ClientDataSet来处理数据，在窗体中放在TDataSetProvider和TClientDataSet来处理结果集，如果不想发布Midas.dll，可以引用单元MidasLib。

注：以上示例使用了ReportMachine，同样适用于FastReport.

本文链接

客户找了一个网络公司做了一个网站，结果发布后出现：未能加载文件或程序集“AjaxPro.2”或它的某一个依赖项的错误

2012-04-13T16:31:00Z

“/”应用程序中的服务器错误。
--------------------------------------------------------------------------------

配置错误
说明: 在处理向该请求提供服务所需的配置文件时出错。请检查下面的特定错误详细信息并适当地修改配置文件。

分析器错误消息: 未能加载文件或程序集“AjaxPro.2”或它的某一个依赖项。系统找不到指定的文件。

源错误:

行 18:
行 29:   <httpHandlers>
行 20:    <add verb="POST,GET" path="ajaxpro/*.ashx" type="AjaxPro.AjaxHandlerFactory, AjaxPro.2"/>
行 21:   </httpHandlers>
行 22:

源文件: c:/inetpub/wwwroot/webmethod/web.config    行: 20

程序集加载跟踪: 下列信息有助于确定程序集“AjaxPro.2”无法加载的原因。

警告: 程序集绑定日志记录被关闭。
要启用程序集绑定失败日志记录，请将注册表值 [HKLM/Software/Microsoft/Fusion!EnableLog] (DWORD)设置为 1。
注意: 会有一些与程序集绑定失败日志记录关联的性能损失。
要关闭此功能，请移除注册表值 [HKLM/Software/Microsoft/Fusion!EnableLog]。

解决方法：

把网站在IIS中配置成独立网站，不能使用虚拟目录，否则即会出现如上错误。

本文链接

不同服务器数据库之间的数据操作

2012-04-12T11:55:00Z

1.直接用SSIS导入导出即可.

2.也可在一个库生成脚本,到另外一个库创建脚本内容.然后再把数据从一个库导入另外一个库.

3.也可参考如下的代码操作.

--创建链接服务器

exec sp_addlinkedserver 'ITSV' , '' , 'SQLOLEDB' , '远程服务器名或ip地址'

exec sp_addlinkedsrvlogin 'ITSV' , 'false' , null , '用户名' , '密码'

--查询示例 select * from ITSV.数据库名.dbo.表名

--导入示例 select * into 表 from ITSV.数据库名.dbo.表名

--以后不再使用时删除链接服务器 exec sp_dropserver 'ITSV' , 'droplogins'

--连接远程/局域网数据(openrowset/openquery/opendatasource)

--1、openrowset

--查询示例 select * from openrowset('SQLOLEDB' , 'sql服务器名' ; '用户名' ; '密码' , 数据库名.dbo.表名)

--生成本地表 select * into 表 from openrowset('SQLOLEDB' , 'sql服务器名' ; '用户名' ; '密码' , 数据库名.dbo.表名)

--把本地表导入远程表 insert openrowset( 'SQLOLEDB' , 'sql服务器名' ; '用户名' ; '密码' , 数据库名.dbo.表名) select *from 本地表

--更新本地表 update b set b.列A=a.列A from openrowset('SQLOLEDB' , 'sql服务器名' ; '用户名' ; '密码' , 数据库名.dbo.表名) as a inner join 本地表 b on a.column1 = b.column1 --openquery用法需要创建一个连接

--首先创建一个连接创建链接服务器 exec sp_addlinkedserver 'ITSV' , '' , 'SQLOLEDB' , '远程服务器名或ip地址'

--查询 select * FROM openquery(ITSV , 'SELECT * FROM 数据库.dbo.表名')

--把本地表导入远程表 insert openquery(ITSV , 'SELECT * FROM 数据库.dbo.表名') select * from 本地表

--更新本地表 update b set b.列B=a.列B FROM openquery(ITSV , 'SELECT * FROM 数据库.dbo.表名') as a inner join 本地表 b on a.列A=b.列A

--3、opendatasource/openrowset SELECT * FROM opendatasource('SQLOLEDB' , 'Data Source=ip/ServerName ; User ID=登陆名 ; Password=密码').test.dbo.roy_ta

--把本地表导入远程表 insert opendatasource('SQLOLEDB' , 'Data Source=ip/ServerName ; User ID=登陆名 ; Password=密码').数据库.dbo.表名 select * from 本地表

本文链接

dll 问题 (转)

2012-04-08T13:04:00Z

最近在公司写一个外壳程序,调用DLL插件把FORM嵌入到EXE中的一个PANEL中,其中遇到了不少的问题,大部分已经解决,还有几个至今没有找到解决方法,有待研究,也希望知道解决方法的富翁共享一下研究成果.

以下列出的问题及解决方法仅针对我写的程序(DLL插件把FORM嵌入到EXE中的一个PANEL中),和自己的解决方法.

从遇到的问题看出,DELPHI封装了太多的东西,有时候直接使用API会有意想不到的效果.
经验:DLL与EXE之间的通讯应该全部使用消息．
第一个问题:Tab键和Enter键在DLL的FORM中无效

原始程序:
//frmDll为DLL中的FORM,frmEXE为EXE主窗体,下同
//下面的代码为什么直接引用Exe中的Form又引用Dll中的Form?只是为了方便阅读,实际只是传递一个句柄,下同
//panWorkSpace为Exe中的一个TPanel,DLL中的窗体要嵌入其中
frmDll.WindowState := wsMaximized;
frmDll.BorderStyle := bsNone;
windows.SetParent(frmDll.Handle,frmExe.panWorkSpace.Handle);

发现Tab及Enter键在嵌入的FORM中无效,去掉
frmDll.BorderStyle := bsNone;
后正常,但我不需要标题,就用API解决
frmDll.WindowState := wsMaximized;
SetWindowLong(frmDll.Handle,GWL_STYLE,GetWindowLong(frmDll.Handle,GWL_STYLE) and not (WS_CAPTION or WS_THICKFRAME));
windows.SetParent(frmDll.Handle,frmExe.panWorkSpace.Handle);
其中WS_CAPTION和WS_THICKFRAME分别表示标题栏和边框,问题解决.

第二个问题:DLL窗体的Resize

EXE主窗体改变尺寸时,窗体中的Panel也会跟着变(Panel.Align设为了alClient),但其中嵌入的DLL窗体不会跟着变,解决方法:
//exe窗口接收消息并改变子窗体大小
//FChildWindowList为TList,子窗体的结构信息列表
Type
//子窗体一些信息的结构体
PFormInfo = ^TFormInfo;
TFormInfo = record
Handle : HWND;
Parent : HWND;
Style : HWND;
end;

TfrmExe = class(TForm)
private
procedure WMSize(var Message:TWMSize);message WM_Size;
end;

procedure TfrmExe.WMSize(var Message: TWMSize);
//ReSize消息
var
i : Integer;
rc : TRect;
begin
inherited;
if GetWindowRect(panWorkSpace.Handle,rc) then
if Assigned(FChildWindowList) then
for i := 0 to FChildWindowList.Count - 1 do
SetWindowPos(PFormInfo(FChildWindowList[i]).Handle, 0,
0, 0, rc.Right - rc.Left, rc.Bottom - rc.Top,
SWP_NOACTIVATE);
end;

第三个问题:焦点在DLL中的窗体时,切换到其它应用程序,再点击任务栏上Application对象的按钮,不能切换过来

焦点在DLL中的窗体时,切换到其它应用程序, 再点击任务栏上Application对象的按钮,不能切换过来,EXE主窗体不最小化,切换到其它程序,直接点嵌入的DLL窗体,DLL窗体获得焦点, 发现Application对象在任务栏上的按钮是被按下去了,但是EXE窗体并没有被提到最前,还有,DLL窗体得到焦点时,EXE窗体的标题栏变为灰色,这些都是不符合使用习惯的,虽然不影响使用,但我觉得还是要解决.

1.DLL窗体得到焦点时,EXE窗体的标题栏变为灰色的解决方法.
DLL窗体
TfrmDll=class(TForm)
private
procedure WMActivate(var Message : TMessage);message WM_ACTIVATE;
end;

procedure TfrmDll.WMActivate(var Message: TMessage);
begin
inherited;
SendMessage(frmEXE.Handle, WM_NCACTIVATE, Integer(True), 0);
end;

2.焦点的问题解决方法
把下面这个单元加入工程
//==============================================================================
// Unit Name: AppHandler
// Author : ysai
// Date : 2003-06-05
// Purpose : 处理焦点问题
// History :
//==============================================================================

unit AppHandler;

interface

uses
Windows, Messages, SysUtils,Forms;

implementation

var
OldWProc : TFNWndProc;

function NewWndProc(
Handle : HWND;
Msg : Integer;
wParam : Longint;
lParam : Longint
):Longint; stdcall;
begin
Result := 0;
case Msg of
WM_ACTIVATEAPP : //嵌入到主窗口的DLL中的窗口得到焦点不会把程序提前
begin
case wParam of
0 : //应用程序失去焦点
begin
if Assigned(Application.MainForm)
and (GetWindowLong(Application.Handle, GWL_EXSTYLE)
and WS_EX_TOOLWINDOW = 0) then
SendMessage(
Application.MainForm.Handle,
WM_NCACTIVATE,
Integer(False),
0);//失去焦点把标题栏变灰
end;
1 : //应用程序得到焦点
begin
if Assigned(Application.MainForm)
and (GetWindowLong(Application.Handle, GWL_EXSTYLE)
and WS_EX_TOOLWINDOW = 0) then
SendMessage(
Application.MainForm.Handle,
WM_ACTIVATE,
WA_ACTIVE,
1);//注意,这里设为1,后面会用到
end; //case wParam
end;
Result := CallWindowProc(OldWProc, Handle, Msg, wParam, lParam);
end; //msg : WM_ACTIVATEAPP
else
Result := CallWindowProc(OldWProc, Handle, Msg, wParam, lParam);
end; //case msg
end;

initialization
//取代应用程序的消息处理
OldWProc := TFNWndProc(SetWindowLong(Application.Handle, GWL_WNDPROC,
Longint(@NewWndProc)));

finalization
//还原消息处理过程
if OldWProc <> nil then
SetWindowLong(Application.Handle, GWL_WNDPROC, LongInt(OldWProc));

end.
//单元结束

//EXE程序主窗口
TfrmEXE = class(TForm)
private
procedure WMActivate(var Message : TMessage);message WM_ACTIVATE;
end;

procedure TfrmExe.WMActivate(var Message: TMessage);
//激话消息,Message.lParam=1时是OAAppHandler单元发来的,激活子窗口
var
hWindow : HWND;
begin
inherited;
if Message.lParam = 1 then //如果是1就是AppHander发出的消息,将焦点设到活动子窗体
begin
hWindow := GetActiveChildWindowHandle;//这个函数得到活动子窗体
//如果有子窗口而且不存在模态显示的窗体则把焦点移到子窗体上
if (hWindow > 0) and IsWindowEnabled(Application.Handle) then
windows.SetForegroundWindow(hWindow);
end;
end;

第四个问题:SpeedButton在DLL中鼠标离开不会恢复平面(ShowModal时不会出现)(未解决)

SpeedButton.Flat设为真时,在DLL中鼠标离开不会恢复平面状态,而ShowModal时不会出现,不知道原因,应该是消息处理得不好,不知道有没有人解决过

又一个焦点问题:焦点在DLL窗体时,按Alt+Tab,对话框里出来的程序中竟然没有EXE程序!

焦点在EXE窗体上时没问题,焦点在DLL窗体上时,用Alt+Tab不会出现EXE应用程序的图标,切换到其它任务后,也不能用Alt+Tab切换回来!这是个比较大的BUG,还未找到原因

用spy++看了一下,按下Alt+Tab键,窗体收到了一个WM_CANCELMODE消息,我想,既然焦点在exe窗体上时可以看到图标,而在dll上看不到,那么我在收到这个消息时把焦点给设到exe上不就可以了?
事实证明这点是可行的,代码如下:
TDllForm = class(TForm)
private
procedure WMCancelMode(var Message : TMessage);message WM_CANCELMODE;
end;

procedure TDllForm.WMCancelMode(var Message: TMessage);
//处理Alt+Tab键弹出的对话框中没有应用程序图标问题
begin
SetForegroundWindow(exeForm.Handle); //把exe窗体设为当前有焦点的窗体
end;

　　现在不论焦点在exe的窗体上还是dll的窗体上,按Alt+Tab出现的对话框中都有应用程序的图标,但不同的是,焦点在exe的窗体上时按 Alt+Tab,默认激活的是下一个应用程序,而焦点在dll窗体上时按Alt+Tab,默认激活的是第一个,也就是应用程序本身,实际激活的是exe窗体.
虽然还是不怎么习惯,但总算把它给弄出来了,以后有好的解决方法再贴上来.

Hint的问题(未解决)

焦点在Dll中的窗体时,鼠标移动到控件上不会显示控件的Hint,而且Application.OnHint事件也不会发生,但是焦点在Exe窗体上时,把鼠标放在Dll窗体中的控件上却能显示Hint.原因还未找到:(

ALT+TAB解决了,但是那是键盘,鼠标操作还是有问题

焦点在DLL中时,用鼠标点其它应用程序,失去焦点了,再按ALT+TAB,那个该死的应用程序图标又没了,焦虑中....

本文链接

使用DLL封装窗体和业务类

2012-04-08T12:56:00Z

软件开发的一种架构思路：
使用DLL封装一组窗体和业务类，真正的模块化编程，方便工作组进行开发的分工与合作。

打个比方：
经常开发进销存软件，那么我们把“入库单、返厂单、盘点单。。。”等单据的界面窗口以及业务类封装进一个DLL中。而将“计量单位、供应商档案、商品档案。。。”等基本信息的界面窗口以及业务类也封装进一个DLL中。窗口类可使用“可视化窗体继承或框架继承”，比如“入库单同返厂单。。。”等单据可共享一个单据祖先类。
谈Delphi编程中资源文件的应用
     一、初级应用篇
     资源文件一般为扩展名为res的文件，在VC中资源文件用得非常普遍，但Delphi在其联机帮助中对资源文件没作什么介绍。其实利用其自带的资源编译工具BRCC32.EXE(一般位于DelphiBIN目录下）,我们完全可以做出跟VC一样效果的文件来。
     资源文件最大的好处是能将一些在必要时才调用的文件跟可执行文件一起编译，生成一个文件。这样做最大的好处就是使外部文件免遭破坏。例如在一个程序中你要临时调用一幅图片，一般作法是把图片放在某一路径下（通常是主程序所在路径）,但如果用户路径误删你的图片文件则可能使程序找不到相应文件而出错崩溃。另外，如果你想自己的程序界面美观，想用一些自定义光标，也要用到资源文件。
     资源文件的使用步骤为：
     1.编写rc脚本文本
     用记事本或其它文本编辑器编写一个扩展名为rc的文件。例如：
     mycur cursor move.cur //加入光标
     mypic Bitmap Water.BMP //加入位图
     mywav WAVE happy.wav //加入声音
     myAVI AVI EPOEN.AVI //加入视频
     myIco ICON CJT.ICO //加入图标
     格式分别为在资源文件中的名称->类型->实际文件名称，例如上面第一行定义一个名为mycur的光标，实际名称为加入光标move.cur。
     2.将rc文件编译成res资源文件
     将脚本文件和实际文件拷到Brcc32.EXE所在目录，执行DOS命令。格式为：Brcc32 脚本文件(回车)，例如有一名为myfirst.rc的脚本文件，则执行Brcc32 myfirst.rc(回车)即可。如果你是懒人，也可新建一批处理文件，内容只有一行：Brcc32 mufist.rc。(因为Delphi安装后一般会在自动批处理文件中指明搜索路径的)如果编译成功，则会生成一个结尾为res的文件，这个文件就是我们需要的资源文件。
     3.在Delphi单元中加入资源文件
     将生成的res资源文件拷贝到你所编程序的路径下，在单元文件{$R *DFM}后加上一句{$R mufirst.res}，则将res文件加入去，编译后资源文件即已包含在可执行文件中了。若你有多个资源文件，也按上法依次加入。
     4.在Delphi程序中调用资源文件
     资源文件在Delphi中的关键字为hinstance，下面给出具体用法。
     <1>光标的调用
     首先在程序中定义一个值大于0的常量，因为Delphi本身用0到负16来索引默认的光标，所以我们制定的光标应从表面上1开始索引。然后在窗口的Oncreat事件中添加以下代码：screen.cursor[35]:=Loadcursor(hinstance,'mycur');其中35为大于1的常量，mycur为光标在资源文件中的名字。如果希望在其他控件上使用定制光标，例如Panel控件，只需在程序的适当处加入以下代码：Panel1.cursor:=35;
     <2>位图的调用
     新建一项工程，添加一Timage控件，在需要显示的地方写以下代码（其中"mypic"为位图资源文件中的名称）：
     Var mymap:Hbitmap;
     begin
     mymap:=LoadBitmap(hinstance,'mypic');
     Image1.picture.Bitmap.Handle:=mymap；
     end;
     〈3〉AVI文件的调用
     新建一工程，添加一Animate控件，在需要的地方加入（其中myAVI为视频文件在资源文件中的名称）：
     animater1.resname:='myAVI';
     animater1.Active:=true;
     〈4〉调用WAV文件
     在uses中加入mmsystm单元，以便在程序中播放WAV文件。播放时Playsound(pchar('mywav'),hinstance,sndsync or snd_resource);其中mywav为声音文件在资源中的名称。
     〈5〉加入光标
     加入光标比较容易，只要将res文件加入单元文件中即可。但需注意,名称最好取"W"."WW"等，使第一个字母尽量靠后，以免与主程序的图标顺序颠倒。这样一来，别人在使用你的程序时如果想选择其它图标就有很多选择了。
     补充：
     1.资源类型除上述类型外，还可以字体文件，字符串文件等；
     2.资源文件不但可以在标准图形界面下使用还可在控制台下使用。下面我们来试验一下：新建一工程，将唯一的一个Form删除，然后修改工程文件。增加一句{$Apptype console},在uses子句中加入mmsystem,并将其它引用单元删掉。将Begin和end之间语句删掉。至此，我们就可和Turbo PASCAL下编程序一样，且还可以调用windows的API和资源。将资源文件----{$R myfist.res}加入。在Begin和end之间写下：
     writeln('演示程序，按任意键开始！');
     readln;
     playsound(pchar('mywav'),hinstance,snd_sync or snd_resource);
     writeln('演示结束！');
     运行程序，将弹出一个标准DOS窗口，按任意键播放声音文件。是不是很COOL呢？我曾下载过一个播放器，在其安装目录下我发现有一“DOS程序”，用鼠标双击它便弹出一个DOS窗口，显示DOS时代特有的画图，并有背景音乐！可能就是用这个方法做的。
     3.Delphi本身自带了一个叫Image Editor的工具，同样可以编辑资源文本，但和本文的方法比较，可得出下表：
     Image Editor Brcc32
     BMP 只支持16位色任意色
     光标黑白两色任意色
     ICO 只支持16位色任意色
     AVI 不支持支持
     WAV 不支持支持
     字体不支持支持
     字符串不支持支持
     上面说的是直接在程序本身的调用。其实资源文件还有其它用法。比如说在你的程序携带其它文件，要用的时候释放出来。例如：myexe exefile 'ha1.exe'//脚本文件
     下面是自定义释放函数ExtractRes，本例中使用如下：ExtractRes('exefile','myexe','c:new.exe');就把ha1.exe以new.exe为名字保存到C盘根目录下了。
     function TForm1.ExtractRes(ResType, ResName, ResNewName: string): boolean;
     var
     Res: TResourceStream;
     begin
     try
     Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
     try
     Res.SavetoFile(ResNewName);
     Result := true;
     finally
     Res.Free;
     end;
     except
     Result := false;
     end;

     二、中级应用篇:
     上面我们已经知道如何把一副BMP图像从资源文件里面读出来，但是BMP文件太大了，JPG文件应用的相对较多。那么如何把JPG图像读出来呢？用资源文件加流方式即可。具体方法如下:
     (1)MyJpg JPEG　My.JPG
     (2)Var
     　Stream:TStream;
     　MyJpg:TJpegImage;
     Begin
     　Stream：＝TResourceStream.Cceat(HINSTANCE,'MyJpg','JPEG');
     　Try
     　MyJpg:=TJpegImage.Create;
     Try
     MyJpg.LoadfromStream(Stream);
     Image1.Picture.Assignc(MyJpg);
     Finally
     MyJpg.Free;
     end;
     　Finally
     Stream.Free;
     　end;
     end;
     读取其它图片文件也是一样的。比如说gif动画文件，当然前提是你有一个gif.pas，这个单元很多站点都有的，可以自己去找找。实际应用中我还发现用上面的代码可以直接显示资源文件中的ICON和BMP。
     说到图形处理，实际上还可以用Delphi创建、调用纯图标资源的DLL。比如说你可以看看超级解霸目录下的Dll,很多就是纯图标资源而已。具体方法如下：
     (1)创建一个Hicon.RES文件,这里不再重复；
     (2)新建一文本文件Icon.dpr,内容如下：
     library Icon;
     {$R Icon.RES}
     begin
     end.
     用Delphi打开编译即可得到Icon.dll。
     (3)实际调用方法如下:
     ......
     　Private
     Hinst:THANDLE;
     ......
     　Var　Hicon:THANDLE;
     begin
     　Hinst:=Loadlibrary('Icon.dll');
     　If　Hinst=0　Then　Exit；
     　Hicon:=Loadicon(Hinst,Pchar(Edit1.Text));
       If　Hicon<>0　Then　Image1.Picture.Icon.Handle:=Hicon;
     　FreeLibrary(Hinst);
     end;
     如果你的程序想在国际上供使用不同语言的人使用的话，用Dll来存放字符资源将是一个好方法。因为Dll不象ini文件那样可以被人随便修改，特别是有时侯如果想保存一些版权信息的话用Dll就再好不过了。比如说你准备开发一个“汉字简繁体翻译器”软件，准备提供Gb32、Big5码和英文三种语言菜单给用户，那么你可以试试用Dll
来保存字符资源。
     我们需要建立三个Dll。第一步当然是写Rc文件，举Gb32码为例，内容如下：
     /*MySc.rc*/
     #define IDS_MainForm_Caption  1
     #define IDS_BtnOpen_Caption   2
     #define IDS_BtnSave_Caption   3
     #define IDS_BtnBig5_Caption   4
     #define IDS_BtnGb32_Caption   5
     #define IDS_BtnHelp_Caption   6
     #define IDS_Help_Shelp        7
     Stringtable
     {
     IDS_MainForm_Caption,"汉字简繁体翻译器"
     IDS_BtnOpen_Caption,"打开文件"
     IDS_BtnSave_Caption,"保存文件"
     IDS_BtnBig5_Caption,"转换成Big5"
     IDS_BtnGb32_Caption,"转换成Gb32"
     IDS_BtnHelp_Caption,"帮助"
     IDS_Help_Shelp,"输入文字或打开文件后按需要点击按钮即可转换!"
     }
     另外两个Dll用同样的方法生成。
     第二步是Brcc32编译为Res文件后用上面的方法得到Dll文件。下面来应用一下：新建一个工程，放上五个Button：BtnOpen、BtnSave、BtnBig5、BtnGb32和BtnHelp，还有一个TComboBox:CbSelect用来选择语言种类的。
具体代码如下：
     unit Unit1;
     interface
     ......
       private
         SHelp: string;
         function SearchLanguagePack: TStrings;
         procedure SetActiveLanguage(LanguageName: string);
         { Private declarations }
     ......
     implementation
     procedure TForm1.CbSelectChange(Sender: TObject);
     begin
       SetActiveLanguage(CbSelect.Text);//调用相应Dll文件读取相应字符.
     end;
     procedure TForm1.FormCreate(Sender: TObject);
     begin
       CbSelect.Items.AddStrings(SearchLanguagePack);//搜索当前目录下所有的Dll文件名称
     end;
     function TForm1.SearchLanguagePack: TStrings;
     var
       ResultStrings: TStrings;
       DosError: integer;
       SearchRec: TsearchRec;
     begin
       ResultStrings := TStringList.Create;
       DosError := FindFirst(ExtractFilePath(ParamStr(0)) + '*.dll', faAnyFile, SearchRec);
       while DosError = 0 do
         begin
          ResultStrings.Add(ChangeFileExt(SearchRec.Name, ''));
          DosError := FindNext(SearchRec);
         end;
       FindClose(SearchRec);
       Result := ResultStrings;
     end;

     procedure TForm1.SetActiveLanguage(LanguageName: string);
     var
       Hdll: Hmodule;
       MyChar: array[0..254] of char;
       DllFileName: string;
     begin
       DllFileName := ExtractFilePath(ParamStr(0)) + LanguageName + '.dll';
       if not FileExists(DllFileName) then Exit;
       Hdll := loadlibrary(Pchar(DllFileName));

       Loadstring(hdll, 1, MyChar, 254);
       Self.Caption := MyChar;
     //读取字符资源，1表示资源文件中定义的1
       Loadstring(hdll, 1, MyChar, 254);
       Self.Caption := MyChar;

       Loadstring(hdll, 2, MyChar, 254);
       BtnOpen.Caption := MyChar;

       Loadstring(hdll, 3, MyChar, 254);
       BtnSave.Caption := MyChar;

       Loadstring(hdll, 4, MyChar, 254);
       BtnBig5.Caption := MyChar;

       Loadstring(hdll, 5, MyChar, 254);
       BtnGb32.Caption := MyChar;

       Loadstring(hdll, 6, MyChar, 254);
       BtnHelp.Caption := MyChar;

       Loadstring(hdll, 7, MyChar, 254);
       SHelp := MyChar;

       Freelibrary(hdll);
       Application.Title := Self.Caption;
       BtnOpen.Visible := True;
       BtnSave.Visible := True;
       BtnBig5.Visible := True;
       BtnGb32.Visible := True;
       BtnHelp.Visible := True;
     end;
     procedure TForm1.BtnHelpClick(Sender: TObject);
     begin
       Application.MessageBox(Pchar(SHelp), 'Http://lovejingtao.126.com', MB_ICONINFORMATION);
     end;
     end.
     可能你会说，这种方法还不如我自己在程序中直接定义三种具体的值来的方便。甚至我自己自定义一个结构好了，用不着用DLL那么麻烦的。但是如果你的程序要用的字符很多呢？比如说Windows操作系统，本身就有简体中文、繁体中文、英文等版本，用Dll的话只要直接替换DLL即可，而不用每发行一个版本就打开代码来修改一次。这样一来可以大大减少工作量和出错的机会。
     说到这里，再多说一句：Windows系统本身很多Dll带有了图片等资源，我们可以在程序中直接调用,这样一来我们的EXE也可以减少不少！当然最小的方法是实时生成技术。老外曾经写了一个67KB的程序就是利用了这个方法，感兴趣的朋友可以到http://go4.163.com/lovejingtao/ha1.exe下载。

     三、高级应用篇
     Delphi是个很有效率的开发工具，但是它有一个缺点就是生成的EXE文件太大。一个程序就算只有一个空窗口体积也有286KB。如果直接用API来写的话程序体积是小了，但是又太繁琐，无法立即看到界面效果，根本谈不上是可视化开发。其实并非“鱼与熊掌不可兼得”，利用资源文件我们就可以轻松达到这个目的。
     在开始之前，我们需要一个可以编辑资源文件的工具。这类工具很多，比如说Resource WorkShop就是非常好的一个。如果一时找不到，利用VC的编辑器来也是可以的。下面我们就以VC的为例示范如何创建一个窗口资源文件。
     运行VC，打开菜单“File/New”，将出现一个多项选择页。我们选择“Files/Resource Template”，在右边的File填上Demo，Location选择保存路径，然后点击按钮OK返回VC开发环境。
     选择菜单“Insert/Resource”,将出现一个资源类型选择框。我们把鼠标移到Dialog上面，不用展开，点击右边的New即可，这时候返回VC开发环境并出现一个只有关闭按钮和两个Button的窗体。将鼠标选定窗体，击右键选择最后一项Properties，将出现一个设置窗口，将ID改为“MAINFORM”(注意：跟下面添加的其它控件的属性设置方法不同，主窗口的ID必须把双引号写上去，而且名称必须为大写。否则程序将找不到资源。程序会一运行就退出了。）Caption改为“安装程序”，这时候可以立刻看到窗口的标题变成了“安装程序”，把Styles的Minimize box选上，More Styles的Center勾上使程序运行时的位置居中。当然你也可以设置它的坐标，其它保留默认值即可。回到开发环境，在控件框里面分别选择一个Static Text，一个Edit Box，一个Button和一个Group Box添加到窗体上面，把它们按照自己的爱好排列整齐，然后逐个修改它们的属性。方法就是按照上面说的选定控件后击右键选择最后一项Properties，在出现的属性框里面修改。其中属性如下：Group Box的Caption属性清空，Static Text的Caption属性改为“请选择安装目录：”，Edit Box的ID改为10001，第一个Button的ID为10002，Caption属性为“选择”，第二个Button的ID为10003，Caption属性为“安装”，第三个Button的ID为10004，Caption属性为“退出”。
     为了使程序更加完美，我们为它再添加一个菜单IDR_MENU1。选择“Insert/Resource/Menu”,我们这里只简单添加一项“文件/退出”，其中“退出”的ID为10005。然后在主窗口的属性Menu设定为IDR_MENU1即可。
     为了使程序更加美观，我们再添加一个小图标，同时这也将是我们程序的图标。选择“Insert/Resource/Iconv/Import”，选择一个图标文件，并将它的ID设置为"MAINICON"(注意：必须把双引号写上而且字母为大写)，为窗口添加一个Picture控件并设置它的属性Type:Icon，Image下拉选择刚才的图标MainIcon即可。
     如果你想为程序在鼠标添加一些信息也是可以的。选择“Insert/Resource/Version”即可。到这里我们已经完成了一个简单的“安装程序”的窗体设计，实际上我们现在就可以在Delphi中调用它了。我们先把“劳动成果”保存起来，选择“File/Save As”，在文件类型里选择“32-bit Resource File(.res)”保存为“Demo.res”,文件大小大约为2.65KB。
     新建一个扩展名为dpr的文本文件MyDemo.Dpr，键入如下代码：
     Uses Windows,Messages;
     {$R Demo.Res}
     function MainDialogProc(
       DlgWin: hWnd;
       DlgMessage: UINT;
       DlgWParam: WPARAM;
       DlgLParam: LPARAM
       )
       : integer; stdcall;
     begin
        Result := 0;
     case DlgMessage of
        WM_Close:
          begin
          PostQuitMessage(0);
          Exit;
          end;
       end;
     end;
     begin
       DialogBox(hInstance, 'MAINFORM', 0, @MainDialogProc);
     end.
     用Delphi打开它编译一次即可产生一个大小为19KB的EXE。是不是很小？！实际上，你甚至只用一行代码就把它Show出来，不过程序无法关闭而已：
     Uses Windows;
     {$R Demo.Res}
     function MainDialogProc: integer;
     begin
        Result := 0;
     end;
     begin
       DialogBox(hInstance, 'MAINFORM', 0, @MainDialogProc);
     end.
     上面的程序只不过是一个空窗口而已,现在我们来写代码响应按下相应按钮响应的事件。完整代码如下:
     program MyDemo;
     uses Windows, Messages, shlobj;
     const
       ID_Edit = 10001;
       ID_Selet = 10002;
       ID_Setup = 10003;
       ID_Quit = 10004;
       ID_Exit = 10005;
     {$R Demo.Res}
     var
       MainWin: HWND;

     function My_Gettext: string;
     var
       Textlength: Integer;
       Text: PChar;
       s: string;
     begin
       TextLength := GetWindowTextLength(GetDlgItem(MainWin, ID_Edit));
       GetMem(Text, TextLength + 1);
       GetWindowText(GetDlgItem(MainWin, ID_Edit), Text, TextLength + 1);
       s := text;
       FreeMem(Text, TextLength + 1);
       Result := s;
     end;

     function Getmyname: string;
     var
       i, j: integer;
     begin
       J := 3;
       for i := 1 to length(ParamStr(0)) do
         if ParamStr(0)[i] = '' then J := I;
       Result := copy(ParamStr(0), J + 1, length(ParamStr(0)) - J);
     end;

     function SelectDirectory(handle: hwnd; const Caption: string; const Root: WideString; out Directory: string): Boolean;
     var
       lpbi: _browseinfo;
       buf: array[0..MAX_PATH] of char;
       id: ishellfolder;
       eaten, att: cardinal;
       rt: pitemidlist;
       initdir: pwidechar;
     begin
       result := false;
       lpbi.hwndOwner := handle;
       lpbi.lpfn := nil;
       lpbi.lpszTitle := pchar(caption);
       lpbi.ulFlags := BIF_RETURNONLYFSDIRS + BIF_EDITBOX;
       SHGetDesktopFolder(id);
       initdir := pwchar(root);
       id.ParseDisplayName(0, nil, initdir, eaten, rt, att);
       lpbi.pidlRoot := rt;
       getmem(lpbi.pszDisplayName, MAX_PATH);
       try
         result := shgetpathfromidlist(shbrowseforfolder(lpbi), buf);
       except
         freemem(lpbi.pszDisplayName);
       end;
       if result then
         begin
          directory := buf;
          if length(directory) <> 3 then directory := directory + '';
         end;
     end;

     function MainDialogProc(
       DlgWin: hWnd;
       DlgMessage: UINT;
       DlgWParam: WPARAM;
       DlgLParam: LPARAM
       )
       : integer; stdcall;
     var
       MyIcon: HICON;
       Sdir: string;
     begin
       Result := 0;
       case DlgMessage of
         WM_INITDIALOG:
          begin
          MyIcon := LoadIcon(hInstance, 'MainIcon');
          SetClassLONG(DlgWin, GCL_HICON, MyIcon);
          MainWin := DlgWin;
          end;
         WM_Close:
          begin
          PostQuitMessage(0);
          Exit;
          end;
         WM_COMMAND:
          case LOWORD(DlgWParam) of

          ID_Selet:
          begin
          if SelectDirectory(DlgWin, '请选择安装目录', '', Sdir)
          then SendMessage(GetDlgItem(DlgWin, ID_Edit), WM_SETTEXT, 0, lParam(pChar(Sdir)));
          end;
          ID_Setup:
          begin
          if My_Gettext = '' then
          begin
          MessageBox(DlgWin, '请先选择安装文件夹!', '信息', MB_ICONINFORMATION + MB_OK);
          Exit;
          end;
          CopyFile(pchar(ParamStr(0)), pchar(My_Gettext + Getmyname), false);
          MessageBox(DlgWin, '安装完毕!', '信息', MB_ICONINFORMATION + MB_OK);
          PostQuitMessage(0);
          Exit;
          end;
          ID_Quit:
          begin
          PostQuitMessage(0);
          EXIT;
          end;
          ID_Exit:
          begin
          if MessageBox(DlgWin, '你点击了菜单“退出”，你确定退出程序吗?', '信息', MB_ICONQUESTION + MB_OKCANCEL) = IDOK then
          PostQuitMessage(0);
          Exit;
          end;
          end;
       end;
     end;
     begin
       DialogBox(hInstance, 'MAINFORM', 0, @MainDialogProc);
     end.

本文链接

安装DCU组件出错的解决方法

2012-04-05T15:03:00Z

没有bpl照样也可以安装dcu文件！刚才我实验了一下，选择component->Install component->
然后选择*.dcu，选中需要的文件，这是Delphi会提示“One or more lines were too long and have to be truncated”
不去理会，直接关闭*.dcu出来的那些乱码，当然是不保存，剩下那个dpk的直接编译，Install就可以了。
想来这也许算Delphi的一个Bug，不应该这样打开dcu文件了。

本文链接

delphi 软件5企业版KEY

2012-04-05T13:19:00Z

1.
delphi 软件5企业版
      sn:ski-hd3-c139
      key:92x0-92x1
Update   Pack   #1:
      ski-hd3-c139-92x0-91x0

2.
100-000-7350
24x1-91x0

本文链接

远程桌面连接已断开

2011-07-20T10:00:00Z

---------------------------
远程桌面连接已断开
---------------------------
客户端无法连接。您已连接到这台计算机的控制台。无法建立新的控制台会话。
---------------------------
确定帮助
---------------------------

本文链接

博客园_edrp.cn的Blog

五款流行的PDF阅读器以及资源占用的对比

RealThinClient LinkedObjects Demo解析

DLL封装ReportMachine/FastReport报表

客户找了一个网络公司做了一个网站，结果发布后出现：未能加载文件或程序集“AjaxPro.2”或它的某一个依赖项 的错误

不同服务器数据库之间的数据操作

dll 问题 (转)

使用DLL封装窗体和业务类

安装DCU组件出错的解决方法

delphi 软件5企业版KEY

远程桌面连接已断开

客户找了一个网络公司做了一个网站，结果发布后出现：未能加载文件或程序集“AjaxPro.2”或它的某一个依赖项的错误