013.txt

会变语言实现的一些程序

            .elseif ax==IDM_SAVE 
                mov ofn.Flags,OFN_LONGNAMES or\ 
                                OFN_EXPLORER or OFN_HIDEREADONLY 
                invoke GetSaveFileName, ADDR ofn 
                .if eax==TRUE 
                    invoke CreateFile,ADDR buffer,\ 
                                                GENERIC_READ or GENERIC_WRITE ,\ 
                                                FILE_SHARE_READ or FILE_SHARE_WRITE,\ 
                                                NULL,CREATE_NEW,FILE_ATTRIBUTE_ARCHIVE,\ 
                                                NULL 
                    mov hFileWrite,eax 
                    invoke MapViewOfFile,hMapFile,FILE_MAP_READ,0,0,0 
                    mov pMemory,eax 
                    invoke GetFileSize,hFileRead,NULL 
                    invoke WriteFile,hFileWrite,pMemory,eax,ADDR SizeWritten,NULL 
                    invoke UnmapViewOfFile,pMemory 
                    call   CloseMapFile 
                    invoke CloseHandle,hFileWrite 
                    invoke SetWindowText,hWnd,ADDR AppName 
                    invoke EnableMenuItem,hMenu,IDM_OPEN,MF_ENABLED 
                    invoke EnableMenuItem,hMenu,IDM_SAVE,MF_GRAYED 
                .endif 
            .else 
                invoke DestroyWindow, hWnd 
            .endif 
        .endif 
    .ELSE 
        invoke DefWindowProc,hWnd,uMsg,wParam,lParam 
        ret 
    .ENDIF 
    xor    eax,eax 
    ret 
WndProc endp 

CloseMapFile PROC 
        invoke CloseHandle,hMapFile 
        mov    hMapFile,0 
        invoke CloseHandle,hFileRead 
        ret 
CloseMapFile endp 

end start 
  

分析：
                    invoke CreateFile,ADDR buffer,\ 
                                                GENERIC_READ ,\ 
                                                0,\ 
                                                NULL,OPEN_EXISTING,FILE_ATTRIBUTE_ARCHIVE,\ 
                                                NULL 
当用户选择打开文件时，我们调用CreateFile来打开。注意我们指定GENERIC_READ（一般的读）来表示我们打开的文件只能够读出，把dwShareMode设成0，表示我们不想其他进程在我们操作文件时来存取该文件。 

                    invoke CreateFileMapping,hFileRead,NULL,PAGE_READONLY,0,0,NULL 

我们调用CreateFileMapping来在打开的文件的基础上生成内存映射文件。CreateFileMapping的语法如下： 

CreateFileMapping proto hFile:DWORD,\ 
                                         lpFileMappingAttributes:DWORD,\ 
                                         flProtect:DWORD,\ 
                                         dwMaximumSizeHigh:DWORD,\ 
                                         dwMaximumSizeLow:DWORD,\ 
                                         lpName:DWORD 

您应当知道该函数并没有必要把整个文件映射到内存中去，您可以用该函数来只映射文件的一部分。您可以在参数dwMaximumSizeHigh和dwMaximumSizeLow中指定内存映射文件的大小，如果您指定的值大于实际的文件，则实际的文件将增长到指定的大小，如果想要映射的内存大小正好和文件的实际大小相等，则把两个参数中都设成为0。您可以设定lpFileMappingAttributes为NULL，让WINDOWS赋予该内存映射文件于缺省的安全属性。
flProtect定义了内存映射文件的保护属性，我们指定它为PAGE_READONLY来规定该内存映射文件只能够读。注意该属性不能和CreateFile中指定的属性相矛盾，否则就不能生成内存映射文件。
lpName指定内存映射文件的名称，如果您想要该内存映射文件同时可以供其它的进程使用，就必须给它取个名称。不过在我们的例子中，只有我们的进程使用该内存映射文件故我们忽略该参数。 

                    mov     eax,OFFSET buffer 
                    movzx  edx,ofn.nFileOffset 
                    add      eax,edx 
                    invoke SetWindowText,hWnd,eax 

如果函数CreateFileMapping调用成功，我们把窗口的标题条换成被打开文件的名称。保存在缓冲区中的文件名是带有路径的全文件名，所以为了只显示文件名我们需要利用OPENFILENAME结构体中的成员nFileOffset的值来找到文件名的起始地址。 

                    invoke EnableMenuItem,hMenu,IDM_OPEN,MF_GRAYED 
                    invoke EnableMenuItem,hMenu,IDM_SAVE,MF_ENABLED 

为了避免用户一次性打开多个文件，我们让“打开文件”菜单项呈灰色显示，使得打开文件的菜单项失效。函数EnableMenuItem可以用来改变菜单项的属性。 之后用户可能保存文件或者直接关闭应用程序。如果用户选择关闭应用程序，则事先必须关闭内存映射文件和打开的文件， 代码如下: 

    .ELSEIF uMsg==WM_DESTROY 
        .if hMapFile!=0 
            call CloseMapFile 
        .endif 
        invoke PostQuitMessage,NULL 

在上面的代码段中，当WINDOWS的消息处理过程接收到WM_DESTROY消息后，它首先检测hMapFile值是否为0。如果不为0则表示相关的文件未关闭，这样就需要调用CloseMapFile来关闭它们。 

CloseMapFile PROC 
        invoke CloseHandle,hMapFile 
        mov    hMapFile,0 
        invoke CloseHandle,hFileRead 
        ret 
CloseMapFile endp 

上述过程调用是用来关闭内存映射文件和原来打开的文件的，这样可以使得程序退出时没有资源泄漏。如果用户选择保存文件的话，就弹出一个“保存文件”对话框，当用户输入了新文件的名称后，我们调用CreateFile函数来创建新文件---输出文件。 

                    invoke MapViewOfFile,hMapFile,FILE_MAP_READ,0,0,0 
                    mov pMemory,eax 

在输出文件创建后我们调用MapViewOfFile来映射希望映射到内存中的部分。该函数的语法如下: 

MapViewOfFile proto hFileMappingObject:DWORD,\ 
                                   dwDesiredAccess:DWORD,\ 
                                   dwFileOffsetHigh:DWORD,\ 
                                   dwFileOffsetLow:DWORD,\ 
                                   dwNumberOfBytesToMap:DWORD 

dwDesiredAccess用来指定我们想对文件进行的操作。在我们例子中，我们只想读，故指定标志FILE_MAP_READ。
dwFileOffsetHigh 和 dwFileOffsetLow 用来指定打开文件中欲映射的起始偏移位置。我们的例子中想映射整个的文件，故指定它们的值为0。
dwNumberOfBytesToMap 用来指定欲映射的字节数，如果想映射整个的文件，设定该值为0。
调用MapViewOfFile后，我们希望的部分就已经映射到内存中去了。您将得到一个指向起始内存块的指针。 

                    invoke GetFileSize,hFileRead,NULL 

调用该函数可以得到文件的大小，其值通过eax传送，如果文件的长度超过4G，那么文件长度DWORD的高值部分（也即超过4G的部分）保存在FileSizeHighWord中。因为我们估计一般的文件将没有这么大，故忽略该值。 

                    invoke WriteFile,hFileWrite,pMemory,eax,ADDR SizeWritten,NULL 

把内存映射文件中的数据写到输出文件中去。 

                    invoke UnmapViewOfFile,pMemory 

写完后，我们解除映射。 

                    call   CloseMapFile 
                    invoke CloseHandle,hFileWrite 

关闭内存映射文件和输出文件的句柄。 

                    invoke SetWindowText,hWnd,ADDR AppName 

恢复窗口的标题条到应用程序的名称。 

                    invoke EnableMenuItem,hMenu,IDM_OPEN,MF_ENABLED 
                    invoke EnableMenuItem,hMenu,IDM_SAVE,MF_GRAYED 

恢复“打开文件”和“保存文件”菜单项使的可以重新开始新的打开、编辑和保存循环。 


--------------------------------------------------------------------------------




--------------------------------------------------------------------------------