2024年6月13日发(作者：)

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

2011-11-07 16:05:35| 分类： Delphi源码 | 标签：delphi 进程通信 命名管道 |字号 订阅

说明：这段代码修改自网络中有问题的代码，已经在32位win7 +D7调试通过。

实现了在Server端做任何更改，Client端都通过时间触发器获取到修改的内容。

注意：尚未实现线程安全，请谨慎使用。

Server端（主动提供信息处）：

unit uServer;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

mmo1: TMemo;

btnServer: TButton;

procedure btnServerClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure verClick(Sender: TObject);

const

pipename:string= '.pipedengke';