科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件用Delphi实现局域网内消息传递

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

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

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

作者:cqfz 来源:blog 2007年10月31日

关键字: Delphi 局域网 消息传递

  • 评论
  • 分享微博
  • 分享邮件
本程序介绍如何在局域网内安装了信使服务的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 程序运行结果

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    闂傚倷绶¢崣搴ㄥ窗閺囩偐鏋庨柕蹇嬪灪婵ジ鏌曡箛瀣偓鏍綖閿燂拷

    濠电姷顣介埀顒€鍟块埀顒€缍婇幃妯诲緞閹邦剛鐣洪梺闈浥堥弲婊勬叏濠婂牊鍋ㄦい鏍ㄧ〒閹藉啴鏌熼悜鈺傛珚鐎规洘宀稿畷鍫曞煛閸屾粍娈搁梻浣筋嚃閸ㄤ即宕㈤弽顐ュС闁挎稑瀚崰鍡樸亜閵堝懎濮┑鈽嗗亝濠㈡ê螞濡ゅ懏鍋傛繛鍡樻尭鐎氬鏌嶈閸撶喎顕i渚婄矗濞撴埃鍋撻柣娑欐崌閺屾稑鈹戦崨顕呮▊缂備焦顨呴惌鍌炵嵁鎼淬劌鐒垫い鎺戝鐎氬銇勯弽銊ф噥缂佽妫濋弻鐔碱敇瑜嶉悘鑼磼鏉堛劎绠為柡灞芥喘閺佹劙宕熼鐘虫緰闂佽崵濮抽梽宥夊垂閽樺)锝夊礋椤栨稑娈滈梺纭呮硾椤洟鍩€椤掆偓閿曪妇妲愰弮鍫濈闁绘劕寮Δ鍛厸闁割偒鍋勯悘锕傛煕鐎n偆澧紒鍌涘笧閹瑰嫰鎼圭憴鍕靛晥闂備礁鎼€氱兘宕归柆宥呯;鐎广儱顦伴崕宥夋煕閺囥劌澧ù鐘趁湁闁挎繂妫楅埢鏇㈡煃瑜滈崜姘跺蓟閵娧勵偨闁绘劕顕埢鏇㈡倵閿濆倹娅囨い蹇涗憾閺屾洟宕遍鐔奉伓

    重磅专题
    往期文章
    最新文章