登录
首页 » Delphi源码 » Delphi 7.0 在局域网内发消息

Delphi 7.0 在局域网内发消息

于 2022-04-01 发布 文件大小:7.05 kB
0 179
下载积分: 2 下载次数: 1

代码说明:

Delphi 7.0 在局域网内发消息,这个本站收集有很多例子了,学习Delphi网络编程可参考的例子,Delphi网络发消息,局域网发消息的例子,敬请关注。   局域网内发消息核心代码:   procedure TFrmSendMessage.Sendmessage(const msg,tomachine,from:string);   var    ms:PWideChar;   begin    ms:=PWIDEChar(WideString(msg));    NetMessageBufferSend(nil,pWidechar(WideString(tomachine)),pWidechar(WideString(from)),ms,length(msg)*2);   end;   procedure TFrmSendMessage.BtnSendClick(Sender: TObject);   begin    Sendmessage(mmMessage.Text,EDTo.Text,EDFrom.Text);   end;

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • Delphi 鼠标双击TStatusBar时判断是哪一个panels
    Delphi 鼠标双击TStatusBar时判断是哪一个panels,这个是把窗口的状态栏分隔,每个隔断中显示不同的内容,用鼠标双击不同的隔断,程序将判断用户点击了哪个隔断,并获取到该栏中的文字内容显示出来。
    2023-02-09 01:20:03下载
    积分:1
  • Delphi实现多次渲染的RGB色环颜色渐变特效
    Delphi实现RGB色环多次渐变,生成一个渐变的圆形,颜色渐变步长可自定义,在代码中,为了绘制出来的圆好看,分成四个部分进行绘制,此部分代码展示如下:   if (degree >= 0+qki) and (degree 45+qki) and (degree 135+qki) and (degree 215+qki) and (degree 315+qki) and (degree
    2022-04-26 22:54:00下载
    积分:1
  • Delphi 7.0 After提取字符串中指定子字符串后的字符串
    Delphi 7.0 提取字符串中指定子字符串后的字符串,这个平时在字符处理时候使用几率也挺高的,获取指定字符串后面的字符串,比如获取扩展名等也可以用此方法,本例中要用到After函数,测试时,当单击按钮时,执行以下代码:   procedure TForm1.Button1Click(Sender: TObject);   begin    Edit3.Text := After(Edit2.Text,Edit1.Text);   end;   end.
    2022-03-28 10:50:27下载
    积分:1
  • Delphi GetCurrentDirectory得到系统当前目录
    得到系统当前目录,Delphi 得到系统当前目录,这里使用了内置的GetCurrentDirectory函数来实现,比较方便,也比较简单。获取到系统目录后,是通过窗口的标题栏显示目录路径信息,在演示截图上请看窗口的标题栏,显示有程序当前所在的路径。关于GetCurrentDirectory用法,请参见以下两行代码:   GetCurrentDirectory(255,dir);//获得当前目录   form1.Caption:=dir;
    2022-07-07 13:11:54下载
    积分:1
  • Delphi 演示使用演示Brush对象的各种风格
    Delphi 演示使用演示Brush笔刷对象后生成的各种风格,一种演示了7种笔刷效果,定义了一个存储绘图风格的7维数组,然后使用For循环对绘图风格数组赋值,然后使用Canvas.Brush.Style来预览风格。这些笔刷风格都是浅色彩的风格。
    2022-07-08 18:13:17下载
    积分:1
  • Delphi获取电脑CPU硬件型号名称
    Delphi获取电脑CPU硬件型号名称,这个可能不准确,我是64位 I5 3470 CPU,获取出来的是统称,不是太准确,可能是我系统的问题。不过这个代码是前几年书中的代码,现在的硬件发展快,也有可能是代码的问题,运行效果如下。   本获取CPU名称是根据注册表的方法获取的。
    2022-07-06 23:12:47下载
    积分:1
  • Delphi API笔刷制作
    Delphi API笔刷制作实例的源码,这个笔刷只不过比较简单,点击按钮后自动生成,而且是有规则的网格线,或许通过这个简单的笔刷,你可以学习到用Delphi制作笔刷的入门技巧,相关的代码如下:   procedure TForm1.Button1Click(Sender: TObject);   var    LogBrush:TLogBrush;   begin    LogBrush.lbStyle:=BS_HATCHED;    LogBrush.lbColor:=clRed;    LogBrush.lbHatch:=HS_DIAGCROSS;    Canvas.Brush.Handle := CreateBrushIndirect(LogBrush);    Canvas.FillRect(ClientRect);   end;
    2022-03-30 01:57:49下载
    积分:1
  • Delphi实现流程图绘制程序附有
    Delphi实现流程图绘制程序附有源码,看上去很专业、很高大上的样子。用来绘制工业生产流程图、软件开发流程图等。功能上像绘图软件,功能比较强大,运行界面如下图所示。生成的流程图可编辑文件扩展名为pf,本软件将自动识别。
    2022-05-25 01:00:17下载
    积分:1
  • Delphi 绘制艺术图案
    Delphi 绘制标准的艺术图案,是比较有规则的几何图案,如示例截图所示的样式 。   self.ClientHeight:=200;   self.ClientWidth:=200;   r:=self.ClientWidth/2;   Sect:=20;   for i:=0 to Sect-1 do   begin    x[i]:=Trunc(r*Cos(i*2*PI/Sect)+self.ClientWidth/2);    y[i]:=Trunc(r*Sin(i*2*PI/Sect)+self.ClientHeight /2);   end;
    2022-01-28 10:36:40下载
    积分:1
  • Delphi 简单获取Windows时间的例子
    简单获取Windows时间-Delphi源代码,改时间的小程序,在Windows自带的时间管理中也可完成系统时间的修改,这个只是一个帮助了解Windows与Delphi编程的例子,如何通过Delphi的程序来修改Windows时间,大致就是这样实现的。可参见以下源码:   procedure TForm1.Button1Click(Sender: TObject);   var    Dtimer : TSystemTime;    hh,Ghh : Integer;   begin    hh := StrToInt(Trim(Edit4.Text));    if hh < 8 then    Ghh := 16 + hh    else    Ghh := hh - 8;    with Dtimer do    begin    wYear:=StrToInt(Edit1.Text);    wMonth:=StrToInt(Edit2.Text);    wDay:=StrToInt(Edit3.Text);    wHour:=Ghh;    wMinute:=StrToInt(Edit5.Text);    wSecond:=StrToInt(Edit6.Text);    end;    SetSystemTime(Dtimer);   end;
    2022-07-09 18:55:23下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载