注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

BCB-DG's Blog

...

 
 
 

日志

 
 

Delphi 之 LuoLi TiaoJiao  

2008-02-27 08:01:45|  分类: Delphi |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

作者:Anskya(小零)

Q:为啥不用Delphi?
A:体积太大
Q:为啥用Delphi?
A:很方便

体积问题一直都是Delphi Programer头痛的问题...
我也幻想过有一天用Delphi像VC一样的写出迷你小程序...

直到某一天我发现许多 LuoLi 控都在 TiaoJiao  LuoLi ...于是我突发奇想我也来 TiaoJiao 一个 LuoLi 吧
目标Delphi~御姐变 LuoLi ...

关于这篇文章打算分为两个部分描述...
1. LuoLi 自身的 TiaoJiao (关于核心库的修改.导入表的迷你化)
2.外界的 TiaoJiao 力量(Delphi编译...MASM link)

开始说说如何 TiaoJiao Delphi( LuoLi )吧...

0.VCL的力量
1.KOL的力量
2.自修改核心库
3.导入表的优化
4.进一步优化

 [0].VCL的力量...
关于VCL不多说了...其实在迷你化程序中
VCL基本上都不会使用.
这里我说的VCL不是说窗体VCL...例如SysUtils,Classes等单元也都是属于VCL部分
system,sysinit也是属于吧?我也不太清楚,这两个单元是Delphi默认加载的...
想取消不编译到工程中...不在本章讨论范围中

给各位的建议是...除了system,sysinit以外的Delphi自带VCL单元都不要使用...
system中其实已经有许多函数了...
由于这两个单元是默认的所以想不用也没办法...
复制内容到剪贴板
代码:
program Project1;

uses
  Windows;

begin
  MessageBox(0, 'Hello World!', 'By Anskya', 0);
end.
写下以下代码,编译后...15k For Delphi7(Delphi 6 这份代码编译出是8k)
为什么这么大?和VC一样的原因,系统默认库,编译器底层干了许多不为人所知的事情
看看导入表...

看到没有?除了user32和kernel32,还有advapi32??还是操作注册表函数.
我们并没有操作注册表呀?
IDA逆向分析一下发现是读取
复制内容到剪贴板
代码:
unknown_libname_13 proc near

cbData= dword ptr -0Ch
Data= byte ptr -8
hKey= dword ptr -4

push    ebp
mov     ebp, esp
add     esp, 0FFFFFFF4h
movzx   eax, ds:word_40400C
mov     dword ptr [ebp+Data], eax
lea     eax, [ebp+hKey]
push    eax             ; phkResult
push    1               ; samDesired
push    0               ; ulOptions
push    offset SubKey   ; "SOFTWARE\\Borland\\Delphi\\RTL"
push    80000002h       ; hKey
call    RegOpenKeyExA
test    eax, eax
jnz     short loc_402A84
.
.
.
好了这个就是大家平时所编译的Delphi最小化程序...

[1]KOL的力量
KOL是俄罗斯的一群Delphi fans有感于VCL的庞大而创造的一个framework工程
内部与VCL一样包含了大量的窗体等等操作封装的控件...不熟悉的朋友
可以去官方主页上看一下KOL+MCK,官方主页:http://kolmck.net/

我们这里主要使用到的是KOL的sysdcu库.这个是一个优化的核心库.Delphi7优化的很好
还是上面的代码我们进行优化设置...使用指定的核心库
菜单选择->Project->Options->Directories/Conditionals-Search path
在这个选项中选择核心库的位置(其实一般也是用于设置..控件的源代码或者dcu路径)
设置好编译后 5.5k

查看导入表发现,居然只有kernel32和user32这两个库...
体积居然缩减了这么多
其实仔细对比一下system.pas就可以发现其中的奥秘
许多不必要的函数操作单元函数和过程被取消掉了...
下场非常悲惨(比如几个函数都没办法用了...Write,Writeln函数等等Readln函数等)

不过对于写Windows程序来说不大.KOL库中有专门的console函数

是不是想说什么?配合VCL试试?我建议大家放弃这个想法,因为VCL本身需要这些不知名和知名
的一些函数和声明,不信你可以试试编译一下~Delphi就会大量提示你编译错误,许多
VCL本身需要的东西都被优化掉了...

好了继续我们的优化之旅

[2]自修改核心库
看完上面的两个试验后是不是有感,user32是我们需要的那个函数,但是..kernel32中还是有
大量的我们不需要的函数...
是的,kol虽然进行的优化,但是他必须保证一些基本的操作函数存在
例如string...string这个类型以后的其他文章我会详细介绍的...
string的暗藏操作也是许多的.和MFC的CString其实差不多~类似的性质而已
只是string做的很好让许多人误认为那个就是一个字符串类型...
关于取舍问题在这里我就不多废话了...说说优化吧...
对于我们来说string也是不需要的因为我们有了PChar(别说不知道是什么其实就是char *)

由于我们要最终打造一个只有一个迷你化的库,迷你到什么程度?
需要什么函数他就给我们保留什么函数其他的什么都不需要.好的为了这个目的我们继续

相信有些人看过潘爱民老师的Delphi源码分析这本书,说实话我没有看过,
只是在CSDN上看了一下目录,发现其中的许多东西都是大家应该知道的常识
自己穷也没钱买,Google可以搜一下电子版(电子版我也没有.太懒~有时间我宁可看漫画)

文中提到Nico大牛的MiniDExe这个自己优化的迷你EXE演示(见附件)

我们来看一下基本的代码.其实system,sysinit中的代码已经被删除的差不多了
只保留了最基本的...
复制内容到剪贴板
代码:
unit SysInit;

interface

var
  TlsIndex: Integer;
  TlsLast : Byte;
  PtrToNil: Pointer;

var
  HInstance: Pointer;
  GetCommandLine: PAnsiChar;

procedure _InitExe;

implementation

procedure _InitExe; assembler;
asm
        mov     eax, [ebp+$08]
        mov     [HInstance], eax
        mov     eax, [ebp+$10]
        mov     [GetCommandLine], eax
end;

end.
复制内容到剪贴板
代码:
unit System;

interface

type
  TGUID = record
    D1: LongWord;
    D2: Word;
    D3: Word;
    D4: array[0..7] of Byte;
  end;
  TDLLProc = procedure(Reason: Integer);
  TDLLProcEx = procedure(Reason: Integer; Reserved: Integer);

procedure _Halt0;
procedure _HandleFinally;

var
  ExitCode: Integer;

implementation

procedure _Halt0; assembler;
asm
        mov     eax, [ExitCode]
        leave
end;

procedure _HandleFinally; assembler;
asm
        mov     eax, True
end;

end.
这些都是最基本的核心库了OD跟踪一下发现
复制内容到剪贴板
代码:
00401124 > $  55            push    ebp
00401125   .  8BEC          mov     ebp, esp
00401127   .  83C4 F0       add     esp, -10
0040112A   .  B8 FC104000   mov     eax, 004010FC
0040112F   .  E8 14FFFFFF   call    00401048
00401134   .  6A 00         push    0                                ; /Style = MB_OK|MB_APPLMODAL
00401136   .  68 4C114000   push    0040114C                         ; |Title = "By Anskya"
0040113B   .  68 58114000   push    00401158                         ; |Text = "Hello World!"
00401140   .  6A 00         push    0                                ; |hOwner = NULL
00401142   .  E8 4DFFFFFF   call    <jmp.&user32.MessageBoxA>        ; \MessageBoxA
00401147   .  E8 B4FEFFFF   call    00401000
仅仅剩下这些东西.

导入表下也剩下了user32.MessageBoxA
由于不能使用Windows.pas单元中的函数了所以不得不使用自己编写的
引用单元了.

现在体积:3.5k

[3]导入表的优化
不知道大家注意过没有...Delphi生成的PE很奇怪.为什么这么说呢
1.不知名的资源
2.导入表的胡乱创建
3.不分场合的重定位表

我们这里说说导入表的奇怪现象
见代码:Project4
复制内容到剪贴板
代码:
program Project4;

uses
  Windows, Unit1, Unit2;

var
  hSelfModule: HMODULE;
  szBuffer: Array[0..MAX_PATH] Of Char;
begin
  hSelfModule := GetModuleHandle(nil);
  ZeroMemory(@szBuffer, SizeOf(szBuffer));
  szBuffer[GetModuleFileName(hSelfModule, szBuffer, SizeOf(szBuffer))] := #0;
  BoxFun1();
  BoxFun2();
  MessageBox(0, szBuffer, 'By Anskya', 0);
end.
单元1,单元2都是一样的代码
复制内容到剪贴板
代码:
unit Unit1;

interface

uses
  Windows;

procedure BoxFun1();

implementation

function MessageBoxA(hWnd: HWND; lpText, lpCaption: PAnsiChar; uType: UINT): Integer; stdcall; external user32 name 'MessageBoxA';

procedure BoxFun1();
begin
  MessageBoxA(0, 'Hello Wolrd!', 'Fun1', 0);
end;

end.
但是导入表中确出现了许多特别的东西.
比如说代码中调用了GetModuleHandleA函数一次,但是导入表中确出现了三次...
user32.MessageBoxA竟然出现了四次...
由于代码的疏忽也会产生大量的~重复导入表函数
为此只能建议大家尽量的把声明和引用代码都尽量写在一个单元中...
大家可以使用PEID或者Stud_PE自行查看演示程序的导入表

[4]进一步优化
上面说了Delphi会产生一些非常无聊的垃圾

下面说说最大的两个部分.
1.资源
2.重定位表

不管我们是否使用了资源,Delphi最后生成的资源目录中始终会产生资源目录
关于这个部分的优化我只能建议大家使用ResHacker或者Restorator进行删除
其实这个资源也包含了大家的一些代码信息
RCData->PACKAGEINFO
资源中就包含了程序主dpr中包含的代码单元...
DEDE也是根据这个文件查看你的Delphi程序一些信息的

删除掉这些没用的资源可以减少0.5k体积
现在我们的程序只有3k体积了

清除重定位表.Delphi给我们添加的.一般来说没什么用清除掉也就清除掉吧
清除工具很多,大家自己找找Stud_PE自己手工删除也可以
手工删除资源和重定位表后...程序体积只有2.5k了
和VC指定入口点编译也没啥区别...

Mew11 1.2SE压缩后 861字节...不知道大家满意否?不满意?

剩下占用大量体积的东西我们看看也就知道了...大量无用的数据段
在VC中可以通过设置编译参数来进行段合并.Delphi没这麽强的参数
而且编译的时候会产生大量的垃圾...那怎么办呢?
那就只有祭出绝招...武力 TiaoJiao  LuoLi 了...
看下篇

上篇只是简单的说了一下Delphi迷你化程序的初级优化
这篇主要是说如何进行外部改变Delphi架构...

现在Delphi编译器本身已经优化的暂时到顶了.我们来看看
下面影响我们继续迷你化的是什么问题...
1.数据段和代码段的融合,还有没用的bss等等段
完全可以融合到一起
2.文件对齐,还有DOS Stub

在VC下我们可以很容易解决这个问题.谁让Borland的编译器技术很好,连接器技术确
。。。算了这个不是在我们考虑范围以内

我们来解决以上两个问题。
如果要解决这两个问题就要追忆。。。Delphi的发展史了。。。
(BTW:看来这丫~是彻底秀逗了...)

Delphi的编译器是Anders一手 TiaoJiao 出来的...(我也不知道说什么好)
据说在Delphi老版本的时候是可以生成COFF格式的,关于这个问题
有一个彻底的项目...Ms-Rem大牛以前彻底研究过这个东西
还扔出一个演示品...由于当时的疏忽没有发现他使用的是Delphi3进行编译的
[见附件1]

由于Delphi3的特殊性造就了这个很奇怪的东西...兼容COFF的OMF???不明白
masm的link(polink)可以对其进行实施link操作
复制内容到剪贴板
代码:
unit HelloWorld;

interface

Procedure Start;

implementation

function MessageBoxA(hWnd: cardinal; lpText, lpCaption: PChar; uType: Cardinal): Integer;
stdcall; external 'user32.dll' name '_MessageBoxA@16';

Procedure Start;
begin
  MessageBoxA(0, 'Hello world!', nil, 0);
end;

end.
由于Delphi使用的是OMF结构...Delphi本身默认是产生dcu文件的
obj文件需要重新设置一下...看代码即可知道...
MASM中的默认库函数到处头部都是采用_MessageBoxA@16这样的结构
@16这个是传递参数的大小---SizeOf(DWORD) * 4
Win32下指针其实也是DWORD~不是吗?呵呵

根据这个obj进行一下连接操作
复制内容到剪贴板
代码:
dcc32.exe -jP -$A-,B-,C-,D-,G-,H-,I-,J-,L-,M-,O+,P-,Q-,R-,T-,U-,V-,W+,X+,Y- HelloWorld.pas

link.exe /ALIGN:32 /FORCE:UNRESOLVED /SUBSYSTEM:WINDOWS /ENTRY:Start$QQrv HelloWorld.obj user32.lib /out:Hello.exe
/ALIGN:32 (这里最好修改为0x200)
/FORCE:UNRESOLVED(强制输出)

请使用delphi3进行编译...这里提供一个开发包...
[见附件2]
包括代码演示...请大家自行研究...

关于入口点/ENTRY:Start$QQrv
为什么采用pas而不是dpr,主要原因是因为..dpr的入口点是锁死的
就是@InitEXE...由于是不导出的所以没办法使用...

所以采用pas.那不是每次写代码都非常郁闷,还有Delphi3的优化
为了解决这两个问题,所以重新改变一下

masm 7.0的link具有重新创建obj的功能
这里使用这个方法...
Delphi 7依然可以创建。做一个通用工程来玩玩
总是用批处理不好讲究点实际开发。。来新建一个工程吧

[见附件2]
复制内容到剪贴板
代码:
program Project1;

uses
  Unit_Main;

begin
  _entry();
end.
复制内容到剪贴板
代码:
unit Unit_Main;

interface

function MessageBoxA(hWnd: cardinal; lpText, lpCaption: PChar; uType: Cardinal): Integer; stdcall; external 'user32.dll' name '_MessageBoxA@16';

procedure _entry();

implementation

procedure _entry();
begin
  MessageBoxA(0, 'Hello World!', 'By Anskya', 0);
end;

end.
剩下的完全API就可以了(小心使用ZeroMemory,FillMemory,CopyMemory这三个函数,
Delphi为了编码效率把这两个函数给内嵌了...切忌切忌实在需要咱自己写,
要不然就自己GetProcAddress...).自己写函数声明吧...
_entry();这个名称是因为连接器把你输入入口函数名称加上_
不知道为啥这个习惯...

工程设置需要重新设置一下(Delphi默认是不会生成obj的)

Project Options->link
选择生成C++ object Files,Export All symbols
就可以生成我们需要的obj了...

为了减去不必要的转换麻烦,这里使用mickeylan 大侠为我们准备的rmcoff
为了减少大家的麻烦.发现这个简单的东西就没必要自己去写批处理了.吼吼
批处理代码如下(基本上是死代码..写好一次以后的随机修改就好了)
复制内容到剪贴板
代码:
..\rmcoff\rmcoff.exe Unit_Main.obj Unit_Main.obj

..\small\link.exe /ALIGN:0x200 /SUBSYSTEM:windows /ENTRY:entry Unit_Main.obj ..\lib\user32.lib /MERGE:.data=.text /MERGE:.rdata=.text /MERGE:_EXIT_=.text /MERGE:_INIT_=.text /SECTION:.text,RWEX /ignore:4033,4078,4108 /out:Hello.exe
pause
link编译说明:
这里的user32.lib链接库不是masm32\lib下的
这个链接库是重新创建的:
LINK -LIB -MACHINE:IX86 -DEF:KERNEL32.DEF

具体可以参考以前我写的文章<<浅谈连接库函数的声明与创建>>
http://bbs.pediy.com/showthread.php?t=25555

这里编译是完全没问题了(看...附件中的样式代码)
Delphi 7 编译 MASM Link

如果你觉得体积还是不够小请调整:/ALIGN:0x200,可以修改为4
那编译出来的效果就是传说中的680字节了~不过为了兼容Win9x,最好不要修改

好了至此~小 LuoLi 已经被我们 TiaoJiao 的差不多了...下面你还想干什么???

//====================

哦我知道了~你们是说这样写代码太痛苦了是吧...的确每个函数都要声明...
后才可以使用...再次教大家一个秘籍吧...
Borland Format For COFF...吼吼~
意思就是说创建一个Borland格式的到处头部的COFF格式LIB
听起来有点怪异哦~就是取消掉_,@16等特征的纯正COFF LIB...

使用大牛Vortex的工具...来创建我们需要的LIB格式
def2lib user32.def -nod

user32.def
复制内容到剪贴板
代码:
LIBRARY user32
EXPORTS
"MessageBoxA"
你可以自己写一个遍历导出表的程序来自动生成这个文件...

修改代码如下
复制内容到剪贴板
代码:
unit Unit_Main;

interface

uses
  Windows;

procedure _entry();

implementation

procedure _entry();
begin
  MessageBox(0, 'Hello World!', 'By Anskya', 0);
  ExitProcess(0);
end;

end.
批处理代码
复制内容到剪贴板
代码:
..\rmcoff\rmcoff.exe Unit_Main.obj Unit_Main.obj

..\small\link.exe /ALIGN:0x200 /SUBSYSTEM:windows /ENTRY:entry Unit_Main.obj ..\def2lib\kernel32.lib ..\def2lib\user32.lib /MERGE:.data=.text /MERGE:.rdata=.text /MERGE:_EXIT_=.text /MERGE:_INIT_=.text /SECTION:.text,RWEX /ignore:4033,4078,4108 /out:Project2.exe
pause
这样就可以直接引用Windows.pas了~~以后再也不需要自己声明头部了...感谢Vortex
赐予我们这麽好的一个工具...感谢...

如果是多个单元的编译的话
请在批处理中增加你要处理的obj...

此次 TiaoJiao 活动得以顺利展开感谢以下大牛们:
Anders,EliCZ,Vortex,Ms-Rem,mickeylan

  评论这张
 
阅读(1621)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017