登录
首页 » Delphi源码 » 轻型网络聊天Delphi程序-源码

轻型网络聊天Delphi程序-源码

于 2023-05-16 发布 文件大小:136.53 kB
0 222
下载积分: 2 下载次数: 1

代码说明:

轻型网络聊天Delphi程序-源码,类似聊天室, 很简单,这是个多年前的网络编程例子,聊天过程中显示对方的IP,和当前好友姓名,还支持删除聊天记录。用户注册时,可对注册信息进行初始验证,比如用户名是否存在、姓名和IP地址不能空等,有一些技巧对Delphi打基础有帮助。

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

发表评论

0 个回复

  • Delphi 制作的文字屏保
    Delphi 制作的文字屏保,文字交替变化,晃动鼠标结束屏保。本程序的亮点是对文字动画效果的生成和控制。具有文字渐变和水平平移动画。
    2022-03-28 23:49:31下载
    积分:1
  • Delphi 图片颜色逐渐加深功能的实现
    Delphi演示如何将一张图片的颜色加深,类似于调整对比度,不过本效果不加入了渐变加深的动画效果,按住按钮图片一直变暗下去,要知空间,你可看下以下代码:   Bitmap:=image1.Picture.Bitmap;   image1.Height:= Bitmap.Height;   image1.Width:= Bitmap.Width;   for i:=0 to 255 do   begin    sleep(10);    for y:=0 to Bitmap.Height-1 do    begin    pixcolo:=Bitmap.Scanline[y]; //扫描每行像素颜色    for x:=0 to ((Bitmap.Width*3)-1) do    //递减颜色值,不同的递减值可改变不同的速度    if pixcolo[x]>0 then pixcolo[x]:=(pixcolo[x]-1);    end;    Image1.Canvas.Draw(0,0,Bitmap);    Application.ProcessMessages; //让Application去处理消息队伍中的消息   end;
    2022-03-23 16:34:19下载
    积分:1
  • 圆角的窗体-Delphi代实现方法
    Delphi实现圆角的窗体效果,将矩形的窗口效果修饰为圆角的风格,如示例截图所示的效果,核心的几行代码如下:   begin    hr:=createroundrectrgn(0,0,width,height,20,20);//定义园角矩形(win API函数)    setwindowrgn(handle,hr,true); //设置园角窗口   end;
    2022-08-18 21:29:53下载
    积分:1
  • Delphi开发的模型飞机测控平台 附
    Delphi开发的模型飞机测控平台 附源代码,里面主要涉及多线程操作、GPS、传感器、端口操作等一系列系统控制的技巧,还包括了许多操作函数,比如绘制飞行轨迹的函数、绘制坐标刻度的函数、用户界面读取发送数据指令的函数、还有线程的同步、线程互斥等。   由于有调试目的,如果要求发送字符格式的数据,就直接发送用户输入的字符串,其他情况下,都是发送打包好的数据矩阵。   调用其它函数实现发送串口数据的功能。注意函数GetData还没有实现线程的互斥,目的是把发送的数据保存在各个线程中。   在此提示: 由于传输系统总会有一定的吴码率,那么为了避免轨迹图出现问题,例如坐标范围过大需要除去粗大误差,考虑到模型飞机的飞行速度不会超过10m/s,考虑到数子传输系统的下传速度,设定如果位置变化超过20m就去掉。
    2022-08-16 19:54:45下载
    积分:1
  • Delphi 使用PSAPI.dll枚举Window7 进程及页面内存信息
    Delphi 在Windows NT/2000 环境下使用PSAPI获取进程的信息演示,其实在Window7环境下同样也可枚举到进程及页面内存信息,可以列举所有正在运行的进程,正在运行的所有进程,鼠标双击有进程的详细信息,可以得到某一进程的模块、页面等信息,以及内存映射的文件名。   如果列举进程出错,请确认是否安装了PSAPI.DLL。   本程序除了列举进程外,还可列举设备信息。运行效果请参见截图所示。
    2022-07-02 19:53:17下载
    积分:1
  • Delphi 获取MonthCalendar中选择的日期
    Delphi 获取MonthCalendar中选择的日期,其实就是完成一个时间、日期的选择功能,年份、月份、日期、时间都可自定义调整并选择,这个简单的例子,可演示Delphi中MonthCalendar的用法,生成一个日期时间选择器功能。下面是相关代码:   procedure TForm1.Button1Click(Sender: TObject);   var    Year,Month,Days: Word;   begin    DecodeDate(MonthCalendar1.Date,Year,Month,Days);    Edit1.Text:=IntToStr(Year);    Edit2.Text:=IntToStr(Month);    Edit3.Text:=IntToStr(Days);   end;   全部源码请下载本实例包。
    2022-02-02 06:32:18下载
    积分:1
  • Windows 剪贴板高级编程-Delphi实例
    Windows 剪贴板高级编程-Delphi源码实例,其实也不是什么高级编程,挺基础的剪贴板应用。学习如何在Delphi环境下读取Windows剪贴板的内容。在编写一些系统辅助类的软件中,可使用到这些小技巧。以下代码:将剪贴板内容读取出来,在代码的执行放入一个按钮事件中:   procedure TForm1.Button2Click(Sender: TObject);   var    DataRec: TDataRecord;    Data: THandle;    PData: Pointer;   begin    Data := Clipboard.GetAsHandle(CF_CUSTOMFORMAT);    if Data = 0 then Exit;    PData := GlobalLock(Data);    Move(PData^, DataRec, GlobalSize(Data));    GlobalUnlock(Data);    with DataRec do    ShowMessage(Name + #13#10 + Sex + #13#10 + Hobby);   end;
    2022-04-22 08:40:48下载
    积分:1
  • Delphi Canvas.Brush为窗体绘制渐变背景
    Delphi 为窗体绘制渐变背景,这里使用了Delphi中的Canvas.Brush.Color来实现窗口背景的渐变色,不错吧?如示例图的左右渐变效果,实现的代码:   for i:=0 to self.Width-1 do   begin   c1:=GetRValue(StartColor)+Trunc(i*(GetRValue(EndColor)-GetRValue(StartColor))/(self.Width-1));   c2:=GetGValue(StartColor)+Trunc(i*(GetGValue(EndColor)-GetGValue(StartColor))/(self.Width-1));   c3:=GetBValue(StartColor)+Trunc(i*(GetBValue(EndColor)-GetBValue(StartColor))/(self.Width-1));   Canvas.Brush.Color:=RGB(c1,c2,c3);   //每次画矩形的画刷颜色   Dct:=Rect(i,0,i+1,self.Height);   //每次刷绘的矩形区域   Canvas.FillRect(Dct);   //填充颜色   end;
    2022-05-24 21:26:59下载
    积分:1
  • Delphi 提高图像的亮度和对比度
    Delphi 提高图像的亮度,每次只能提升一点高度,用着比较麻烦,不过解析图像部分可以借鉴下。以下代码可参考,不过我没发现哪里是调节图片亮度的:   PByte := ImageBmp.scanline[y];   for x:=0 to ImageBmp.Width-1 do   begin    if (PByte[x*3]
    2023-09-02 06:40:03下载
    积分:1
  • Delphi判断双字节字符的例子
    Delphi判断双字节,用法简单,在窗口输入框中输入字符串,单击按钮即可,程序会判断出是否包含有双字节字符,判断方法请看下边的代码段:   s := Edit1.Text;   i := 0;   while i  begin    if (ByteType(S,i) mbSingleByte) then    begin    s1 := s1+ copy(s,i,2)+;    i := i+2;    end    else    i:= i+1;   end;   label2.Caption := trim(s1);
    2022-07-24 15:06:09下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载