在Delphi中使用命名管道进行进程间通信

在Delphi中使用命名管道进行进程间通信2011-11-0716:05:35|分类：Delphi源码|标签：delphi进程通信命名管道|字号订阅说明：这段代码修改自网络中有问题的代码，已经在32位win7+D7调试通过。实现了在Server端做任何更改，Client端都通过时间触发器获取到修改的内容。注意：尚未实现线程安全，请谨慎使用。Server端（主动提供信息处）：($R*.dfm}procedureTForm1.btnServerClick(Sender:TObject);constpipename:string='\\.\pipe\dengke';varSPipeHandle:THandle;Se:TSecurityAttributes;WriteBuffer:DWORD;Buffer:pchar;beginSe.nLength:二Sizeof(TSecurityAttributes);Se.lpSecurityDescriptor:二nil;Se.bInheritHandle:=True;SPipeHandle:二CreateNamedPipe(pchar(pipename),PIPE_ACCESS_DUPLEXORFILE_FLAG_WRITE_THROUGH,PIPE_TYPE_BYTEorPIPE_WAIT,2,512,512,1000,@Se);ifSPipeHandle=0thenraiseException.Create('CreatepipeFailed');tryifnotConnectNamedPipe(SPipeHandle,nil)thenbeginCloseHandle(SPipeHandle);RaiseException.Create(IntToStr(GetLastError)+'failcon');end;Buffer:=StrAlloc(512);Buffer:=Pchar(mmo1.Text);WriteFile(SPipeHandle,Buffer[0],512,WriteBuffer,nil);finallyDisConnectNamedPipe(SPipeHandle);CloseHandle(SPipeHandle);end;end;endClient端（被动获取信息处）：unituClient;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ExtCtrls;typeTForm2=class(TForm)btnClient:TButton;mmo1:TMemo;tmr1:TTimer;procedurebtnClientClick(Sender:TObject);proceduretmr1Timer(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm2:TForm2;implementation{$R夫.dfm}procedureTForm2.btnClientClick(Sender:TObject);constPipeName:string='\\.\pipe\dengke';varBuffer:array[0..511]ofchar;ReadSize:DWORD;hh:Thandle;begin//ifnotWaitNamedPipe(pchar(PipeName),NMPWAIT_USE_DEFAULT_WAIT)thenifWaitNamedPipe(pchar(PipeName),NMPWAIT_WAIT_FOREVER)thenbeginhh:=CreateFile(pchar(pipename),GENERIC_READorGENERIC_WRITE,FILE_SHARE_READorFILE_SHARE_WRITE,NiL,OPEN_EXISTING,FILE_ATTRIBUTE_ARCHIVEorFILE_FLAG_WRITE_THROUGH,0);ifhh=INVALID_HANDLE_VALUEthenshowmessage('errorcreatefile')elsebeginreadsize:=0;fillchar(buffer,512,0);readfile(hh,buffer,512,readsize,nil);ifreadsize>0thenmmo1.T