Советы по Delphi
Как работать с поименованными каналами под W'95/NT в сети?
Nomadic отвечает:
сервер :
| 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 ... |
[001626]
