比较VC和Delphi的WinTest工程

核心提示： 看过几篇关于VC和Delphi比较的文章，自己也有心写写代码试试，比较VC和Delphi的WinTest工程，我在VC6下新建了一个工程，叫WinTest， Delphi也同样可以不使用VCL写程序，像网上有人将Quake2的源码翻译成了Delphi的，代码如下：#include <windows.h>H

 

看过几篇关于VC和Delphi比较的文章，自己也有心写写代码试试，我在VC6下新建了一个工程，叫WinTest。代码如下：

#include <windows.h>

HWND hwndButton;
int cx, cy;

LRESULT CALLBACK MainWndPRoc (HWND hWindow, UINT nMsg, WPARAM wPrm, LPARAM lPrm)
{

 HDC dc;
 PAINTSTRUCT ps;
 RECT rc;
 switch (nMsg)
 {
　case WM_CREATE:
　{
　 TEXTMETRIC tm;

　 dc = GetDC (hWindow);
　 SelectObject (dc, GetStockObject (SYSTEM_FIXED_FONT));
　 GetTextMetrics (dc, &tm);
　 cx = tm.tmAveCharWidth * 30;
　 cy = (tm.tmHeight + tm.tmExternalLeading) * 2;
　 ReleaseDC (hWindow, dc);

　 hwndButton = CreateWindow (
　　 "button",
　　 "Click Here",
　　 WS_CHILD | WS_VISIBLE | BS_PUSHBUTTON,
　　 0, 0, cx, cy,
　　 hWindow,
　　 (HMENU) 1,
　　 ((LPCREATESTRUCT) lPrm)->hInstance,
　　 NULL
　　 );

　 return 0;
　 break;
　}

　case WM_DESTROY:
　{
　 PostQuitMessage (0);
　 return 0;
　 break;
　}

　case WM_PAINT:
　{
　 dc = BeginPaint (hWindow, &ps);
　 GetClientRect (hWindow, &rc);

　 rc.bottom = rc.bottom / 2;
　 DrawText (dc, "Hello, World!", -1, &rc,
　 DT_SINGLELINE | DT_CENTER | DT_VCENTER);

　 EndPaint (hWindow, &ps);
　 return 0;
　 break;
　}

　case WM_SIZE:
　{
　 if (hwndButton && (wPrm == SIZEFULLSCREEN ||wPrm == SIZENORMAL))
　 {
　　rc.left = (LOWord(lPrm) - cx) / 2;
　　rc.top = HIWORD(lPrm) * 3 / 4 - cy / 2;
　　MoveWindow (hwndButton,rc.left, rc.top, cx, cy, TRUE);
　 }
　 return 0;
　 break;
　}

　case WM_COMMAND:
　{
　 if (LOWORD(wPrm) == 1 && HIWORD(wPrm) == BN_CLICKED &&
　　(HWND) lPrm == hwndButton)
　 {
　　DestroyWindow (hWindow);
　 }
　 return 0;
　 break;
　}
 }

 return DefWindowProc (hWindow, nMsg, wPrm, lPrm);
}

//winmain
int __stdcall WinMain (HINSTANCE hInst, HINSTANCE hPrev, LPSTR lpCmd, int nShow)
{
 HWND hWindowMain;
 MSG MyMsg;

 WNDCLASSEX wcex;

 wcex.cbSize = sizeof(WNDCLASSEX);
 wcex.style　 = CS_HREDRAW | CS_VREDRAW;
 wcex.lpfnWndProc = (WNDPROC)MainWndProc;
 wcex.cbClsExtra　= 0;
 wcex.cbWndExtra　= 0;
 wcex.hInstance　= hInst;
 wcex.hIcon　 = LoadIcon (NULL, IDI_application);
 wcex.hCursor　= LoadCursor (NULL, IDC_ARROW);
 wcex.hbrBackground = (HBRUSH)(COLOR_WINDOW+1);
 wcex.lpszClassName = "WinTestWin";
 wcex.hIconSm　= LoadIcon (NULL, IDI_APPLICATION);

 RegisterClassEx (&wcex);

 hWindowMain = CreateWindow (
　"WinTestWin",
　"Hello",
　WS_OVERLAPPEDWINDOW,
　CW_USEDEFAULT,
　CW_USEDEFAULT,
　CW_USEDEFAULT,
　CW_USEDEFAULT,
　0,
　0,
　hInst,
　NULL
 );

 ShowWindow (hWindowMain, nShow);
 UpdateWindow (hWindowMain);

 while (GetMessage (&MyMsg, 0, 0, 0))
 {
　TranslateMessage (&MyMsg);
　DispatchMessage (&MyMsg);
 }
 return MyMsg.wParam;
}

其中选择Release方式编译，打开VC6的最小代码优化，编译生成的执行码为36.0KB，
然后将其翻译成Delphi代码，如下：

program WinTest;

uses
  Windows,Messages;

var
  hwndButton:HWND;
  cx,cy:Integer;

function MainWndProc (hWindow:HWND;nMsg:UINT;wPrm:WPARAM;lPrm:LPARAM):LRESULT;stdcall;
var
  dc:HDC;
 ps:PAINTSTRUCT;
 rc:TRect;
  tm:TEXTMETRIC;
  pctst:PCREATESTRUCT;
begin
  case nMsg of
　  WM_CREATE:
　  begin
　　  dc := GetDC (hWindow);
　 SelectObject (dc, GetStockObject (SYSTEM_FIXED_FONT));
　 GetTextMetrics (dc, tm);
　 cx := tm.tmAveCharWidth * 30;
　 cy := (tm.tmHeight + tm.tmExternalLeading) * 2;
　 ReleaseDC (hWindow, dc);
　　  pctst:= PCREATESTRUCT(lPrm);
　　  hwndButton := CreateWindow(
　　 'button',
　　 'Click Here',
　　 WS_CHILD or WS_VISIBLE or BS_PUSHBUTTON,
　　 0, 0, cx, cy,
　　 hWindow,
　　 HMENU(1),
　　 pctst^.hInstance,
　　 nil
　　 );
　　  Result:=0;
　　  Exit;
　  end;

　  WM_DESTROY:
　  begin
　　  PostQuitMessage(0);
　　  Result:=0;
　　  Exit;
　  end;

　  WM_PAINT:
　  begin
　 dc := BeginPaint (hWindow, ps);
　 GetClientRect (hWindow, rc);

　 rc.bottom := Round(rc.bottom / 2);
　 DrawText (dc, 'Hello, World!', -1, rc,
　 DT_SINGLELINE or DT_CENTER or DT_VCENTER);

　 EndPaint (hWindow, ps);
　 Result:= 0;
　 Exit;
　  end;

　  WM_SIZE:
　  begin
　 if (hwndButton<>0) and (wPrm = SIZEFULLSCREEN)  or (wPrm = SIZENORMAL) then
　 begin
　　rc.left := Round((LOWORD(lPrm) - cx) / 2);
　　rc.top := Round(HIWORD(lPrm) * 3 / 4 - cy / 2);
　　MoveWindow (hwndButton,rc.left, rc.top, cx, cy, True);
　 end;
　 Result:= 0;
　 Exit;
　  end;

　  WM_COMMAND:
　  begin
　 if (LOWORD(wPrm) = 1) and (HIWORD(wPrm) = BN_CLICKED) and
　　(HWND(lPrm) = hwndButton) then
　 begin
　　DestroyWindow (hWindow);
　 end;
　 Result:= 0;
　 Exit;
　  end;

  end;

  Result:=DefWindowProc (hWindow, nMsg, wPrm, lPrm);

end;

//winmain
var
 hWindowMain:HWND;
 MyMsg:MSG;
 wcex:WNDCLASSEX;
begin
 wcex.cbSize := SizeOf(WNDCLASSEX);
 wcex.style := CS_HREDRAW or CS_VREDRAW;
 wcex.lpfnWndProc := @MainWndProc;
 wcex.cbClsExtra := 0;
 wcex.cbWndExtra := 0;
 wcex.hInstance := MainInstance;
 wcex.hIcon := LoadIcon (0, IDI_APPLICATION);
 wcex.hCursor := LoadCursor (0, IDC_ARROW);
 wcex.hbrBackground := HBRUSH(COLOR_WINDOW+1);
 wcex.lpszClassName := 'WinTestWin';
 wcex.hIconSm := LoadIcon (0, IDI_APPLICATION);

 RegisterClassEx (wcex);

 hWindowMain := CreateWindow (
　'WinTestWin',
　'Hello',
　WS_OVERLAPPEDWINDOW,
　CW_USEDEFAULT,
　CW_USEDEFAULT,
　CW_USEDEFAULT,
　CW_USEDEFAULT,
　0,
　0,
　MainInstance,
　nil
 );

 ShowWindow (hWindowMain, CmdShow);
 UpdateWindow (hWindowMain);

 while GetMessage (MyMsg, 0, 0, 0)=True do
 begin
　TranslateMessage (MyMsg);
　DispatchMessage (MyMsg);
 end;
 
end.

最后发现Delphi生成的代码仅有16.5k，比VC小了一半以上。说明Delphi有一个不错的编译器，加之VCL的可视化功能，应该是一个很好的开发工具。 以我来看，Delphi开发大型系统是一点问题没有的，甚至可能性能将超过VC，只是VCL的高封装层次使得使用VCL的程序通常都大，但开发效率却不是VC可以比的。 Delphi也同样可以不使用VCL写程序，像网上有人将Quake2的源码翻译成了Delphi的，效果与C写的相差无几。