📄 client.~dpr
字号:
{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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -