гос / sswlect / Лекції / sswlect

invoke dwtoa,ecx,ebx invoke lstrlen,ebx

mov byte ptr [ebx+eax],":" lea ebx,[ebx+eax+1]

movzx ecx,DateTime.wSecond invoke dwtoa,ecx,ebx

invoke lstrlen,ebx

mov dword ptr [ebx+eax],0D0Ah

invoke WriteFile,hPipe,edi, LENGTHOF OutputBuffer,\ ADDR nSendReciveBytes, NULL

.else

invoke WriteFile,hPipe, $CTA0("Bad command\n"), 14,\ ADDR nSendReciveBytes, NULL

.endif

.endw

invoke WriteFile,hPipe,$CTA0("exit\n"), 6,\ ADDR nSendReciveBytes, NULL

invoke CloseHandle, hPipe ret

Main endp end start

; Файл PipeClient.Asm

.386

.model flat, stdcall option casemap :none include ..\interface.inc

.code

start: invoke Main

invoke ExitProcess,0

191

Main proc

invoke AllocConsole invoke ClearScreen

invoke StdOut, $CTA0("Connection . . . ") invoke CreateFile, ADDR szPipeName,\

GENERIC_READ OR GENERIC_WRITE,\ 0, NULL, OPEN_EXISTING, 0, NULL

.if eax==INVALID_HANDLE_VALUE

invoke StdOut, $CTA0("Cannot create pipe") ret

.else

mov hPipe,eax

.endif

invoke locate,11,0

invoke StdOut, $CTA0("successful") invoke locate,0,2

lea esi,InputBuffer lea edi,OutputBuffer

.while (TRUE) mov ebx,edi

invoke StdOut,$CTA0("\nCommand$ ") invoke StdIn,edi,LENGTHOF OutputBuffer mov al,0Dh

mov ecx,LENGTHOF OutputBuffer push edi

repne scasb

mov byte ptr [edi+1],0h sub edi,ebx

lea ebx,[edi+2] pop edi

invoke WriteFile,hPipe, edi, ebx,\

ADDR nSendReciveBytes, NULL invoke ReadFile,hPipe,esi,\

192

LENGTHOF InputBuffer,\

ADDR nSendReciveBytes, NULL

invoke StdOut, esi

.break .if dword ptr [esi]==74697865h

.endw

invoke CloseHandle, hPipe ret

Main endp end start

Серед декількох можливих стратегій організації обслуговування множинних реалізацій каналу найбільш простою у програмуванні й розповсюдженою є багато потокова модель, яку демонструє наступний приклад.

Приклад 13 Консольний додаток MultiPipeServer.exe серверного процесу створює пул із трьох потоків. Кожний з потоків пула створює одну з реалізацій іменованого каналу для передачі повідомлень у синхронному режимі й переходить у режим очікування підключення клієнта. Після підключення клієнта, потік читає передані їм по каналі повідомлення й виводить на консоль процесу доти поки не одержить по каналі рядок, що починається з «exit».

Первинний потік серверного процесу, створюючи пул із трьох потоків, зберігає отримані ідентифікатори потоків пула в масиві, що потім використає для очікування завершення кожного з потоків пула за допомогою функції

WaitForMultipleObjects. Одержавши код повернення WaitForMultipleObjects

первинний потік визначає який з потоків пула завершився й відразу створює замість нього новий, розміщаючи його ідентифікатор на вакантне місце в масиві.

Консольний додаток MultiPipeClient.exe клієнтського процесу відкриває реалізацію каналу, і використовує отриманий ідентифікатор для передачі повідомлень, що вводяться користувачем з клавіатури. При уведенні рядка, шо починається з «exit» клієнт після його передачі в канал завершує свою роботу.

;Файл interface.inc

193

include windows.inc include kernel32.inc include masm32.inc include user32.inc

include C:\MASM32\MACROS\strings.mac

;Файл MultiPipeServer.Inc

;Файл MultiPipeServer.Asm

.386

.model flat, stdcall option casemap :none

include MultiPipeServer.inc

.code

start: invoke Main

invoke ExitProcess,0 Main proc

invoke ClearScreen xor esi,esi

.while esi<3

lea edi,NamedPipeThread

invoke CreateThread,0,0,edi,0,0,ADDR ThreadIDArray[esi*4]

194

.if eax!=0

mov ThreadHandleArray[esi*4],eax inc esi

.else

ret

.endif

.endw

.while (TRUE)

invoke WaitForMultipleObjects,3,ADDR ThreadHandleArray,FALSE,INFINITE sub eax,WAIT_OBJECT_0

mov ebx,eax

invoke CreateThread,0,0,edi,0,0,ADDR ThreadIDArray[ebx*4]

.if eax!=0

mov ThreadHandleArray[ebx*4],eax

.endif

invoke Sleep,3000

.endw ret

Main endp

NamedPipeThread proc

LOCAL hNamedPipe:HANDLE

LOCAL InputBuffer[512]:BYTE

LOCAL OutputBuffer[512]:BYTE

LOCAL NumberOfBytesRead:DWORD

invoke CreateNamedPipe,ADDR pszPipeName,\ PIPE_ACCESS_INBOUND,\ PIPE_TYPE_MESSAGE OR PIPE_WAIT,\ PIPE_UNLIMITED_INSTANCES,\

LENGTHOF InputBuffer,LENGTHOF OutputBuffer,0,0

.if eax==INVALID_HANDLE_VALUE

invoke StdOut,$CTA0("Cannot create pipe")

195

.endif

mov hNamedPipe,eax

invoke ConnectNamedPipe,hNamedPipe,NULL

.if eax==0

invoke StdOut,$CTA0("ConnectNamedPipe Error") invoke CloseHandle,hNamedPipe

invoke ExitThread,-1

.endif

.while (TRUE)

invoke ReadFile,hNamedPipe,Addr InputBuffer,LENGTHOF InputBuffer,\ ADDR NumberOfBytesRead, NULL

invoke StdOut,Addr InputBuffer

or dword ptr InputBuffer,20202020h

.break .if dword ptr InputBuffer==74697865h

.endw

invoke ExitThread,0 ret

NamedPipeThread endp end start

;Файл MultiPipeClient.Inc

include ..\interface.inc

;Файл MultiPipeClient.Asm

.386

.model flat, stdcall

option casemap:none

include MultiPipeClient.Inc

.code

start:

196

invoke Main

invoke ExitProcess,0 Main proc

LOCAL hNamedPipe:HANDLE

LOCAL OutputBuffer[512]:BYTE

LOCAL NumberOfBytesWrite:DWORD invoke ClearScreen

invoke CreateFile, ADDR pszPipeName,\ GENERIC_WRITE,\

0, NULL, OPEN_EXISTING, 0, NULL

.if eax==INVALID_HANDLE_VALUE invoke GetLastError

invoke StdOut, $CTA0("Cannot open pipe") ret

.else

mov hNamedPipe,eax

.endif

lea edi,OutputBuffer

.while (TRUE)

invoke StdOut,$CTA0("$ ")

invoke StdIn,edi,LENGTHOF OutputBuffer invoke lstrlen,edi

lea ebx,[eax+1]

invoke WriteFile,hNamedPipe, edi,\

ebx, ADDR NumberOfBytesWrite,NULL or dword ptr [edi],20202020h

.break .if dword ptr [edi]==74697865h

invoke RtlFillMemory,edi,LENGTHOF OutputBuffer,0

.endw

invoke CloseHandle, hNamedPipe ret

Main endp end start

197

199

200