用Delphi实现局域网内消息传递

2008-02-23 07:15:18来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

  本程序介绍如何在局域网内安装了信使服务的Windows 2000计算机之间传递消息。

  向窗体上添加两个TLabel组件、两个TEdit组件和一个TButton组件,设计完成的主界面如图1所示。


图1 主界面

  首先声明NetMessageBufferSend函数,该函数在netapi32.dll库中:

type
 NET_API_STATUS = LongInt;
 function NetMessageBufferSend(servername: LPCWSTR; msgname: LPCWSTR;
 fromname: LPCWSTR; buf: Pointer;
 buflen: DWORD): NET_API_STATUS;
 stdcall;external ’netapi32.dll’;
  在程序运行过程中,单击Send按钮,就会向Computer文本框指定的计算机发送Content文本框中输入的消息,响应代码如下:

procedure TForm1.Button1Click(Sender: TObject);
var
 WideMsg:PWideChar;
 DestName:PWideChar;
begin
 DestName:=PWideChar(WideString(Edit1.Text));
 WideMsg:=PWideChar(WideString(Edit2.Text));
 NetMessageBufferSend(nil,DestName,nil,WideMsg,Length(Edit2.Text)*2);
end;
  程序代码如下:

unit Unit1;
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 ’netapi32.dll’;
type
 TForm1 = class(TForm)
 Edit1: TEdit;
 Label1: TLabel;
 Label2: TLabel;
 Edit2: TEdit;
 Button1: TButton;
 procedure Button1Click(Sender: TObject);
private
 { Private declarations }
public
 { Public declarations }
end;

var
 Form1: TForm1;
 implementation
 {$R *.dfm}
 procedure TForm1.Button1Click(Sender: TObject);
var
 WideMsg:PWideChar;
 DestName:PWideChar;
begin
 DestName:=PWideChar(WideString(Edit1.Text));
 WideMsg:=PWideChar(WideString(Edit2.Text));
 NetMessageBufferSend(nil,DestName,nil,WideMsg,Length(Edit2.Text)*2);
end;
end.
  保存文件,然后按F9键运行程序,程序运行的初始画面如图2所示。


图2 程序运行的初始画面

  在Computer对应的文本框中输入目的计算机名,在Content对应的文本框中输入消息内容,如图3所示。

  单击Send按钮,就会向指定的计算机发送消息,在接收消息的计算机上就会显示一个对话框,如图4所示。


图3 指定计算机名和消息内容


图4 程序运行结果

上一篇: 一步步教你优化Delphi字串查找
下一篇: 图文并茂:delphi 编写你的com程序

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:如何用Delphi实现局域网内消息传递

下一篇:Delphi编程轻松实现大图像浏览