main.asm

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

.386
.model flat, stdcall
option casemap :none   ; case sensitive
      
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Include 数据
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
include      \masm32\include\windows.inc
include      \masm32\include\kernel32.inc
include      \masm32\include\wsock32.inc
include      \masm32\include\ws2_32.inc
include      \masm32\include\user32.inc

includelib   \masm32\lib\kernel32.lib
includelib   \masm32\lib\wsock32.lib
includelib   \masm32\lib\ws2_32.lib
includelib   \masm32\lib\user32.lib

include <..\..\..\Control\Class\Objects.inc>
;include <.\Class\Server.asm>

.data
    hClass  dd  0
    szSend  db  '1234567890',0dh,0ah,0
.code
include <CIoServer.asm>

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; 程序开始
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
start:
   invoke GetModuleHandle,NULL
   NEWOBJECT CLS_IOSKT
   mov    hClass,eax
   method hClass,CLS_IOSKT,InitNetWork
   method hClass,CLS_IOSKT,GetLastErr
   method hClass,CLS_IOSKT,SetWarning,CTEXT("Before Start")
   method hClass,CLS_IOSKT,Start,9999,addr _ServerWorkProc
   method hClass,CLS_IOSKT,SetLastErr,CTEXT("Before Stop")
   method hClass,CLS_IOSKT,Stop
   method hClass,CLS_IOSKT,SetLastErr,CTEXT("after Stop")
   method hClass,CLS_IOSKT,UnInitNetWork
   DESTROY hClass
   invoke ExitProcess,NULL
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   end   start