Çë½Ì¹ØÓÚdelphiÃüÃû¹ÜµÀµÄÎÊÌâ

ÏÂÃæÊÇÍøÉÏÕÒµÄÒ»¸öÊÂÀý,µ«ÔÚ±¾»ú±¨´í.

Çë½ÌÏ´íÎóÔ­Òò,»òÕ߸øÁíÍâµÄÊÂÀý¸üºÃ!лл
//Server
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
type
  TServer = class(TForm)
  Button1: TButton;
  Memo1: TMemo;
  procedure Button1Click(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
  end;

var
  Server: TServer;
const
 pipename:string='\\.\pipe\Server';
implementation

{$R *.dfm}

procedure TServer.Button1Click(Sender: TObject);

  var
  SPipeHandle:THandle;  
  Se:TSecurityAttributes;
  WriteBuffer:DWORD;  
  Buffer:pchar;
  begin
  Se.nLength:=Sizeof(TSecurityAttributes);
  Se.lpSecurityDescriptor:=nil;
  Se.bInheritHandle:=True;
  SPipeHandle:=CreateNamedPipe(pchar(pipename),PIPE_ACCESS_OUTBOUND OR FILE_FLAG_WRITE_THROUGH, PIPE_TYPE_BYTE or PIPE_WAIT,2,512,0,1000,@Se);

//´Ë´¦½¨Á¢²¢·Å»Ø¾ä±ú
  if SPipeHandle=-1 then
  raise Exception.Create('Create pipe Failed');
  try
  if not Connec