说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

Win32 行程通讯的观念与技术-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
Win32 行程通讯的观念与技术-Delphi资料

窗子提供的永远只是局部的风景。身为窗子的制造者以及使用者的我们不可能不明白这个道理;对於窗子的使用者日益挑剔的品味,窗子的制造者所能提供的不仅止於窗子的大小,往往是窗子的数量。的确,探出窗去看得将更多一些,外头天空地宽朗朗白日,别的窗子也许正有我们想要的风景。

这篇文章谈的是 Interprocess Communication (IPC),我将与你分享跨行程通讯的各项技术与资料交换的方法。

为什麽需要 IPC?

为什麽需要 Inter-process Communication?

显而易见的,没有一个视窗应用程式可以包办全部的工作。为了避免资料重覆输入的时间浪费与人为错误,各应用程式间的资料会有互相交换的需求。首先的压力将来自於使用者,甚至於很可能是你自己。先不说别的,在写这篇文章时,我就曾剪贴原来以 Delphi 撰写的程式到文书编辑软体,同时,也利用抓图软体帮我拍下执行画面,最後,这些文章与范例程式得用压缩程式压起来,然後E-mail寄给杂志编辑。

使用 IPC 在某些情况下是不得不然的决定,有时候程式必须跨过机器边界让另一部机器内的程式明白该怎麽合作来共同完成工作,这同时也暗示我们可能面临不同的作业系统的问题。

此外,IPC有助於系统的安全与稳定。由於Win32各个行程彼此独立的特性,一个行程死掉了,其他的行程还可以继续跑下去,对於某些稳定性要求很高的系统而言

值得以额外的负担(Overhead)交换系统的强固性(robustness)。嗯! 我的意思是说,因为系统对稳定性的需求要求较高,值得拆开来做甚至额外的备援系统,既然工作拆成两个以上,此时必然需要IPC。

关於IPC,一般人可能会对其有「执行效率缓慢」的印象,这当然不能说是错误的,但绝不是公平的评语。这麽说吧:一个主管亲自去做一件事,往往会比先说明再授权下属去做来得快,这是单一工作时的情况;然而如果管理者同时有好几件事在手上,托付别人去做才能使得整个公司的效能提高。换句话说,如果能善用 IPC,整体的系统效能不仅不会下降,反而可能因为充分利用整个运算群的能力而有提升。

我们的第一个 IPC 例子

每个图形介面的视窗应用程式都接受并处理讯息(Message),因此,使用讯息伫列通知其他的行程是脑中很自然会浮现的第一个想法;换句话说,两行程间彼此互相以 SendMessage() 或 PostMessage() 传送讯息通知对方。

即然要互送讯息,就需要一个彼此都认得的讯息编号。於是,除了 Windows 标准的讯息编号之外,我们还需要额外定义一个(一些)讯息。

行程通讯间用来约定讯息编号常用的方法是呼叫RegisterWindowMessage() API函数。这个函数只有一个字串型别的引数,Windows系统会检查我们传入的讯息名称并传回一个安全不重覆的讯息编号,假如传入的讯息名称早已经登记有案,则系统传回的是稍早传给那个行程的相同编号。

换句话说,两支程式只要彼此都用相同的讯息名称呼叫RegisterWindowMessage() 注册讯息,系统便会都给两者一个相同的自订讯息编号。

接下来要送出讯息了,可是,要送给谁呢?嗯,我在这 使用的方法是:第一次先用广播的,每一个视窗程式都会收到通知,讯息的短叁数(wParam)中写明发讯视窗的 Handle 值,如果是同志,它自然明白这个讯息代表了什麽,并且也使用SendMessage() 回送约定的讯息表示收到。同样的,讯息的短叁数注明自己的Handle。於是,茫茫人海的小俩口终於得知对方的下落,以後就不再需要公开寻人可以透过Handle值直接与对方联络了。

除了讯息编号,讯息的wParam,lParam长短叁数也可以用来进一步约定通讯的细节。事情进展得似乎十分顺利,现在我们知道合作对象,也确信它明白我们的讯息代表什麽。虽然简单,但是这种暗通款曲的方式是系统默许的。不过,我们还需要再多解决一个问题。

由於SendMessage 只有 wParam,lParam 两个 DWORD 型别的长短叁数,携带的资料量十分有限。很显然的,我们需要能够一次传送更多资料的方法。Windows 也的确提供了许多交换资料的机制,我在这篇文章中将会一一说明,其中最简便的方法是使用 WM_COPYDATA 讯息,作法如下

将资料内容指定到COPYDATASTRUCT这个资料结构中。

必须使用SendMessage()送出 WM_COPYDATA讯息,讯息的短叁数是发讯端视窗的Handle值,长叁数的内容则是指向COPYDATASTRUCT的指标。

受讯端行程收到讯息时,以长叁数提供的线索依址取回资料。

小俩口书信往返时系统是居中牵线的红娘。就在发讯视窗送出WM_COPYDATA讯息

受讯视窗取得内容之间,系统在背後默默接管记忆体管理的琐事。有关WM_COPYDATA的使用有一点需要提醒读者的,收讯端应该视这块记忆体是唯读的,如果後来程式处理需要这些资料,应该要先将之拷贝出来。

多亏有了这项特殊的性质,使得WM_COPYDATA与讯息沟通模型成为 Win32 平台上少数同时支援 16-bit与32-bit应用程式的IPC机制。你可以在WM_COPYDATA目录找到范例程式TwinApp的完整原始程式。

IPC基本概念的讨论

总结来说,上述的例子是两个行程彼此利用RegisterWindowMessage()注册所得的编号对送讯息,并且利用讯息的长短叁数进一步协定通讯的内容与细节,对於资料量比较大的资料则使用WM_COPYDATA。

眼尖的读者在检视TwinApp时也许会察觉到一些DDE的影子。当然,比起DDE来说,TwinApp范例程式的讯息沟通模型实在阳春,缺点也不少。不过我的用意本来就不在於一开始就写一个大型程式出来吓唬人;相反的,我打算提供一个简单的例子,并且从这个例子支解出有关行程通讯的几个重要的观念与特性,这些特性并不是TwinApp所独有的,对於其他IPC机制的讨论也有相同的价值,等我们扣紧了对IPC的感觉,再陆续讨论其他 Win32 平台所支援的IPC机制。

话说内行的看门道,外行的看热闹。或许我算不得顶尖高手,但至少应该比看热闹的多看出一些东西来吧! :p 观察TwinApp这个例子 --

行程之间彼此有共同的通讯协定

通讯的仅限於单机,稍候讨论的IPC有些则是可以跨过机器边界甚至网域.

Process在行程通讯中的角色扮演

一般来说,叁与IPC的行程可以归类成Client与Server两类,所谓的Server指的是提供服务的行程;Client指的是使用或向Server要求服务的行程。

真实的世界中,人的角色扮演是随情境而变的。我们会是别人的子女,但也同时是别人的爸妈; 即使同样是夫妻,居家生活与外出场合的行为表现也有差异。界定某一程式是Client与Server的角色端视当时的情况而定并非绝对的。举例来说,文书处理软体可能向试算表要求库存统计资料,此时试算表扮演的是Server的角色,但在试算表向库存管理系统索取统计资料的场合,试算表则是Client。

以我们的第一个例子TwinApp来说,彼此既接收讯息,同时也主动发出讯息。既可以是Client也可以是Server,没有明显的主从之别,对於这样的情况,有一个专有名词叫「对等模式」(Peer-to-peer model) 。

同步与非同步的讨论

TwinApp使用SendMessage()送出讯息,程式会暂停在SendMessage()那行等待讯息处理结束返回後再继续下一列程式,这样的情况属於同步处理。同步(Synchronous)与非同步(Asynchronous)在IPC中是一个非常重要的论题,有必要先对这两个名词先做说明:

假设程序A呼叫程序B时,若是A先暂停一直等到程序B结束返回後再继续程序A的下一动作,我们称其为同步(Synchronous);另一种情况是 -- 如果A呼叫B之後,不等B执行完,就直接进行A的下一动作,则是所谓的不同步。

以提款机为例,我们会先插入卡片,输入密码,键入金额,然後是内部安全与帐务查核,最後收回卡片及金额,列印交易明细,一动接一动按步就班;同样是提款这件事,某位老板可以交待会计小姐去提款,交待完之後他就迳自去忙别的事,等到会计小姐提款回来,再向老板回报,这样的程序是所谓的非同步。

如果进一步观察提款这个例子:会计小姐什麽时候出门什麽时候回来是算不得准的,假定这位老板除了会计小姐之外,另外还交办旁人其他工作,可以预见的,不一定那一件工作会先做完。由於执行的次序无法预估,采用非同步方式设计的行程通讯将会多出许多协调与事件处理的工作,使得彼此之间总互相期待点什麽。

叁与通讯的行程个数,讯息资料的流向

在TwinApp中,简单的只有两个端点。但在实际应用的场合,Server通常得同时应付好几个Client的要求,如何妥善照顾到每一个Client同时要兼顾系统执行的效能,是门很大的学问。

当行程对行程搭起通讯的鹊挢时,这座挢是单行道或者是双向通行,同样也值得列入评估要素。不过有一点需要注意的: 不论选择单工或双工的IPC机制,并不构成我们建立双向沟通无可跨越的天堑,话说山不转路转,盖两座单向的挢一样可以有双向通行的效果,不过就先天本质的特性来说,某些IPC机制确实比较容易作出双工的效果,当然也有天生大嘴巴适合用来广播的,例如本文稍後叙述的MailSlot。

资料的可视性与安全性

交换的资料在行程之间当然必须是可见的,TwinApp是用WM_COPYDATA交出资料。IPC有些技术是可以让行程共同存取资料的,稍候我们在 Shared memory 时将有讨论.

是否需要有视窗或者纯Console Application也能应用.

TwinAPP是以SendMesasage()送出讯息,这表示需要有视窗才行得通。如果你设计的是纯Console Mode 的应用程式,那麽,选用不需要视窗Handle也行得通的IPC机制(例如pipe)会比较适合。

关於执行效能的讨论

许多人耽心IPC的执行效能,的确,先不说别的,光是启动另一个Process本身就比启动一个Thread 的Overhead要高上很多。如果涉及协调的问题,建立一个Mutex的时间也比Critical section慢上不知多少倍。遗憾的是我们却也别无选择,因为Critical section在Multi-Thread中固然简单好用,但是不能用在跨越行程边界的场合。

但是要说 IPC 一定使得系统效能降低,未免也太过悲观了;平视与俯看的视野是不同的。这年头大家都将Client/Server挂在嘴边,充分运用合理分配整个公司的运算资源才能提高整体的效能,我想 IPC 在这 自有其应用的价值与效益。

另外一个导致IPC执行效率不彰的元凶来自不良的设计,着名的例子是所谓的Busy-loop 一个什麽也不做只有一行程式不断地期待的回圈。以稍早的老板与会计小姐为例,如果老板交办事情之後却将全部的事都停下来,来回踱步只为专心等着会计小姐回来,时间没有花在刀口上的结果当然效率不彰。找出效率的瓶颈设法调校是件长期奋战的工作,如同管理是持续不断的合理化。

此处还有一个迷思也有待澄清,同步与非同步对於执行效能的影响是视情况而定的,并不能说非同步一定会比同步快,抽样样本很小或资料量偏小时,同步往往比非同步快。比较公允的说法应该是:同时有好几件工作要处理时,整体来说「非同步」往往快一些。以刚才的提款的事情为例,老板亲自去提款未必比小姐慢,但是如果老板同时有好几件工作要处理时,非同步的好处就很明显了。

Win32支援的IPC相关技术

上述的讨论与其说是针对TwinApp的观察,不如说是针对IPC的综合讨论。观念的说明之後是技术层次的讨论。接下来陆续介绍的是Win32 API支援的各项IPC机制 --

Clipboard

COM

Dynamic Data Exchange (DDE)

File Mapping

Mailslots

Pipes

RPC

Windows Sockets

WM_COPYDATA

剪贴簿(Clipboard)

人,其实是最佳的 IPC 机制,十分的聪明也十分的有弹性。

剪贴簿几乎是专为人类而设的标准资料交换中心。它最大的特色除了使用者导向之外,任何应用程式都允许改写其内容,同时它是可以跨越机器边界,交换的范围不仅限於单机内的各个行程。

由於它是纯使用者导向,使用剪贴簿的程式有一项传统是值得遵守的:如果不是基於使用者的操作,程式不应该主动去异动剪贴簿的内容;同样的道理,我们也不应该假设剪贴簿中有我们程式想要的资料,哪怕是不久前才刚放进去的,因为,使用者可能已经清除或改变其内容了。

剪贴簿几乎可以容纳任何的资料,除了标准支援的CF_TEXT、CF_BITMAP...等资料格式,我们可以自行注册登记其他格式的资料。但由於它的使用者导向,也由於任何程式都可以改写其内容,除非使用者愿意,不然坦白来说不太适合行程间的资料交换。这也使得应用设计IPC时,剪贴簿成为每支应用程式都标准支援但却也都适可而止的IPC机制。我们应该再多看看其他的资料交换方法。

File Mapping

在早期MS-DOS时代还没有现在这麽多 IPC机制可供利用时,使用磁碟档案来交换资料可说是一般应用程式的唯一选择。时至今日,档案不仅没有从IPC领域中消失,反而是更加发扬光大了,然而观念上早已不纯粹界定在档案系统的实体档案。的确,资料位於何处的份际如今是越来越模糊了,虚拟的记忆体实际上是档案,虚拟的档案结果是记忆体。

Win32 API 中有一个好玩的东西叫做File-mapping;基本的观念是开启一个档案并将之对映到某一块记忆体,有趣的是,虽然程式是针对这块记忆体操作,实际上改变的却是档案。

更好玩的是你不必真的在硬碟 开一个实体档案,而是使用分页置换档(paging file)的一块空间权充当作档案。这个虚拟的档案空间(或者你要说是记忆体)可以为行程间共享,通常我们管它一个特别的名字叫 Share-memory,共享记忆体。

由於它的确不是真正的档案,行程间不仅省去特定磁碟目录档案等约定,也毋须在意谁是最後走的要负责删除档案,当然啦,即使当机不会留下一些垃圾档案。彼此分享的是正好是同一块记忆体,资料一旦写入,这项改变也立即反应到别的行程。

使用ShareMemory的大致步骤如下所述

呼叫CreateFileMapping() API函数建立File-mapping核心物件.

CreateFileMapping()函数的第一个引数原本应该是CreateFile()开档所得的档案物件Handle,若是传入$FFFFFFFF则是以分页置换档(paging file)的一部划作共享记忆体。函数的最後一个引数是这块区域的叁考名称,行程间彼此将根据此一相同的识别名称叁考同一块共享记忆体。

FHandle := CreateFileMapping(

$FFFFFFFF

// Shared memory File,Handle 传入 $FFFFFFFF

nil

// 不设安全属性

PAGE_READWRITE

// 存取模式设定为可读写以便行程交换资料

0

// 使用 paging file 时一般将之设为零

Size

// 共享记忆体的大小

pchar(name)); // 其他的行程将以此名称叁考到这块共享记忆体

由於各个行程各有其逻辑定址空间,在正式存取这块共享记忆体之前,我们得将其全部或部分映射回行程本身的位址空间中。呼叫MapViewOfFile()的用意即是在此,该函数将传回mapped view 「视野」的起头(就是指标啦),接下来的就是用这个指标存取记忆体了。

FFileView := MapViewOfFile(

Fhandle

// File-mapping object 的 Handle 值

FILE_MAP_ALL_ACCESS

// 设为 FILE_MAP_ALL_ACCESS 开放存取

0

// 模式以便顺利存取共享记忆体

0

Size); // 预备映射回来的 byte 数

最後,别忘了使用UnmapViewOfFile()归还指标并呼叫CloseHandle()释放File-mapping核心物件。

碍於篇辐,完整的程式码请读者叁阅ShareMem目录的 DemoSMem专案。另外,为了方便使用,这些CreateFileMapping()

MapViewOfFile()等函数已经包装进TSharedMem这个类别。

Mutex

Shared memory的示范专案DemoSMem留下诸多悬疑待解,或许你也正有相同的疑问:既然两个行程都利用这块记忆体,那我们怎麽知道什麽时候资料改变了?此外,如何防止行程同时读写资料?

的确,行程通讯既是两个以上的个体,协调是必然存在的负担,要避免两个行程同时使用关键资源,Mutex(互斥器)的使用是你必备的技术。

从字面上解释,互斥意思是同一时间唯一;换句话说,同一时间最多只许握有Mutex的执行绪(Thread)有权使用关键资源,其他的执行绪若要使用只有等待。嗯! 在Mutex与Event这两节我将暂时改口为执行绪,事实上这才是真正的CPU排程单位,由於每个行程至少有个Thread(主执行绪),这样的称呼应该是与本文行程通讯的主旨不相违背的。

就像是注册讯息,共享记忆体一样(甚至稍後的Event,MailSlot,Pipe都是),在我们取得核心物件的Handle前,都是以「名称」叁考的,产生一个Mutex的API函数是:CreateMutex()

以下范例采自本文所附的ChienIPC程式单元

constructor TMutex.Create(const name: string);

begin

FHandle := CreateMutex(

Nil

// 安全防护属性

暂时传入nil采用预设值

False

// 执行绪是否一开始就握有 mutex 的所有权

pchar(name)); // Mutex核心物件的名称

if FHandle = 0 then Abort;

end;

好极了,现在我们有了一个Mutex,该怎麽使用呢? 我用一个情节来说明:如果一群人在一起开会,每个人桌子前面各摆着一支麦克风,为了让大家听清楚彼此说什麽,这些麦克风暂时都是关的,规定只有主席可以透过中央控制系统开启回路。要说话的得先举手表示:「我要我要」,如果没有别人举手也没人正在发言,主席便打开开关将发言权交给他,然後这个人的手放下开始讲话。此时若是其他人也要讲话,根据规则得先举手,在别人讲完交出发言权前只有继续举手等待的份。当然,排队的人,可以选择手一直举着;或者他只打算等三分钟,手酸了就放下来。

执行绪要求拥有Mutex的方法是呼叫WaitForSingleObject()(我要我要,举手等待),此时程式将暂停(Blocking)在这列。倘若此时正好没有别的执行绪拥有Mutex (没人讲话),系统会短暂的将Mutex设为Signaled(激发状态),使得WaitForSingleObject()正常返回,同时,系统也会将这个Mutex的所有权交给这个执行绪,然後程式继续执行,握有Mutex所有权者开始使用关键资源,并尽快在事後以ReleaseMutex()交出Mutex拥有权。

关於程式实入这部分请您叁阅DemoSMem范例程式的读取与写入程式,同样的,有关Mutex的API函数也已包装进TMutex类别方便你的使用。

Event

讨论过行程之间以Mutex协调避让的技术之後,Shared memory的示范专案DemoSMem尚留下一个悬疑待解:既然两个行程都利用这块记忆体,那我们怎麽知道什麽时候资料被改变了呢? 以一个回圈定期不断去抓资料回来比对不仅程式写起来累人,执行效率也很低落。

当然,回到一开始提出的方法,写入资料的行程用讯息一一个别通知其他合作夥伴是可以行得通,不过,事情该有更好的解决之道才是。Win32的核心物件中有一种叫Event(事件)物件,方便我们在某一事件发生时设定其状态以便叁与通讯的行程注意到某一件重要事情的发生。

产生一个Event物件的方法是呼叫CreateEvent() API函数:

HANDLE CreateEvent(

LPSECURITY_ATTRIBUTES lpEventAttributes

BOOL bManualReset

// flag for manual-reset event

BOOL bInitialState

// flag for initial state

LPCTSTR lpName // address of event-object name

);

同样的,最後一个引数是执行绪在取得Event Handle前叁考同一Event物件的识别名称,如果相同名称的Event物件稍早已经产生而且叁用次数尚未归零消灭,并不会多产生一个Event物件,系统只单纯的将其叁用次数加一,执行绪彼此得以叁考到同一个物件。第三个引数用来设定Event物件的初值是否为Signaled(激发状态) 。第二个引数用来设定事件的激发状态是手动或自动;所谓手动与自动的分别在於事件的状态变成Signaled(激发状态)时,要由系统自动帮我们重设回非激发状态,或者由程式自行以ResetEvent()将事件设成非激发状态。

观察DemoSMem的作法是这样的:当某一个行程修改了Shared memory的内容时,该行程以SetEvent() API 函数将Event物件的状态设为Signaled(激发状态),叁与行程通讯的各支程式在开跑之初,除了以相同的识别名称建立(叁用)Event物件之外,还特别分派另一个Thread专司侦测特定Event物件激发状态的任务

一旦物件激发了,表示一定某一个行程修改了Shared memory的资料,此时我们知道该是重新读取资料内容的时候了。

呼! 终於将Shared memory的范例程式DemoSMem讲完了,下图是它执行的画面,彼此看来是亳无关联,但是经由共同分享的记忆体与Mutex,Event两种同步协调技术,彼此正在密切交换意见。

图: DemoSMem执行情形

MailSlot

执行DemoSMem时如果让你有广播的感觉,接下来要说的MailSlot会让你更有广播的感觉,而且它是可以跨越机器边界向网路广播的。从字面上看来,这像是与寄信有关的通讯机制,实际上它的行为也的确与其名称相符合。MailSlot就像是你的信箱,只要知道地址,任何人都可以寄信给你,不过,只有你才可以打开信箱读信。

MailSlot是一种由系统维护的虚拟档案,建立并拥有Mailslot的行程扮演Server.的角色,其他的行程包含MailSlot Server本身的行程均可以开启MailSlot写入讯息,不过,只有MailSlot Server可以读取资料的内容。这是个单一Server多个Client的机制,同时,资料只允许由Client对Server单向传送。

我想你可能也习惯了,要产生一个MailSlot物件大概也需要一个识别名称吧! :p 说不定连CreateMailSlot()函数名称都猜得一字不差。不过,这次的名称可不像先前那样可以随便高兴取什麽就取什麽的,它具有以下的固定格式:

\\ServerName\mailslot\[path]name

我第一次看到时心想: 天哪! 这该怎麽填呀? 边举例边说明会比较容易懂

\\.\mailslot\MyMailSlotName MailSlot的识别名称一定从「\\」双倒斜线开始。接下来的是机器的名称或组群网域的名称,这 的「.」句号代表的是行程所在的那部机器。再来是「\mailslot」,对於MailSlot,一定是这个单字照抄就是了。最後则是你自订的MailSlot名字。先前提到MailSlot实际上是特殊的虚拟档案,所以,要当它是档名应该也是说得通的。

的确,援引我们对於档案系统的概念,MailSlot的识别名称就像路径档名一样,可以经过适当的阶层加分类管理,例如: \\.\mailslot\Account\Note。最後再看一个例子: \\*\mailslot\MyMailSlotName,其中「*」指的是群组内的所有机器。

说得够多了,让我们动手做做看吧! 首先是建立MailSlot Server的例子,取自本文所附的ChienIPC这个程式单元

procedure TMailSlotServer.Open;

var

ASlotName: AnsiString;

begin

if FActive then Exit;

// 构成 Mailslot 识别名称

ASlotName := '\\' + FServerName + '\mailslot\' + FSlotName;

FHandle := CreateMailslot(

pchar(ASlotName)

// MailSlot 识别名称

0

// 讯息长度的最大值,设为零表示不限

MAILSLOT_WAIT_FOREVER

// read time-out

nil); // 安全属性,先暂时采用预设值

if FHandle = INVALID_HANDLE_VALUE then

FActive := False

else

begin

FActive := True;

FWaitThread.Resume;

end;

end;

再强调一次,只有MailSlolt Server才可以读取资料,读取的方法是先以GetMailslotInfo()侦测讯息的长度与数量,然後以回圈逐一配置记忆体并以ReadFile()读出资料(别忘了MailSlot也是档案),以下是一则范例:

procedure TMailSlotServer.ReadFromMailSlot;

var

NextSize: DWORD;

MessageCount: DWORD;

Result: BOOL;

Buffer: pchar;

begin

if FHandle = INVALID_HANDLE_VALUE then Exit;

// 侦测 MailSlot 中是否有资料

Result := GetMailslotInfo(Fhandle

nil

NextSize

@MessageCount

nil);

if not Result or (NextSize = MAILSLOT_NO_MESSAGE) then

Exit;

// 如果还有资料 (MessageCount <> 0),逐一读出资料

while Result and (MessageCount <> 0) do

begin

// 资料的长度

Buffer := AllocMem(NextSize + 1);

try

// 读出资料

FileRead(Fhandle

Buffer^

NextSize);

if Assigned(FOnDataAvailable) then

FOnDataAvailable(Self

StrPas(Buffer));

finally

FreeMem(Buffer

NextSize + 1);

end;

// 继续看看 MailSlot 中还有没有资料

Result := GetMailslotInfo(Fhandle

nil

NextSize

@MessageCount

nil);

end;

end;

至於MailSlot的Client程式则没有什麽好说的,就当是档案迳行开启与写入即可:

procedure TMailSlotClient.Open;

var

ASlotName: string;

begin

if FActive then Exit;

// MailSlot 的识别名称

ASlotName := '\\' + FServerName + '\mailslot\' + FSlotName;

// 开启 MailSlot(档案)

FHandle := CreateFile(pchar(ASlotName)

GENERIC_WRITE

// Client 端对於 MailSlot 只能写入

FILE_SHARE_READ

// 设定为可供分享读取

Nil

OPEN_EXISTING

FILE_ATTRIBUTE_NORMAL

0);

FActive := FHandle <> INVALID_HANDLE_VALUE;

end;

function TMailSlotClient.WriteIntoMailSlot(

const Data: string): integer;

begin

Result := 0;

if FHandle = INVALID_HANDLE_VALUE then Exit;

Result := FileWrite(Fhandle

Data[1]

Length(Data));

end;

稍早提到MailSlot适合於跨越机器边界的网路广播

可是我也说明了只有MailSlot Server才可以读取资料,那要怎麽广播啊?答案在於MailSlot的名称。别的机器如果也用相同的名称建立MailSlot Server,一旦任一个Client对某一个MailSlot(也是经由名称来叁考)送出讯息,这份讯息会游向网路节点上各个指定同名的MailSlot,这样子就达成广播的效果。至於讯息是怎麽流来流去的,就留给系统与网路底层去伤脑筋了,程式只管以档案写入资料的方式送出资料即可。

使用MailSlot时很可能你会遇到讯息重覆的问题;也就是说,虽然MailSlot Client端只写了一个讯息,但相同的讯息MailSlot Server却可能收到两份。原因是这样的:由於Win32多重通讯协定的缘故,MailSlot在广播时,并不知道到底该采用哪一条路径,於是便各种可能的通路都传了一份。情况有点像在发布台风警报,我们在电视,广播与网路都同时会晓得有台风要来的消息。解决的方法是在资料开头处加上一些控制用的编号代码,Server据以判断是否是相同的资料。

像MailSlot这样的通讯机制可以应用在哪些场合呢? 着名的例子是WinPopup,刚才我也写了一支阳春的

次图是MyWinpop.exe 执行的情况。由於MailSlot广播的特性,十分适合网管时用来知会使用者重要的讯息,此外,MIS系统也可以用它适时的报告异常状况,各使用者如果在「开始┃启动」中都放置这支小程式,彼此便可以之交换讯息,当讯号进来时,也会立即显示讯息的内容。

图: MyWinPop.exe执行情形

当然,你还可以想得到其他的应用。像我就觉得它很适合用来作为程式除错工具,不仅可以将程式执行的过程与情况记录下来,而且程式在网路上各节点的执行状况也将源源而来,这是一般的测试方法所不容易达成的效果。

Pipe

看过广播式的 MailSlot後,Pipe则是点对点的通讯机制,资料允许单向或双向於管子连接的两端移动。pipe可分为Anonymous pipe与Named pipe 两种,Anonymous pipe的资料只能单向流动,而且仅限於单机内使用,但却是行程重导其标准输出(Standard Output)成为另一行程之标准输入的方法;Named pipe 就如同先前讨论的各项IPC机制,由於有一个识别名称,其他的行程很容易可以依照名称找过来,通讯范围不限於单机,同时,资料允许双向流通。

DDE

如同本文第一个TwinApp这个例子,DDE也是建立在讯息通讯这个基础上的,不过它的协定内容显然严谨很多。

DDE是由Client端以WM_DDE_INITIATE广播讯息起拉开通话的序幕,Server端受理後以WM_DDE_ACK回应,连通後则是一连串Server与Client间彼此互送WM_DDE_DATA、WM_DDE_REQUEST、WM_DDE_ACK等讯息。实际的资料并不是真的经由讯息传递,而是提供线索彼此利用Atoms(由Windows系统提供的字串对照表)寻求Application(应用程式)

Topic(主题)与Data(资料)等三个项目。最後,以WM_DDE_TERMINATE讯息结束对话。

行程间建立DDE连接时,当Server端的资料改变时,依资料交换的频繁与Client的主动程度,其通道的形态可分为:

Cold Link:来要才有;Client端得主动要求传送资料,如果没有来要,即使Server的资料已经改变很多了,Server对Client也置之不理。

Hot Link:有变就给;当资料改变时,Server端将主动通知Client改变的内容。

Warm Link:更新通知;当资料改变时,Server端只对Client端告知资料改变的消息,真正的资料要等Client提出要求才会送出。

由於DDE讯息通讯牵涉的实作细节颇多,为了使用方便起见,微软也提供DDE管理函式库(The DDE Management Library

简称 DDEML)

使用上的最大差别在於使用DDEML的程式是用Callback函数处理DDE交易(Transaction) 。另外,三大项目的Application改口叫做(Service name)服务。

时至今日,讨论DDE的文献已不在少数,的确,DDE的使用应该是容易许多了,几乎没有一个Windows程式开发工具不提供一些元件或类别让程式员更方便制作DDE Server或Client程式。当然,如果你的需求只是在行程间通知某些消息,自行设计一套讯息通讯协定倒也简单得以完成任务,我想本文的第一个例子TwinApp是一个不错的提示。

其他的IPC技术

EXE通常呼叫DLL的输出函数(exports function),某些情况下DLL也会使用EXE 事先预备的回呼(Callback)函数。函数呼叫这个观念与想法如果移植到行程通讯中会发生什麽事呢? 我的意思是说,让一个行程呼叫另一个行程的函数。Ya! 这就是所谓的 RPC,行程之间属於函数呼叫层级的合作。可以想见的,由於行程各有其定址空间,如同OLE,要达到 RPC确实需要额外标准的介面加以定义。

有关IPC的技术与观念我们已经介绍得不少了,不论是讯息交换,剪贴簿,Shared memory,DDE,MailSlot,Pipe等等,几乎都是资料的交换或者Client与Server「要求-回应」,叁与通讯的行讯必须对於交换的资料有一定程度的了解与处理能力。换句话说,在我们以DDE向试算表软体要求传回资料後,这份资料到底代表什麽得自己解释;同样的,如果要传入资料到试算表软体,即使透过现成元件的帮忙,仍然必须对试算表软体有基本的认识。

话说回来了,只有试算表自己最清楚资料代表什麽,不是吗?那麽,由它来处理资料应该才是适当的人选,强以外部程式去操作总有外行人指导内行人的遗憾。利用OLE技术将应用程式整合在一起工作确实是比较合理的作法,如果COM物件可以像电子IC一样安插进我们的程式与我们的程式一同工作,那这种我们称之为OLE Control(ActiveX),距离拉大到网路上,DCOM这个名词你一定听说过.

想想看,终於我们可以用甲公司的统计图表元件,然後用乙公司的元件将图表传真出去,这样窗景真是美好。窗子确实只提供局部的风景,但是加装了望远镜的窗子可是一个天文台,加了风铃的窗子所提供的就不只是风景了,还有悦耳的声音。

不论是RPC或OLE,我想这都是属於本文应该讨论但肯定是来不及讨论的,这两个主题甚至以单篇文章来谈都不怎麽够用。事实上,有些地方(例如DDE这一节)我也没有提到技术方面的实作细节,碍於篇辐(这篇文章已经太长了) 日後我们会在本专栏继续以专文介绍RPC等主题。关於以Winsock作为IPC通讯机制这部分,本专栏的前一篇文章「走! 让我们上BBS聊天去」才刚说明过,在此就不再重覆了。

应用IPC到你的程式中

各项IPC的技术往往以各种方式组合在一起。例如本文提供的DemoSMem范例程式就同时用了ShareMem交换资料,同步机制则采用Mutex与Event。情况并不如想像中的复杂:既是行程通讯,那必然是两个以上行程之间的事,既是分开的,中间一定有介面存在,定义这个介面的具体内容就是所谓的协定,留意资料交换的位置与方式,需要协调避让的采用合适的同步控制加以处理。这些重点把握住了,应该心 就已经有数了。

面对各式各样的技术时,如果你正考虑应用IPC到你的程式中,首先得正视自己的需求,不妨提出类似以下的问题问问自己,最好将之写下来

是否真的需要跨行程处理,成效何在?

技术实作的难易程度与所需付出的成本

资料的流向是单向或双向,需不需反馈(feedback)的控制查核

这些工作只在单机完成,或者需要连上网路,范围只在公司内部区域网路或者是广域网路

叁与通讯的行程最多与平均的数量是多少?

只在一种作业环境,或者可能同时要满足不同的作业平台

执行效能( performance)是不是关键需求.

应用程式使用 GUI 介面或者 console mode

接下来开始比较各项IPC的特性,哪些是与你列出的需求相符合的,有没有哪些限制是你必须要排除而避免使用的,各项IPC经过与先前写下的需求交叉评比的结果,积分高的自然是脱颖而出。最後,事情如果能简单解决是最好,开发时程缩短成本自然降低,而且日後维护容易。

结语

技术是不断推陈出新的,当各式各样的IPC机制提出时,回顾行程之所以开始通讯合作的初衷是有必要的,唯有回到最初原始的简单需求,才能看出技术演进过程的缘由与其修正的价值,不断的变易之中我们可以粹化出一些不变的原则与观念,而这些原则应该是与最初的需求互相吻合的。

播放MP3文件 -VB资料 播放背景音乐 -VB资料 播放声音文件 -VB资料 播放资源文件文件中的声音-VB资料 不用ActiveX控件也能播放声音文件-VB资料 VB创建动态图标 电影结束画面的卷动效果-VB资料 二进制操作截取VCD片断 -VB资料 非常VB测声卡 关闭屏幕保护功能,改变屏保等待时间 -VB资料 VB获取桌面窗口图象 红色警戒&amp;终级动员令-VB资料 检查是否安装声卡 -VB资料 将 .flc 动画档放在某一个 hWnd 之中播放 -VB资料 截取屏幕图像-VB资料 开机,自动更换墙纸 -VB资料 控制PC喇叭 -VB资料 利用VB测声卡 利用VB进行多媒体程序设计初步 利用Visual Basic设计多媒体应用程序 满屏播放AVI文件-VB资料 平铺贴图背景 -VB资料 破解WINDOWS屏幕保护密码 -VB资料 巧用VB编程使XMPLAYER自动播放VCD VB取得 WAV 文件信息 趣味撞球VB5应用程序一例 VB如何从&quot;SOUND.DRV&quot;中提取声音 VB如何设定墙纸的显示方式? VB如何用API及MMSYSTEM.DLL播放AVI文件 VB如何知道计算机是否安装声卡? 设计简单的屏幕保护程序 -VB资料 谁有FLASH的注册码,给个,谢谢 怎样用js写一个终止程序,类似asp的response.end 求教:学习MFC文件系统-针对一段代码的3个初学者问题 如何使98一开机就运行屏保!!!急!!!来者有分!帮忙了!!!!! 怪问题 <了解Struts1.1 > 我刚看到的一篇好文章,贴出来,大家共享 dayday up (: 如何驱动8139网卡(笔记本) interbase能与VC结合吗?另外想问有些软件与interbase一起打包安装,如何实现的呢? Lotus——你在哪里? 网络编程中遇到的几个问题(求助) 在java中调用javac.exe 紧急在线等待,求助!!!!! 我是新来的,很多都不懂!也没有朋友,有谁能和我做朋友么? 分手为什么只要一个人说了就算,为什么不能像离婚一样要双方同意,法院判决??? 关于从TImage继承创建自定义控件的问题? JRUN4怎么运行Servlet? 关于远程创建表,删除表的问题?请帮忙。 启动数据库时报 监听程序无法启动专用服务器进程???ORACLE 9.2.0.1.0 如何將指針作為參數傳遞。 请教vb自带的报表编程 在Sql语言中的取整函数是什么? 怎样将添加的记录到所有的现有记录后面? 如何装双系统?(在线等候) CSS一般要学多久才算掌握? 从事共享软件开发的进来谈谈做共享的辛酸好吗? 请教使用notifyicon遇到的问题 ActiveState.Visual.XSLT.for.VS.2003.v1.7.9.2475.WinNT2K无法安装。 如何合并两个dataset win98系统下ISAM问题 如何减小生成的EXE文件大小等? asp.net有没有模板 帮帮忙,呵呵!!!一个小问题!!!!! 用VB的兄弟姐妹们,来整个MSN如何? 关于dllhost占用系统资源的问题! 谁是雍亲王,出来说话!!! 在WSAD5.0里怎么添加类型为MYSQL的数据源 高手们,帮帮我噢(解决立刻给分) 全中国程序员联和起来。 如何在web的FORM1模式下画一条线段 界面贴图问题 为什么我用Server.MapPath(""),返回不了任何东东? 上手指路,高分相送 asp怎样连到SQL Server 2000?给100分,在线等 ASP.NET和SQL 哪位兄弟有用asp.net做的OA完整的例子...大家快来.. 关于dllhost占用系统资源的问题! Kylix是否和Delphi一样有RTF控件可以处理丰富文本? 小弟想考程序员!各位大哥指点一下嘛!有要考的交流一下嘛! 查询条件的问题?? 从事共享软件开发的进来谈谈做共享的辛酸好吗? TListView中某一SubItem怎末实时更新?在线等。。 这串星月菩提里的佛头是什么材料的? “专一”的定义并非是他只能一生爱一人,而是每爱一个人的时候他都一心一意!“专一”的定义并非是她只能一生爱一人,而是每爱一个人的时候她都一心一意! 《小石潭记》中“记”的意思 星月菩提配什么佛头 孔的节圆是什么意思 解答关于《孔子家语》的问题和好人相处,就会受到好的影响,和坏人相处,就会受到坏的影响.真的是这样吗? 为什么实施科教兴国战略的关键是人才 谁可以帮我做做物理题啊?1、 质量为0.10kg的物体,以振幅1.0*10-2m做简谐运动,其最大加速度为4.0m/s-2,求:(1) 振动的周期;(2) 通过平衡位置的动能;(3) 总能量;(4) 物体在何处其动能 《李贺作诗》&《孔子家语·六本》的 鲍鱼之肆...回答阅读.. 李贺七岁能辞章,韩愈、皇甫铈①始闻未信,过其家,使贺赋诗,援笔辄就如素构,自目曰《高轩过》②.二人大惊,自是有名. 大伙认为中国历史上哪些朝代最重要?排除割据局面. 《我思故我在》的意思~ 修辞手法与表现手法的区别? 星月菩提a+货应该是什么颜色的绳子 谁帮我做做物理题1.在直线运动中的物体,若速度为零,则加速度一定为零………【 】2.在直线运动中的物体,若速度变化快,则加速度就大………【 】3.同一物体受到的合外力越大,它的速度 求过两点(-1,1)和(3,9)的直线在X轴上的截距. 莫明奇妙 都说我思故我在,到底是什么意思呢? 《小石潭记》中心乐之的乐怎么解释? 自己喜欢的人莫明奇妙的向你发脾气走掉是什么意思?RT,是男生 帮我做做这几道物理题谢谢 《陋室铭》《孔子家语》对比阅读答案 莫明奇妙是是什么意思 一道物理题,做做看~25.(5分)干电池是实验时经常使用的电源,它具有稳定的电压.实际上干电池本身也具有一定的电阻,只是因为较小,我们忽略了电源本身电阻的影响.如果考虑电阻,可以把干 修辞手法和表现手法有什么不同 "一个王千万 9个穷光蛋 统计局一平均 个个都是王百万!"这句话的深层含义? 质量为M的木块放在固定的水平面上,一颗质量为m的子弹以速度V0水平穿透木块后,速度减为V0/2,现使该木块不固定,放在光滑水平面上,同样的子弹还以V0速度射中木块,若要射穿木块,问木块的质 这个字这样写有什么寓意 乳酸循环的定义 实像与虚像的区别:麻烦你们清楚的讲讲. 柏拉图是谁啊?谢谢啦! 有在国外打过黑工或者了解黑工情况请回答一下(最好了解澳大利亚的)在国外干黑工跟我以前的工作比起来那个辛苦?我以前上班时间是十二个小时还会长期夜班也是十二个小时不能睡觉. 问一个关于圆的概念当点(a,b)在圆x2+y2=r2上,切线方程为ax+by=r2 为什么啊,请详解 怎么办呢? 乳酸, 我思故我在的意义是什么哦?我不知道,找哥哥姐姐们勒. 果实累累LEI(二声)还是累累LEI(三声) 新西兰的绿卡与澳大利亚的绿卡有何不同?有一种说法,如果拿到新西兰永居绿卡后,只要求五年内在新西兰住够半年,而拿到澳大利亚永居绿卡后,每年要在澳住够一个月,否则绿卡会作废.这是真 “我思故我在的”具体意义是什么 我思故我在是什么意思 生物 ATP只能由ADP合成么,ADP只能由ATP合成么?为什么?生物 ATP只能由ADP合成么,ADP只能由ATP合成么?为什么? 为什么光合作用能合成ATP,它合成的ATP是不是由ADP转化而来的?!?! 语言学本来从哲学中独立了,但“语言学转向”又将其牵入进哲学了,这是好事还是坏事呢? 果实累累的笫一个累读什么音 为什么说实施科教兴国战略,关键是落实科技创新和教育创新 语言学转向的意义仅仅在于使哲学的概念明确吗?那为什么还有那么大影响,说什么标志着传统形而上学的终结? 柳宗元的《小石潭记》中“以其境过清”“以”什么意思? 所有生物均据有独立合成和利用ATP的能力这句话对还是错? 哲学:语言学转向的原因是什么?因为各个哲学家的语言不统一还是因为语言本身存在什么问题? 先天下之忧而忧后天下之乐而乐!出自那篇文章? 科技创新和教育创新的必要性是什么?RT 如何理解哲学的语言学转向 吹牛大王杀死狮子和鳄鱼,不过太残忍,有没有更好的方法既不伤害动物,又使自己脱险,5分钟内答完再加财富 实施科教兴国战略为什么必须加强科技创新和教育创新 为什么语言学在清朝会取得如此高的成就,开始了严格意义上的语言学研究 请问K1O1 O·1 是多大的电容器?耐压多少? 什么动物在沙漠中畅行无阻 柏拉图是谁 啊? 收音机里用的调谐电容耐压有多大啊有没有哪个型号的可调电容,最大电容值能达300pf,而且耐压能达10kv啊 西班牙打黑工可以拿到绿卡吗 能的话要多久 我一直不相信一生只将爱付诸一人.但一生付诸一切爱过的.也只有一人 我感觉泰国总理英拉也不行吗?中国为什么要力挺英拉呢? 俄罗斯称政府内部系统可防止领导人电话女童目睹家人在车祸中被烧死 获赔1.安倍经济学:IMF认为有益经济 日本女子坚持嫁给残障男友 坚贞真爱感动世策划暗杀曼德拉犯罪团伙获重判 主犯拒日媒:安倍将亲自向中国救人留学生颁发萌猫每天造访商店 望着橱窗里老鼠或鱼奥巴马医改网站安全漏洞细节曝光 内测伊拉克向美国请求军事援助 对抗“基地美一客机紧急迫降阿拉斯加偏远小镇 无年轻人使用手机成瘾 或因社交焦虑渴望英媒:美国窃听盟国收益是否大于成本存波士顿爆炸案后美警方为纽约马拉松投入印尼爆发全国大罢工 抗议租不起房吃不美“监听”区别对待盟友非盟友 公信力日本拟任命民间人士担任日“国家安全局英小报窃听引关注 法庭百年后解除部分巴黎中国电影节开幕 计划放映56部新专家称叙总统解职叙副总统 传达不愿谈纽约提高香烟禁售最低年龄 未满21不39岁女子当选日本年度美魔女 分享美10款苹果涉嫌泄密被移出政府采购名单第二批党的群众路线教育实践活动今天立秋 气温炎热严防“秋老虎”鲁能就指望足协杯翻身招商银行首家境外私人银行中心开幕8月11日邀你观赏今年最大满月沙尾西村垃圾清运不及时中国人寿 宣布全面助养鲁甸地震孤儿24小时161个城市仅深圳等9城合格河南豫港集团原董事长霍声璞被立案侦查传说中的深圳取消限购,假的啦136家汽修企业不合格李宁这次你是不是很受伤新华保险 I级响应云南鲁甸地震“智囊团”出谋划策 推进公安改革创新足协杯1/4决赛“小案”成功调解可不予处罚美国感染埃博拉病毒医生试用抗埃新药 华夏银行总资产进入全球百强过时的解说和不过时的建宏
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘