知识大全用Delphi实现局域网内消息传递

Posted 2022-07-22 消息

篇首语：于今腐草无萤火，终古垂杨有暮鸦。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用Delphi实现局域网内消息传递相关的知识，希望对你有一定的参考价值。

用Delphi实现局域网内消息传递 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

本程序介绍如何在局域网内安装了信使服务的Windows 计算机之间传递消息　　　　向窗体上添加两个TLabel组件两个TEdit组件和一个TButton组件设计完成的主界面如图所示　　 >　　 >　　　　首先声明NetMessageBufferSend函数该函数在netapi dll库中　　　　type　　NET_API_STATUS = LongInt;　　function NetMessageBufferSend(servername: LPCWSTR; msgname: LPCWSTR;　　fromname: LPCWSTR; buf: Pointer;　　buflen: DWORD): NET_API_STATUS;　　stdcall;external netapi dll ;　　　　在程序运行过程中单击Send按钮就会向Computer文本框指定的计算机发送Content文本框中输入的消息响应代码如下　　　　procedure TForm Button Click(Sender: TObject);　　var　　WideMsg:PWideChar;　　DestName:PWideChar;　　begin　　DestName:=PWideChar(WideString(Edit Text));　　WideMsg:=PWideChar(WideString(Edit Text));　　NetMessageBufferSend(nil DestName nil WideMsg Length(Edit Text)* );　　end;　　　　程序代码如下　　　　unit Unit ;　　interface　　uses　　Windows Messages SysUtils Variants Classes Graphics Controls Forms 　　Dialogs StdCtrls;　　　　type　　NET_API_STATUS = LongInt;　　function NetMessageBufferSend(servername: LPCWSTR; msgname: LPCWSTR;　　fromname: LPCWSTR; buf: Pointer;　　buflen: DWORD): NET_API_STATUS;　　stdcall;external netapi dll ;　　type　　TForm = class(TForm)　　Edit : TEdit;　　Label : TLabel;　　Label : TLabel;　　Edit : TEdit;　　Button : TButton;　　procedure Button Click(Sender: TObject);　　private　　 Private declarations 　　public　　 Public declarations 　　end;　　　　var　　Form : TForm ;　　implementation　　$R * dfm　　procedure TForm Button Click(Sender: TObject);　　var　　WideMsg:PWideChar;　　DestName:PWideChar;　　begin　　DestName:=PWideChar(WideString(Edit Text));　　WideMsg:=PWideChar(WideString(Edit Text));　　NetMessageBufferSend(nil DestName nil WideMsg Length(Edit Text)* );　　end;　　end 　　　　保存文件然后按F 键运行程序程序运行的初始画面如图所示　　 >　　 >　　　　在Computer对应的文本框中输入目的计算机名在Content对应的文本框中输入消息内容如图所示　　　　单击Send按钮就会向指定的计算机发送消息在接收消息的计算机上就会显示一个对话框如图所示　　 >　　 >　　 >　　 > cha138/Article/program/Delphi/201311/8402

知识大全 用Delphi实现局域网内消息传递

知识大全用Delphi实现局域网内消息传递