cioerror.asm

一个采用汇编线程池实现的Socket完成端口编程例程。

    IOSKT_SetLastErr PROC uses edi lpTHIS:DWORD,_lpLastErr:DWORD
       SetObject edi,CLS_IOSKT
       
       mov    [edi].m_ThreadAbort,TRUE

       invoke lstrcpy,[edi].m_lpLastErr,_lpLastErr
       IF _DEBUG
          ;invoke _LogSysError,_lpLastErr
          invoke MessageBox,NULL,[edi].m_lpLastErr,CTEXT("提示"),MB_OK or MB_ICONERROR
       ENDIF
       ReleaseObject edi
       ret
    IOSKT_SetLastErr ENDP

    IOSKT_SetWarning PROC uses edi lpTHIS:DWORD,_lpLastErr:DWORD 
       SetObject edi,CLS_IOSKT
       
       invoke lstrcpy,[edi].m_lpLastErr,_lpLastErr
       IF _DEBUG
          ;invoke _LogSysError,_lpLastErr
          invoke MessageBox,NULL,[edi].m_lpLastErr,CTEXT("提示"),MB_OK or MB_ICONWARNING
       ENDIF
       ReleaseObject edi
       ret
    IOSKT_SetWarning ENDP

    IOSKT_GetLastErr PROC uses edi lpTHIS:DWORD
       LOCAL @lpError:DWORD
       SetObject edi,CLS_IOSKT
       m2m    @lpError,[edi].m_lpLastErr
       ReleaseObject edi
       mov    eax,@lpError
       ret
    IOSKT_GetLastErr ENDP