[Morfik]

Сообщение от StekloReZ

Оффтоп

Захочешь получить помощь, а получишь головную боль лишнюю.
Либо нет времени, либо нет желания помочь.
Тему можно удалять, конкретного простого примерчика, как понял, никто не даст.

по 2-й ссылке которую дал ксор (http://coderx.ru/showthread.php?t=8219) мною выложен исходник, где работа с пайпами в несколько строк....
Оффтоп

чтение из пайпов

procedure Packet_Sniffer;stdcall;
var
  //buffer:Pointer;
  cbRead:DWORD;
  packet_head:PNetworkPacket;
  lpszPipeName:string;
  buffer:array[1..10240]of byte;
  i:integer;
  s:string;
  c_size:dword;

  v1,v2:dword;
begin
  lpszPipeName:='\\.\pipe\eye';
  hNamedPipe:= CreateNamedPipe(
      pchar(lpszPipeName),
      PIPE_ACCESS_DUPLEX,
      PIPE_TYPE_MESSAGE or PIPE_READMODE_MESSAGE or PIPE_WAIT,
      PIPE_UNLIMITED_INSTANCES,
      10240, 10240, 100, nil);
  if not ConnectNamedPipe(hNamedPipe, nil) then MessageBOx(0,pchar(' no connect pipe #'+IntToStr(GetLastError())),'',$10);

  while true do
  begin
    if(ReadFile(hNamedPipe, buffer, 10240, cbRead, nil)) then
    begin
        тут читаем из buffer
    end;// else Form1.Memo1.Lines.Add('no read');
  end;
end;

запись в пайпы

szPipeName:='\\.\pipe\eye';
hNamedPipe:=CreateFile(pchar(szPipeName),GENERIC_READ or GENERIC_WRITE,0, nil, OPEN_EXISTING, 0, 0);
WriteFile(hNamedPipe,pBuffer^,size,cbWritten,nil);