欧美美女操人视频,国产精品青草久久久久福利99,夜夜嗨一区二区

micheal's tech — Fri, 03 Oct 2008 13:55:00 GMT

Windows 对话�?br>　　��֐�思义�Q�对话框是应用程序创建的一个窗口，�l�出用户一些信息或者接收用��L(f��ng)��输入。Delphi 中没有创建对话框�? 模板�Q�除�?ji��n)通用的对话框如打开对话框、字体对话框、颜色对话框�{�）(j��)。Delphi 本��n使用 TForm 创徏对话框。对话框可以使得临时输入的窗口创�? 更加�Ҏ(gu��)��。不�?nbsp;CreateWindow( ) 创徏一个弹出窗口然后在上面��d��控�g�Q�你只要制作一个资源模板，然后调用 DialogBox ��可�? �?ji��n)。本例中我们创徏�q��用资源模板，然后调用 Windows DialogBox( ) 函数。你可以参�?nbsp;Win32 API 帮助�? “Dialog Boxes”部分。在�E�序�C�Z��里我使用 DialogBox( ) 创徏�?ji��n)一个模式对话框。你需要�ؓ(f��)它准备好一个对话框资源文�g “Dlg1.RES”�?nbsp;

对话框资源的创徏
　　你需要��?nbsp;brcc32.exe �~�译对话框资源。这�?nbsp;Delphi 帮助文档中没有详�l�说明。下面我们开始创��Z��个非常简单的对话框资�?nbsp;.RC 文�g�?br>
First DIALOG  12, 10, 206, 86
     STYLE WS_POPUP | WS_DLGFRAME | WS_CAPTION
     CAPTION " A Dialog Form"
     FONT 10, "MS Sans Serif"
     {
     LTEXT "Simple Dialog"  200, 8, 6, 196, 8
     PUSHBUTTON "OK"   IDOK, 48, 71,  32, 12
     }

　　�q�是 C 语言代码�Q�不�?nbsp;Pascal 代码。第一�?#8220;First”是资源名字，��像下面一行的“MyIcon”�?br>
MyIcon  ICON  Floppy.ico

对于 .RC 文�g内的图标�Q�DIALOG 是一�U�资源，12�?0�?06�?6 是对话框的标准的上、左、宽、高参数�Q�单位不是像素，对话框单位参 �?nbsp;Win32 API 帮助�?#8220;GetDialogBaseUnits”�Q�。上和左与它的父�H�体的上和左相关�Q�以父窗体�ؓ(f��)参考原炏V��接下里�? 是：(x��)STYLE WS_POPUP | WS_DLGFRAME | WS_CAPTION �Q�这些设�|�了(ji��n)对话框窗体的创徏风格�Q?nbsp;C 语言�? �?nbsp;| �?nbsp;Pascal 语言中的 or 一��P��(j��)。还有一些其他的对话框风��|��(x��)

DS_LOCALEDIT -指定�~�辑框控件在对话框上使用�E�序数据模块的内存。默认情况下�Q�对话框上的�~�辑框控件是使用应用�E�序数据模块之外的内存的。如果没有��用这个标志，那么不要向编辑框�? �?nbsp;EM_GETHANDLE �?nbsp;EM_SETHANDLE 消息�Q�因为控件没有存储在�E�序的数据模块�?br>
DS_MODALFRAME -创徏一个模式对话框�Q�对话框可以通过指定 WS_CAPTION �?nbsp;WS_SYSMENU �l�合标题栏和�pȝ��菜单�?br>
DS_NOIDLEMSG -��止 Windows 或其它程序在对话框显�C�时向它�?nbsp;owner �H�体发�?nbsp;WM_ENTERIDLE 消息�?br>
DS_SYSMODAL -创徏一个系�l�的模式对话框�?br>
如果你��用了(ji��n) WS_CAPTION 风格�Q�那�?#8220;CAPTION " A Dialog Form"”�q�行��在对话框标题�(sh��)��放上�q�个字符 �Ԍ��“FONT 10, "MS Sans Serif"”��会(x��)讄��对话框内所有控件字体和��寸。{ �?nbsp;} 对应 Pascal �? �?nbsp;begin �?nbsp;end �Q�在 { } 之间你可以放�|�希望出现在对话框上的控�Ӟ��PUSHBUTTON 是一个按钮，参数�? �?nbsp;PUSHBUTTON 之后�Q��Ş式如�Q?br>PUSHBUTTON "Text on Control" IDNUMBER, Left, Top, Width, Height 后面的参��Cؓ(f��)对话框单位而不是像素。这里创建的对话�?nbsp;206 单位宽�?6 单位高、左侧距父窗�?nbsp;12 单位、顶部距父窗�?nbsp;10 单位�Q�对话框上有�?r��n)态文本框和按钮两个控件�?br>
其他对话框控�?br>　　对话框控件的语法形式为：(x��)
controlName text, IDnumber, Left, Top, Width, Height, style, extended-style

DEFPUSHBUTTON "Cancel" IDCANCEL, 8, 67,  32, 12
LTEXT "Static Text Left aligned"  201, 5, 21, 196, 24
CTEXT "Static Text Centered"     202, 18, 12, 170, 8
ICON  "Icon" -1, 1,1,0,0
EDITTEXT 300, 9, 47, 180, 50, ES_MULTILINE, WS_EX_CLIENTEDGE
CHECKBOX "Check Box", 100, 10, 60, 69, 8
AUTOCHECKBOX "Auto CheckBox", 101, 140, 60, 61, 8
RADIOBUTTON "radio", 400, 8, 32, 64, 8
AUTORADIOBUTTON "needs WS_GROUP", 401, 8, 42, 64, 8, WS_GROUP
GROUPBOX "GroupBox", -1, 4,22,150,42
　　
你可以通过攄��控�g�c�d��名字参数创徏大部�?nbsp;Windows 控�g�Q�参见下文的“在对话框中包含常规控�?#8221;部分�?br>
　　使用 DialogBox(hInstance, lpTemplate, hWndParent, lpDialogFunc);
�? 见程序代码的“procedure DoDialog”�Q�你�?x��)发现它讄��对话框��用的一些变量，然后调用 DialogBox( )�? lpTemplate ��源名�U�的 PChar �c�d��Q�父�H�体�?nbsp;hForm1 �Q�lpDialogFunc 讄��为对话框函数的地址�Q�参见帮助中 �?nbsp;DialogProc 部分�Q�。这�?nbsp;DialogProc �c�M��?nbsp;WndProc �Q�用于获取对话框消息�Q�参见代码中 �?nbsp;DialogProc �?nbsp;WM_INITDIALOG 消息被发送后对话框就被创��Z��(ji��n)�Q�因此你可以在这里设�|�控件。由于对话框是从模板创徏的，所�? 控�g的句柄还?sh��)��知道，�q�样可以�?nbsp;ID ��L(f��ng)��讉K��它们。通过 GetDlgItem(hWnd,IDNUMBER) 获取控�g的句柄，你可以��用大量控�? �?nbsp;SendMessage 或者状态变化（Enable( ) �{�）(j��)。有几个特定的对话框函数�Ҏ(gu��)�� ID �~�号直接使用 �Q�SendDlgItemMessage�?nbsp;CheckDlgButton�?nbsp;SetDlgItemText�?nbsp;GetDlgItemText�Q��? �?nbsp;WM_COMMAND 消息中，LOWORD(wParam) ��是控�g�?nbsp;ID ��L(f��ng)��?br>

有待完善……

对于本文的对话框演示�E�序�Q��用的“Dlg1.rc”源文件代码如下：(x��)

Z1 ICON Done2.ICO
Z2 ICON Flop.ICO

First DIALOG  12, 10, 206, 86
     STYLE WS_POPUP | WS_DLGFRAME | WS_CAPTION | WS_SYSMENU
     CAPTION " A Dialog Form"
     FONT 10, "MS Sans Serif"
     {
     CTEXT "Dialogs are really NON Delphi" 200, 18, 1, 170, 10
     ICON  "Z1" -1, 1,1,0,0
     ICON  "Z2" -1, 189,1,0,0
     CTEXT "Checkbox was Unchecked"     201, 18, 12, 170, 8
     LTEXT " "  202, 5, 21, 196, 24
     EDITTEXT      300, 14, 47, 100, 10
     AUTOCHECKBOX "Show MessageBox", 100, 10, 60, 69, 8
     AUTOCHECKBOX "Check me", 101, 140, 60, 61, 8
     DEFPUSHBUTTON "OK"   IDOK, 48, 71,  32, 12, WS_GROUP
     PUSHBUTTON "set Edit Text"   401, 108, 71,  44, 12,
     }

　　使用 brcc32.exe �~�译 Dlg1.rc 文�g�Q�我不知道�ؓ(f��)什么可以不使用“ #include ”�Q�但是确实通过�~�译�?ji��n)（生�?nbsp;Dlg1.RES 文�g�Q��?br>
对话框程�?br>　　本程序演�C�Z��(ji��n)创徏与��?nbsp;Windows 对话框的�Ҏ(gu��)��Q�你需要��用上面代码编译得到的 Dlg1.RES 文�g�?nbsp;

program Dialogs;

uses
  Windows, Messages, smallUtils;
{$R *.RES}
{$R Dlg1.RES}
var
  wClass: TWndClass;
  hForm1, hExitBut, hDlgBut, hCheckCB, hEdit1,
  hLabel1, Font1, hLabel2, hLabel3: THandle;
  mainMsg: TMSG;
  Rect1: TRect;
  DlgText, DlgEditText: String;
  DlgChk, Dlg2Chk: Boolean;

function DialogProc(hWnd,Msg,wParam,lParam:Longint):Boolean; stdcall;
{�q�里处理对话框消息。有些消息如 WndProc 消息�Q�WM_COMMAND、WM_CLOSE�Q�列
在这里，有些消息�Q�WM_INITDIALOG�Q�没有列出。在对话�?nbsp;Proc �l�常使用
DlgItem ID 而不�?nbsp;hWnd }
var
  OKrect:TRect;
begin
  Result := False;
  case Msg of
WM_INITDIALOG: begin
                 {WM_INITDIALOG 是设�|�你�?nbsp;Dlg Items 属性的地方�Q�有些特定的
                 DlgItem 函数�Q�SendDlgItemMessage、SetDlgItemText�Q?br>                 �Ҏ(gu��)��比较有用。}(c��ng)
                 DlgEditText := '';
                 SendMessage(hWnd, WM_SETICON, 1, LoadIcon(hInstance,'Z1'));
                 {对话框默认��用图标，你需要设�|�图标}
                 SendDlgItemMessage(hWnd,200,WM_SETFONT,Font1, 0);
                 {SendDlgItemMessage 使用 ID �~�号代替 hWnd}
                 CheckDlgButton(hWnd,100,BST_CHECKED);
                 if SendMessage(hCheckCB,BM_GETCHECK,0,0) = BST_CHECKED then
                 begin
                   {你可以从�ȝ��体获取信息来讄��对话框}
                   SetWindowText(GetDlgItem(hWnd,201),'多选按钮被��N�?);
                   {�q�里可以使用 SetWindowText�Q�但是一样可以��?nbsp;SetDlgItemText�?br>                   SetDlgItemText(hWnd,201,'��(g��)查框被勾�?);}
                   EnableWindow(GetDlgItem(hWnd,101),False);
                   {大部分改变窗口的函数对于对话框一��h��效}
                 end;
                 {SetWindowText(GetDlgItem(hWnd,202),PChar(DlgText));}
                 SetDlgItemText(hWnd,202,PChar(DlgText));
                 SetDlgItemText(hWnd,300,PChar(GetWindowStr(hEdit1)));
                 GetWindowRect(GetDlgItem(hWnd,IDOK),OKrect);
                 SetCursorPos(OKrect.Left+10,OKrect.Top+10);
               end;
WM_COMMAND: begin
              {�?nbsp;MessageProc �?nbsp;WM_COMMAND 消息不一��P��wParam �?nbsp;LParam
              有不同的用途。}(c��ng)
              if LOWORD(wParam) = IDOK then
              begin
                {对话框在 LOWORD(wParam) 使用 DlgItem ID}
                if (IsDlgButtonChecked(hWnd,101) = BST_CHECKED)
                then  Dlg2Chk := True;
                if (IsDlgButtonChecked(hWnd,100) = BST_CHECKED) then
                begin
                  MessageBox(hWnd,'对话框上多选按钮被��N�?,
                    '退出对话框',MB_OK or MB_ICONQUESTION);
                  DlgChk := True;
                end;
                DlgEditText := GetWindowStr(GetDlgItem(hWnd,300));
                EndDialog(hWnd,1);
                Result := True;
              end
              else if LOWORD(wParam) = 401
                   then SetDlgItemText(hWnd,300, '新的�~�辑框文�?)
                   else if LOWORD(wParam) = 101
                        then  MessageBox(hWnd,'对话框上多选按钮被单击',
                                  '单击�?,MB_OK or MB_ICONQUESTION);
            end;
WM_CLOSE: begin
            {�?nbsp;MessageProc 不一��P��你需要��?nbsp;EndDialog 退��Z��个对话框}
            EndDialog(hWnd,1);
            Result := True;
          end;
  end;
end;

procedure DoDialog;
var
  Dsize: TdriveSize;
begin
  if hLabel3 <> 0 then
  begin
    DestroyWindow(hLabel3);
    while PeekMessage(mainMsg, 0, 0, 0, PM_REMOVE)
    do  DispatchMessage(mainMsg);
    hLabel3 := 0;
  end;
  Dsize := DiskSpace('C:\');
  DlgText := 'C 盘��d��量�ؓ(f��)  '+Int2Str(Dsize.TotalS)+
           ' 字节 - 可用�I�间�?nbsp; '+ Int2Str(Dsize.FreeS);
  {DlgText 被用于对话框的静(r��n)态标�{�控�Ӟ��你应该在调用 DialogBox( ) 前设�|�好对话�?br>  需要的所有的变量。}(c��ng)
  DialogBox(hInstance, 'First', hForm1, @DialogProc);
  {DialogBox ��根据资�?nbsp;DIALOG �?nbsp;'First' 创徏一个模式对话框�Q�它�?nbsp;hForm1 作�ؓ(f��)
  父窗体，�?nbsp;DialogProc 作�ؓ(f��) WndProc (MessageProc)}
  {可以从对话框获取�q�回值}
  if DlgChk then
  MessageBox(hForm1,'�q�里 DlgChk = True',
      '对话框返回�?,MB_OK or MB_ICONQUESTION);
  if Dlg2Chk then
  begin
    hLabel3 := CreateWindow('Static', '"Check me" 多选按钮被��N�?,
         WS_VISIBLE or WS_CHILD or SS_CENTER,6,200,370,29,hForm1,0,hInstance,nil);
    SendMessage(hLabel3, WM_SETFONT, Font1,0);
  end;
  SetWindowText(hLabel2,@DlgEditText[1]);
  DlgChk := False;
  Dlg2Chk := False;
end;

function MessageProc(hWnd,Msg,wParam,lParam:Integer):Integer; stdcall;
begin
  case Msg of
    WM_COMMAND: if lParam = abs(hExitBut)
                then PostMessage(hForm1,WM_CLOSE,0,0)
                else if (LParam = abs(hDlgBut))
                     then DoDialog;
    WM_DESTROY: PostQuitMessage(0);
  end; // case 语句�l�束
  Result := DefWindowProc(hWnd,Msg,wParam,lParam);
end;

begin     // �ȝ��序开�?nbsp;//
  DlgChk := False;
  Dlg2Chk := False;
  hLabel3 := 0;

  Font1 := CreateFont(-16,0,0,0,FW_BOLD,0,0,0,ANSI_CHARSET,OUT_DEFAULT_PRECIS,
   CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,VARIABLE_PITCH or FF_SWISS,'Arial');

  wClass.hInstance := hInstance;
  with wClass do
  begin
    style :=        CS_PARENTDC or CS_BYTEALIGNWINDOW;
    hIcon :=        LoadIcon(hInstance,'MAINICON');
    lpfnWndProc :=  @MessageProc;
    hbrBackground:= COLOR_BTNFACE+1;
    lpszClassName:= 'Form Class';
    hCursor :=      LoadCursor(0,IDC_ARROW);
  end;
  RegisterClass(wClass);

  SetRect(Rect1,0,0,430,300);
  if not AdjustWindowRect(Rect1,WS_CAPTION or WS_MINIMIZEBOX or WS_SYSMENU,False)
  then SetRect(Rect1,0,0,438,328);

  hForm1 := CreateWindow(wClass.lpszClassName, '对话框演�C�程�?,
    WS_CAPTION or WS_MINIMIZEBOX or WS_SYSMENU or WS_VISIBLE,
    (GetSystemMetrics(SM_CXSCREEN) div 2)-200,
    (GetSystemMetrics(SM_CYSCREEN) div 2)-160,
    Rect1.Right-Rect1.Left, Rect1.Bottom-Rect1.Top,
    0, 0, hInstance, nil);

  hLabel1 := CreateWindow('Static', '对话框演�C?,
         WS_VISIBLE or WS_CHILD or SS_CENTER,8,8,388,22,hForm1,0,hInstance,nil);
  SendMessage(hLabel1,WM_SETFONT,Font1,0);

  hLabel2 := CreateWindow('Static',
         '在下面输入你��x(ch��ng)��|�到对话框的文字'#10'对话框编辑框如数的文字将在此昄��',
         WS_VISIBLE or WS_CHILD or SS_LEFT,10,38,290,28,hForm1,0,hInstance,nil);
  SendMessage(hLabel2,WM_SETFONT,GetStockObject(ANSI_VAR_FONT),0);

  hExitBut := CreateWindow('Button','退 �?,
    WS_VISIBLE or WS_CHILD or BS_PUSHBUTTON or BS_TEXT,
    350,270,74,24, hForm1,0, hInstance,nil);

  hEdit1 := CreateWindowEx(WS_EX_CLIENTEDGE,'Edit','�q�里输入的文字将昄��在对话框�?,
    WS_VISIBLE or WS_CHILD or ES_LEFT or ES_AUTOHSCROLL,
    16,78,410,21,hForm1,0,hInstance,nil);
  SendMessage(hEdit1,WM_SETFONT,GetStockObject(ANSI_VAR_FONT),0);

  hDlgBut := CreateWindow('Button','昄��对话�?,
    WS_VISIBLE or WS_CHILD or BS_PUSHBUTTON or BS_TEXT,
    30,160,144,24, hForm1,0, hInstance,nil);
  SendMessage(hDlgBut, WM_SETFONT, GetStockObject(ANSI_VAR_FONT),0);

  hCheckCB := CreateWindow('Button','对话框多选检��按�?,
    WS_CHILD or BS_AUTOCHECKBOX or WS_VISIBLE,
    20,130,190,24, hForm1,0,hInstance,nil);
  SendMessage(hCheckCB, WM_SETFONT, GetStockObject(ANSI_VAR_FONT),0);

  while GetMessage(mainMsg,0,0,0) do
  begin
    TranslateMessage(mainMsg);
    DispatchMessage(mainMsg);
  end;
  DeleteObject(Font1);
  DlgText := '';
  DlgEditText := '';
end.

在对话框中包含常规控�?br>　　��Z��(ji��n)在对话框里创建预定义的控件类�Q�可以��用如下的一般语法，参数为：(x��)

ClassName text, IDnumber, x, y, width, height , style , extended-style
X �?nbsp;width 是水�q�x(ch��ng)��向单位，是对话框基本宽度单位�?nbsp;1/4 �Q�Y �?nbsp;height 是竖直方向单位，是对话框基本高度单位�?nbsp;1 /8 。当前对话框基本单位是计��机从当前系�l�字体的高度和宽度得到的�Q�GetDialogBaseUnits( ) 函数可以�q�回对话框基本单位的对应像素倹{�?br>
ControlName - 预定义的控�g的类名，比如 BUTTON�?nbsp;COMBOBOX�?nbsp;EDIT�?nbsp;LISTBOX�?nbsp;SCROLLBAR�?nbsp;STATIC �{��?br>
text - �? 定控件上昄��的文本。文本位�|�在控�g指定��寸之内或者接�q�控件。这个参数是有双引号�Q?�Q�括��h��?nbsp;0 到多个字�W�。字�W�串自动以零�l�束�q�在资源文�g�q�回 �l�果中�{换成 Unicode 字符。默认情况下�Q�双引号括�v的字�W�是 ANSI 字符�Q�交换码��序被认为是按位交换码顺序。如果字�W�串加上 L 前缀�Q? 字符串被认�ؓ(f��)是宽字符�l�成�Q�交换码��序被认为是两位交换码，�q�就�?nbsp;Unicode 字符。如果双引号本��n在文本内�Q�那么需要连�l��用双引号两次�? And �W�号�Q?amp;�Q�放在文本中表示后面跟着的字�W�是控�g的助记符�Q�加速字�W�）(j��)�Q�当控�g昄��的时候，& 不会(x��)出现�Q�后面的字符�?x��)自动加上�? 划线昄��Q�用户可以通过按下下划�U�助记符来选择�q�个控�g。�ؓ(f��)�?ji��n)在字符串中使�?nbsp;& 字符�Q�你需要连�l�两�ơ��用（&&�Q��?br>
IDnumber - 指定控�g标识。这个��gؓ(f��) Word �c�d��Q�介�?nbsp;0 �?nbsp;65,535 之间�?br>
x - �l�出控�g在对话框客户区域左边距，�q�个��gؓ(f��) Word �c�d��Q�介�?nbsp;0 �?nbsp;65,535 之间。这个坐标��u在对话框的客户区域的左边�~��(sh��)ؓ(f��) 0 对话框单位�?br>
y - �l�出控�g在对话框客户区域上边距，�q�个��gؓ(f��) Word �c�d��Q�介�?nbsp;0 �?nbsp;65,535 之间。这个坐标��u在对话框的客户区域的上边�~��(sh��)ؓ(f��) 0 对话框单位�?br>
width - �? 定控件宽度，�q�个��gؓ(f��) Word �c�d��Q�介�?nbsp;1 �?nbsp;65,535 之间。宽度单位�ؓ(f��) 1/4 字符�? Specifies the width of the control. This value must be a Word value in the range 1 through 65,535. The width is in 1/4-character units.
height - 指定控�g高度�Q�这个��gؓ(f��) Word �c�d��Q�介�?nbsp;1 �?nbsp;65,535 之间。宽度单位�ؓ(f��) 1/8 字符�?nbsp;

style - 指定控�g的风根{��利用逻辑或操作（ | �Q�组合多个风根{�?nbsp;

extended-style - 指定扩展风格�Q�WS_EX_xxx�Q�。你必须�l�定一�U�风��g��便��用扩展风�?img src ="http://m.shnenglu.com/michaelgao/aggbug/63200.html" width = "1" height = "1" />

micheal's tech 2008-10-03 21:55 发表评论

micheal's tech — Wed, 18 Jun 2008 09:30:00 GMT

一、Debug �?Release �~�译方式的本质区�?/p>

    Debug 通常�U�Cؓ(f��)调试版本�Q�它包含调试信息�Q��ƈ且不作�Q何优化，便于�E�序员调试程序。Release �U�Cؓ(f��)发布版本�Q�它往往是进行了(ji��n)各种优化�Q��得程序在代码大小和运行速度上都是最优的�Q�以便用户很好地使用�?br>    Debug �?Release 的真正秘密，在于一�l�编译选项。下面列��Z��(ji��n)分别针对二者的选项�Q�当焉��此之外还有其他一些，�?Fd /Fo�Q�但区别�q�不重要�Q�通常他们也不�?x��)引�?Release 版错误，在此不讨论）(j��)

Debug 版本�Q?br> /MDd /MLd �?/MTd   使用 Debug runtime library(调试版本的运行时��d��数库)
/Od                 关闭优化开�?br> /D "_DEBUG"         相当�?#define _DEBUG,打开�~�译调试代码开�?主要针对
                     assert函数)
/ZI                 创徏 Edit and continue(�~�辑�l�箋(hu��))数据库，�q�样在调试过
                     �E�中如果修改�?ji��n)源代码不需重新�~�译
/GZ                 可以帮助捕获内存错误
/Gm                 打开最��化重链接开养I��减少链接旉��

Release 版本�Q?nbsp;
/MD /ML �?/MT      使用发布版本的运行时��d��数库
/O1 �?/O2          优化开养I��使程序最��或最�?br> /D "NDEBUG"         关闭条�g�~�译调试代码开�?即不�~�译assert函数)
/GF                 合�ƈ重复的字�W�串�Q��ƈ��字�W�串帔R��攑ֈ�只读内存�Q�防�?br>                     被修�?/p>

实际上，Debug �?Release �q�没有本质的界限�Q�他们只是一�l�编译选项的集合，�~�译器只是按照预定的选项行动。事实上�Q�我们甚臛_��以修改这些选项�Q�从而得��C��化过的调试版本或是带跟踪语句的发布版本�?br>
二、哪些情况下 Release 版会(x��)出错

    有了(ji��n)上面的介�l�，我们再来逐个对照�q�些选项看看 Release 版错误是怎样产生�?br>
1. Runtime Library�Q�链接哪�U�运行时��d��数库通常只对�E�序的性能产生影响。调试版本的 Runtime Library 包含�?ji��n)调试信息，�q��用了(ji��n)一些保护机制以帮助发现错误�Q�因此性能不如发布版本。编译器提供�?Runtime Library 通常很稳定，不会(x��)造成 Release 版错误；倒是�׃�� Debug �?Runtime Library 加强�?ji��n)对错误的检��，如堆内存分配�Q�有时会(x��)出现 Debug 有错�?Release 正常的现象。应当指出的是，如果 Debug 有错�Q�即�?Release 正常�Q�程序肯定是�?Bug 的，只不�q�可能是 Release 版的某次�q�行没有表现出来而已�?br>
2. 优化�Q�这是造成错误的主要原因，因�ؓ(f��)关闭优化时源�E�序基本上是直接��译的，而打开优化后编译器�?x��)作��Z��p�d��假设。这�c�错误主要有以下几种�Q?br>
    (1) 帧指�?Frame Pointer)省略�Q�简�U?FPO �Q�：(x��)在函数调用过�E�中�Q�所有调用信息（�q�回地址、参敎ͼ�(j��)以及(qi��ng)自动变量都是攑֜�栈中的。若函数的声明与实现不同�Q�参数、返回倹{��调用方式）(j��)�Q�就�?x��)��生错误————但 Debug 方式下，栈的讉K��通过 EBP 寄存器保存的地址实现�Q�如果没有发生数�l�越界之�cȝ��错误�Q�或是越�?#8220;不多”�Q�，函数通常能正常执行；Release 方式下，优化�?x��)省�?EBP 栈基址指针�Q�这样通过一个全局指针讉K��栈就�?x��)造成�q�回地址错误是程序崩溃。C++ 的强�c�d��Ҏ(gu��)��能��(g��)查出大多数这��L(f��ng)��错误�Q�但如果用了(ji��n)强制�c�d��转换�Q�就不行�?ji��n)。你可以�?Release 版本中强制加�?/Oy- �~�译选项来关掉��指针省略�Q�以��定是否此类错误。此�c�错误通常有：(x��)

     �?MFC 消息响应函数书写错误。正��的应�ؓ(f��)
      afx_msg LRESULT OnMessageOwn(WPARAM wparam, LPARAM lparam);
      ON_MESSAGE 宏包含强制类型�{换。防止这�U�错误的�Ҏ(gu��)��之一是重定义 ON_MESSAGE 宏，把下列代码加�?stdafx.h 中（�?include "afxwin.h"之后�Q?函数原�Ş错误时编译会(x��)报错
      #undef ON_MESSAGE
      #define ON_MESSAGE(message, memberFxn) \
      { message, 0, 0, 0, AfxSig_lwl, \
      (AFX_PMSG)(AFX_PMSGW)(static_cast< LRESULT (AFX_MSG_CALL \
      CWnd::*)(WPARAM, LPARAM) > (&memberFxn) },

    (2) volatile 型变量：(x��)volatile 告诉�~�译器该变量可能被程序之外的未知方式修改�Q�如�pȝ��、其他进�E�和�U�程�Q�。优化程序�ؓ(f��)�?ji��n)�ɽE�序性能提高�Q�常把一些变量放在寄存器中（�c�M��?register 关键字）(j��)�Q�而其他进�E�只能对该变量所在的内存�q�行修改�Q�而寄存器中的值没变。如果你的程序是多线�E�的�Q�或者你发现某个变量的��g��预期的不�W�而你��信已正��的讄��?ji��n)，则很可能遇到�q�样的问题。这�U�错误有时会(x��)表现为程序在最快优化出错而最��优化正常。把你认为可疑的变量加上 volatile 试试�?br>
    (3) 变量优化�Q�优化程序会(x��)�Ҏ(gu��)��变量的��用情况优化变量。例如，函数中有一个未被��用的变量�Q�在 Debug 版中它有可能掩盖一个数�l�越界，而在 Release 版中�Q�这个变量很可能被优化调�Q�此时数�l�越界会(x��)破坏栈中有用的数据。当�?d��ng)��实际的情况�?x��)比这复杂得多。与此有关的错误有：(x��)
     �?非法讉K��Q�包括数�l�越界、指针错误等。例�?br>         void fn(void)
         {
           int i;
           i = 1;
           int a[4];
           {
             int j;
             j = 1;
           }
           a[-1] = 1;//当然错误不会(x��)�q�么明显�Q�例如下标是变量
           a[4] = 1;
         }
       j 虽然在数�l�越界时已出�?ji��n)作用域�Q�但其空间�ƈ未收回，因�?i �?j ��׃��(x��)掩盖��界。�?Release 版由�?i、j �q�未其很大作用可能会(x��)被优化掉�Q�从而��栈被破坏�?/p>

3. _DEBUG �?NDEBUG �Q�当定义�?_DEBUG �Ӟ��assert() 函数�?x��)被�~�译�Q��?NDEBUG 时不被编译。除此之外，VC++中还有一�p�d��断言宏。这包括�Q?/p>

    ANSI C 断言         void assert(int expression );
    C Runtime Lib 断言 _ASSERT( booleanExpression );
                        _ASSERTE( booleanExpression );
    MFC 断言            ASSERT( booleanExpression );
                        VERIFY( booleanExpression );
                        ASSERT_VALID( pObject );
                        ASSERT_KINDOF( classname, pobject );
    ATL 断言            ATLASSERT( booleanExpression );
    此外�Q�TRACE() 宏的�~�译也受 _DEBUG 控制�?/p>

所有这些断�a�都只�?Debug版中才被�~�译�Q�而在 Release 版中被忽略。唯一的例外是 VERIFY() 。事实上�Q�这些宏都是调用�?assert() 函数�Q�只不过附加�?ji��n)一些与库有关的调试代码。如果你在这些宏中加入了(ji��n)��M��E�序代码�Q�而不只是布尔表达式（例如赋倹{��能改变变量值的函数调用 �{�）(j��)�Q�那�?Release 版都不会(x��)执行�q�些操作�Q�从而造成错误。初学者很�Ҏ(gu��)��犯这�c�错误，查找的方法也很简单，因�ؓ(f��)�q�些宏都已在上面列出�Q�只要利�?VC++ �?Find in Files 功能在工�E�所有文件中扑ֈ�用这些宏的地方再一一��(g��)查即可。另外，有些高手可能�q��(sh��)��(x��)加入 #ifdef _DEBUG 之类的条件编译，也要注意一下�?br> ��Z��值得一提的�?VERIFY() 宏，�q�个宏允�怽��程序代码放在布?y��u)��(d��ng)表辑ּ�里。这个宏通常用来��(g��)�?Windows API 的返回倹{��有些�h可能��个原因而滥�?VERIFY() �Q�事实上�q�是危险的，因�ؓ(f��) VERIFY() �q�反�?ji��n)断�a�的思想�Q�不能�ɽE�序代码和调试代码完全分��，最�l�可能会(x��)带来很多�ȝ��(ch��)。因此，专家们徏议尽量少用这个宏�?/p>

4. /GZ 选项�Q�这个选项�?x��)做以下�q�些�?/p>

    (1) 初始化内存和变量。包括用 0xCC 初始化所有自动变量，0xCD ( Cleared Data ) 初始化堆中分配的内存�Q�即动态分配的内存�Q�例�?new �Q�，0xDD ( Dead Data ) 填充已被释放的堆内存�Q�例�?delete �Q�，0xFD( deFencde Data ) 初始化受保护的内存（debug 版在动态分配内存的前后加入保护内存?sh��)��防止越界访问�?j��)�Q�其中括号中的词是微软徏议的助记词。这样做的好处是�q�些值都很大�Q�作为指针是不可能的�Q�而且 32 位系�l�中指针很少是奇数��|��在有些系�l�中奇数的指针会(x��)产生�q�行旉��误）(j��)�Q�作为数��g��很少遇到�Q�而且�q�些��g��很容易��L认，因此�q�很有利于在 Debug 版中发现 Release 版才�?x��)遇到的错误。要特别注意的是�Q�很多�h认�ؓ(f��)�~�译器会(x��)�?0 来初始化变量�Q�这是错误的�Q�而且�q�样很不利于查找错误�Q��?br>    (2) 通过函数指针调用函数�Ӟ��?x��)通过��(g��)查栈指针验证函数调用的匹配性。（防止原�Ş不匹配）(j��)
    (3) 函数�q�回前检查栈指针�Q�确认未被修攏V��（防止��界讉K��和原形不匚w��Q�与�W�二��合在一起可大致模拟帧指针省�?FPO �Q?br>
    通常 /GZ 选项�?x��)造成 Debug 版出错�?Release 版正常的现象�Q�因�?Release 版中未初始化的变量是随机的，�q�有可能使指针指向一个有效地址而掩盖了(ji��n)非法讉K��?br>
除此之外�Q?Gm /GF �{�选项造成错误的情冉|��较少�Q�而且他们的效果显而易见，比较�Ҏ(gu��)��发现�?/p>

三、怎样“调试” Release 版的�E�序

遇到 Debug 成功�?Release ��p�|�Q�显然是一件很沮��的事�Q�而且往往无从下手。如果你看了(ji��n)以上的分析，�l�合错误的具体表玎ͼ�很快扑և��?ji��n)错误，固然很好。但如果一时找不出�Q�以下给��Z��(ji��n)一些在�q�种情况下的�{�略�?br>
1. 前面已经提过�Q�Debug �?Release 只是一�l�编译选项的差别，实际上�ƈ没有什么定义能区分二者。我们可以修�?Release 版的�~�译选项来羃?y��u)��错误范围。如上所�q�ͼ�可以�?Release 的选项逐个改�ؓ(f��)与之相对�?Debug 选项�Q�如 /MD 改�ؓ(f��) /MDd�?O1 改�ؓ(f��) /Od�Q�或�q�行旉��优化改�ؓ(f��)�E�序大小优化。注意，一�ơ只改一个选项�Q�看改哪个选项旉��误消失，再对应该选项相关的错误，针对性地查找。这些选项�?Project\Settings... 中都可以直接通过列表选取�Q�通常不要手动修改。由于以上的分析已相当全面，�q�个�Ҏ(gu��)��是最有效的�?/p>

    2. 在编�E�过�E�中��p��时常注意��试 Release 版本�Q�以免最后代码太多，旉��又很紧�?br>
    3. �?Debug 版中使用 /W4 警告�U�别�Q�这样可以从�~�译器获得最大限度的错误信息�Q�比�?if( i =0 )��׃��(x��)引�v /W4 警告。不要忽略这些警告，通常�q�是你程序中�?Bug 引�v的。但有时 /W4 �?x��)带来很多冗余信息，�?未��用的函数参数警告�Q�而很多消息处理函数都�?x��)忽略某些参数。我们可以用
      #progma warning(disable: 4702) //��止
      //...
      #progma warning(default: 4702) //重新允许
来暂时禁止某个警告，或��?br>      #progma warning(push, 3) //讄��警告�U�别�?/W3
      //...
      #progma warning(pop) //重设�?/W4
来暂时改变警告��别，有时你可以只在认为可疑的那一部分代码使用 /W4�?/p>     4.你也可以�?Debug 一栯��试你�?Release 版，只要加入调试�W�号。在 Project/Settings... 中，选中 Settings for "Win32 Release"�Q�选中 C/C++ 标签�Q�Category �?General�Q�Debug Info �?Program Database。再�?Link 标签 Project options 最后加�?"/OPT:REF" (引号不要�?。这栯��试器��p��使用 pdb 文�g中的调试�W�号。但调试时你�?x��)发现断点很难设�|�，变量也很难找到——这些都被优化过�?ji��n)。不�q��o(h��)人庆(ji��n)�q�的是，Call Stack �H�口仍然工作正常�Q�即使��指针被优化，栈信息（特别是返回地址�Q�仍然能扑ֈ�。这对定位错误很有帮助�?

micheal's tech 2008-06-18 17:30 发表评论