execom
19.09.2007, 13:28
Часто говорят о потребностях в оптимизации проекта с целью уменьшения размера программы... Delphi является аутсайдером по этому показателю среди основных языков для разработки системных приложений... Действительно у ламеров есть очень сильный (как им кажется) аргумент - Делфи создаёт пустой проект весом почти 400 кб)).. Напротив асемблер считается передовиком направления создания компактных приложений и по мнению ламеров разница в размерах огромна по сравнению с делфи... Да это так.. но всё же давайте попробуем написать программу хеллоу ворлд... выводящую просто окошко с заголовком Hallo и строкой Hallo World!!! напишим мы эти проги на Delphi и Asm... и посмотрим какая будет разница в размере...
Asm:
.386
.model flat, stdcall
option casemap:none
include \masm32\include\windows.inc
include \masm32\include\kernel32.inc
include \masm32\include\user32.inc
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
.data
MsgCaption db "Hello World!!!",0
MsgBoxText db "Hello",0
.code
start:
invoke MessageBox, NULL,addr MsgBoxText, addr MsgCaption, MB_OK
invoke ExitProcess,NULL
end start
Компиляция:
из MASM32 + окороченный стаб весом 64 байта..
Сохраняем код и кидаем его в файл: asm.asm...
Создаём ВАТ-ник с текстом:
@ml /c /coff /nologo asm.asm
@Link /ALIGN:4 /FORCE:UNRESOLVED /SUBSYSTEM:WINDOWS /MERGE:.data=.text /MERGE:.rdata=.text /stub:stub.bin asm.obj
Имеем ехе-шник весом 624 байта... Нормально... Теперь давай тоже самое на делфи...
DeLpHi:
unit H;
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!!!','Hello',0);
end;
end.
Компиляция:
dcc32.exe (от делфи3), Link.ExE, MSPDB50.DLL,(SYSINIT.DCU,SYSTEM.DCU - c урезанным RTL),USER32.LIB.....+ стаб 64 байт. Сохраняем код в файл: pas.pas... Создаем ВАТ-ник c текстом:
@dcc32.exe -JP pas.pas
@link.exe /ALIGN:4 /FORCE:UNRESOLVED /SUBSYSTEM:WINDOWS /MERGE:.data=.text /MERGE:.rdata=.text /ENTRY:Start$qqrv /STUB:stub.bin user32.lib pas.obj
Кидаем в одну папку получаем размер ехе - 668 байта...
Итог: ни вижу ни малейшего повода поводя считать делфи громозким языком))))
ПС: Большая просьба не искать аналогий со статьёй МС-РЕМа из августского номера 2005г Хакера... Там размер 832 байта... Статья не опирается на ту... просто действительно это апсолютно очевидный хеллоу ворлд, главная цель моего исследования получить минимальный вес прог на делфи...
Asm:
.386
.model flat, stdcall
option casemap:none
include \masm32\include\windows.inc
include \masm32\include\kernel32.inc
include \masm32\include\user32.inc
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
.data
MsgCaption db "Hello World!!!",0
MsgBoxText db "Hello",0
.code
start:
invoke MessageBox, NULL,addr MsgBoxText, addr MsgCaption, MB_OK
invoke ExitProcess,NULL
end start
Компиляция:
из MASM32 + окороченный стаб весом 64 байта..
Сохраняем код и кидаем его в файл: asm.asm...
Создаём ВАТ-ник с текстом:
@ml /c /coff /nologo asm.asm
@Link /ALIGN:4 /FORCE:UNRESOLVED /SUBSYSTEM:WINDOWS /MERGE:.data=.text /MERGE:.rdata=.text /stub:stub.bin asm.obj
Имеем ехе-шник весом 624 байта... Нормально... Теперь давай тоже самое на делфи...
DeLpHi:
unit H;
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!!!','Hello',0);
end;
end.
Компиляция:
dcc32.exe (от делфи3), Link.ExE, MSPDB50.DLL,(SYSINIT.DCU,SYSTEM.DCU - c урезанным RTL),USER32.LIB.....+ стаб 64 байт. Сохраняем код в файл: pas.pas... Создаем ВАТ-ник c текстом:
@dcc32.exe -JP pas.pas
@link.exe /ALIGN:4 /FORCE:UNRESOLVED /SUBSYSTEM:WINDOWS /MERGE:.data=.text /MERGE:.rdata=.text /ENTRY:Start$qqrv /STUB:stub.bin user32.lib pas.obj
Кидаем в одну папку получаем размер ехе - 668 байта...
Итог: ни вижу ни малейшего повода поводя считать делфи громозким языком))))
ПС: Большая просьба не искать аналогий со статьёй МС-РЕМа из августского номера 2005г Хакера... Там размер 832 байта... Статья не опирается на ту... просто действительно это апсолютно очевидный хеллоу ворлд, главная цель моего исследования получить минимальный вес прог на делфи...