client.~dpr

来自「一个动态域名转发的客户端,asp+access+软件希望多多交流」· ~DPR 代码 · 共 30 行

~DPR
30
字号
{Delphi 幽冥魔焰群2(Indy专用群)内Demo,本Demo展示:
1,在服务器端如何维护已经登录的用户列表;
2,反向通讯,通过服务器端给客户端发送文件;
3,实现客户端与服务器端的Chat聊天功能(稍加改动可转化为C->S->C的聊天程序)
4,如何使用IdTCPServer和IdTCPClient控件
5,初步实现线程命令方式,在传送文件的时候不会让服务器端停止响应

以上Demo由 Delphi 幽冥魔焰群2(Indy专用群)(QQ群号码:19597560)群主峪飞鹰撰写,
您可以自由使用,但请在修改后给我发来一份代码,以供大家共同学习和提高。我的邮箱
是zqw0117@sina.com。QQ:185845281。

本Demo通过D7+Indy Snapshot 版本编译通过,请不要使用任何Delphi自带的Indy编译
(包括BDS2006,因为这些Delphi自带的版本都有Bug),如想下载最新的Indy Snapshot包,
请从本群内空间下载,或去2ccc.com搜索(2ccc.com上可能不是最新的)。

谢谢合作,本群已经满员(100人),如您想加入,请帮助扩充人数。谢谢!}
program Client;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?