Как работать с поименованными каналами под Win95-NT в сети
|
Реальность из дистрибутива Windows ME - Удаленный доступ к домашней сети.
|
сервер:
StrPCopy(buff, Edit1.Text);
fPipeHandle := CreateNamedPipe(buff,
Pipe_Access_Duplex or File_Flag_Overlapped,
Pipe_Type_Message or Pipe_ReadMode_Byte or Pipe_Wait,
5, $400, $400, 235, nil);
|
клиент:
StrPCopy(buff,Edit1.Text);
fFileHandle:=CreateFile(buff,
Generic_Read or Generic_Write,
File_Share_Read or File_Share_Write,
nil,
Open_Existing,
File_Attribute_Normal or File_Flag_Overlapped or Security_Anonymous,
0);
if fFileHandle <> Invalid_Handle_Value then
begin
...
|
|
