Hieronder volgt een instructie die een taak beschrijft, gekoppeld aan een input die verdere context biedt. Schrijf een antwoord dat het verzoek op de juiste manier afvult.

### Instructie:
Kun je een Delphi code schrijven die de naam pijpen gebruikt?

###

### Antwoord:
Kun je een Delphi code schrijven die de naam pijpen gebruikt?
Servercode: programma NamedPipeServer; {$APPTYPE CONSOLE} gebruikt SysUtils, Windows; const PIPE_NAME = '\\.\pipe\my NamedPipe'; var hPipe: THandle; lpvMessage: PChar; cbBytesRead, cbReplyBytes: DWORD; begin WriteLn('Named Pipe Server start.); hPipe := Create NamedPipe(PIPE_NAME, PIPE_ACCES_DUPLEX, PIPE_TYPE_MESSAGE of PIPE_READMODE_MESSAGE of PIPE_WAIT, PIPE_UNLIMITED_INSTANCES, 1024, 1024, 1024, 1024, 1024, NMPWAIT_USEE_DEFAIT_WOIT, GOIT_WOITE_DEFAL_WOITE_WOIT, G; indien hPipe =.\pipe\MyNamedPipe"; var hPipe: THandle; lpvMessage: PChar; cbBytesRead, cbWrite: DWORD; begin WriteLn('Named Pipe Client begonnen.'); hPipe := CreateFile(PIPE_NAME, GENERIC_READ of GENERIC_WRITE, 0, ni, OPEN_EXISTING, 0, ni); als hPipe = INVALID_HANDLE_VALUE dan beginnen WriteLn('Error connecting to named pipe:'+ IntToStr(GetLastErrorror)); exit; end; lpvMessage:= AllocMem(1024); StrCopy(lpvMessage, 'Hello, world!'; if Writ FileFile(hPipe, lpvMessage^, StrlenlpvMesssssage) + 1;
Hieronder volgt een instructie die een taak beschrijft, gekoppeld aan een input die verdere context biedt. Schrijf een antwoord dat het verzoek op de juiste manier afvult.

### Instructie:
Kun je een Delphi code schrijven die de naam pijpen gebruikt?

###

### Antwoord:
Servercode: programma NamedPipeServer; {$APPTYPE CONSOLE} gebruikt SysUtils, Windows; const PIPE_NAME = '\\.\pipe\my NamedPipe'; var hPipe: THandle; lpvMessage: PChar; cbBytesRead, cbReplyBytes: DWORD; begin WriteLn('Named Pipe Server start.); hPipe := Create NamedPipe(PIPE_NAME, PIPE_ACCES_DUPLEX, PIPE_TYPE_MESSAGE of PIPE_READMODE_MESSAGE of PIPE_WAIT, PIPE_UNLIMITED_INSTANCES, 1024, 1024, 1024, 1024, 1024, NMPWAIT_USEE_DEFAIT_WOIT, GOIT_WOITE_DEFAL_WOITE_WOIT, G; indien hPipe =.\pipe\MyNamedPipe"; var hPipe: THandle; lpvMessage: PChar; cbBytesRead, cbWrite: DWORD; begin WriteLn('Named Pipe Client begonnen.'); hPipe := CreateFile(PIPE_NAME, GENERIC_READ of GENERIC_WRITE, 0, ni, OPEN_EXISTING, 0, ni); als hPipe = INVALID_HANDLE_VALUE dan beginnen WriteLn('Error connecting to named pipe:'+ IntToStr(GetLastErrorror)); exit; end; lpvMessage:= AllocMem(1024); StrCopy(lpvMessage, 'Hello, world!'; if Writ FileFile(hPipe, lpvMessage^, StrlenlpvMesssssage) + 1;