Delphi 使用管道进程间通讯

发起进程：创建管道,发送数据,接受反馈数据

Const
  PipeName = '\\.\pipe\Test';
  PipeSize = 1000;
  PipeTimeOut = 3000;

procedure PipeServer();
var
  Se:TSecurityAttributes;
  SPipeHandle:THandle;
  Buffer:Pchar;
  WriteBuffer:DWORD;
begin
  Se.nLength:=Sizeof(TSecurityAttributes);
  Se.lpSecurityDescriptor:=nil;
  Se.bInheritHandle:=True;
  SPipeHandle:=CreateNamedPipe(PipeName,
  PIPE_ACCESS_DUPLEX OR FILE_FLAG_WRITE_THROUGH,
  PIPE_TYPE_BYTE   or   PIPE_WAIT,
  1,PipeSize,PipeSize,PipeTimeOut,@Se);
  Buffer:=AllocMem(1000);
  if SPipeHandle<> 0 then
    begin
      while True do
        begin
          if ConnectNamedPipe(SPipeHandle,nil) then
            begin
               Buffer:=PChar(IntToStr(GetTickCount));
               //写入数据
               WriteFile(SPipeHandle,Buffer[0],Length(Buffer),WriteBuffer,nil);
               Sleep(500);
               //等待反馈数据
               ReadFile(SPipeHandle,Buffer[0],PipeSize,WriteBuffer,nil);
               DisConnectNamedPipe(SPipeHandle);
            end;
          Sleep(2000);
        end;
       CloseHandle(SPipeHandle);
    end;
  FreeMemory(Buffer);
end;

监听进程：接受数据,反馈数据

Const
  PipeName = '\\.\pipe\Test';
  PipeSize = 1000;

procedure PipeClient();
var  
  Buffer:Array [0..1000] of Char;  
  Requst:PChar;  
  ReadSize:DWORD;  
  hPipe:Thandle;
begin  
 while True do   
  begin     
   if WaitNamedPipe(PipeName,NMPWAIT_WAIT_FOREVER) then     
     begin       
       hPipe:=CreateFile(PipeName,GENERIC_READ or GENERIC_WRITE,FILE_SHARE_READ or FILE_SHARE_WRITE,NiL,
OPEN_EXISTING,FILE_ATTRIBUTE_ARCHIVE or FILE_FLAG_WRITE_THROUGH, 0); 
       if hPipe <> INVALID_HANDLE_VALUE   then    
         begin       
		   ReadSize:=0;      
		   ReadFile(hPipe,Buffer[0],PipeSize,ReadSize,nil);    
		   if ReadSize > 0 then     
			begin             
			//收到数据      
              Requst:= Pchar(Format('%s OK',[Buffer]));    
            //写入反馈           
              WriteFile(hPipe,Requst[0],Length(Requst),ReadSize,nil);    
            end;     
          CloseHandle(hPipe);    
         end;    
    end; 
  end;
end;