用户登录  |  用户注册
首 页商业源码原创产品编程论坛
当前位置:PB创新网文章中心编程技巧Delphi

比较VC和Delphi的WinTest工程

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2009-03-16 20:19:35
 

看过几篇关于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写的相差无几。


Tags:

作者:佚名

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论
PB创新网ourmis.com】Copyright © 2000-2009 . All Rights Reserved .
页面执行时间:30,203.13000 毫秒
Email:ourmis@126.com QQ:2322888 蜀ICP备05006790号